(mac =* args `(do ,@(map (fn ((n v)) `(= ,n ,v)) (pair args)))) (macex1 '(=* a b c d e f)) -> (do (= a b) (= c d) (= e f))