Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar *hash* (make-hash-table))
- (setf (gethash :foo *hash*) :bar)
- (setf (gethash :baz *hash*) :quux)
- (multiple-value-mapcar (rcurry #'gethash *hash*) '(:foo :bar :baz :quux))
- ;; => (:BAR NIL :QUUX NIL) (T NIL T NIl)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement