case-eval

gistfile1.lisp

(defmacro case-eval (testform &body clauses)
  "Like case, but the keys are evaluated. (They're still compared with EQL)."
  (let ((value (gensym)))
    `(let ((,value ,testform))
       (cond
         ,@(mapcar (lambda (clause)
                     (destructuring-bind (keys &body body) clause
                       (if (atom keys)
                           `((eql ,value ,keys) ,@body)
                           `((or ,@(mapcar (lambda (key) `(eql ,value ,key)) keys)) ,@body))))
                   clauses)))))