Advertisement
Guest User

Untitled

a guest
Dec 1st, 2017
142
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. (defvar *hash* (make-hash-table))
  2. (setf (gethash :foo *hash*) :bar)
  3. (setf (gethash :baz *hash*) :quux)
  4.  
  5. (multiple-value-mapcar (rcurry #'gethash *hash*) '(:foo :bar :baz :quux))
  6. ;; => (:BAR NIL :QUUX NIL) (T NIL T NIl)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement