with-assoc-values.lisp

(defmacro with-assoc-values (binds alist &body body)
  (let ((al (gensym "alist")))
    (flet ((expand-bind (bind)
	     `(,(first bind)
	       (cdr (assoc ,(second bind) ,al)))))
      `(let ((,al ,alist))
	(let ,(mapcar #'expand-bind binds)
	  ,@body)))))
			  
;; (with-assoc-values ((a :hoge) (b :fuga)) `((:hoge . (3 4)) (:fuga . 4))
;;    (list a b))
;; => ((3 4) 4)