Advertisement
Guest User

Untitled

a guest
Apr 25th, 2012
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.17 KB | None | 0 0
  1. (defmacro with-keys (keys hash-table &body body)
  2.     `(symbol-macrolet ,(mapcar (lambda (entry)
  3.                 `(,entry (gethash ',entry ,hash-table)))
  4.                   keys)
  5.       ,@body))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement