[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)))))

?

Prev by Date: LET-IF
Next by Date: Recursive printing proposal
Previous by thread: LET-IF
Next by thread: LET-IF
Index(es):
- Date
- Thread