[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
LET-IF
- To: robbins%bach.decnet@HUDSON.DEC.COM
- Subject: LET-IF
- From: Jonathan A Rees <JAR@MIT-MC.ARPA>
- Date: Fri, 22 Nov 85 17:45:05 EST
- Cc: common-lisp@SU-AI.ARPA, robbins@HUDSON.DEC.COM
- In-reply-to: Msg of 0 0 00:00:00 EST from BACH::ROBBINS <robbins%bach.decnet at hudson.dec.com>
What's wrong with
(defmacro let-if (test bindings &body body)
(let ((f (gensym)))
`(flet ((,f () ,@body))
(if ,test (let ,bindings (,f)) (,f)))))
?