(defmacro meu-cond (&rest clausulas) (if (null clausulas) nil `(if ,(caar clausulas) (progn ,@(cdar clausulas)) (meu-cond ,@(cdr clausulas)))))