c-like-switch.lisp

(defmacro switch (val &body clauses)
  (let ((syms (loop :repeat (length clauses)
                 :collect (gensym))))
    `(tagbody
        (case ,val
          ,@(mapcar
             #'(lambda (clause sym)
                 `(,(car clause) (go ,sym)))
             clauses
             syms))
        ,@(mapcan
           #'(lambda (clause sym)
               `(,sym ,@(cdr clause)))
           clauses
           syms)
      break)))