(defmacro a-menos-que (teste &rest exprs) `(cond (,teste nil) (t ,@exprs)))
Esta macro já existe em Lisp e denomina-se unless.