[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

LET-IF



What's wrong with

(defmacro let-if (test bindings &body body)
  (let ((f (gensym)))
    `(flet ((,f () ,@body))
       (if ,test (let ,bindings (,f)) (,f)))))

?