SHARE
TWEET

Untitled

a guest Apr 25th, 2012 26 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top