[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
issue COMPILER-LET-CONFUSION, version 6
- To: sandra%defun@cs.utah.edu
- Subject: issue COMPILER-LET-CONFUSION, version 6
- From: Kent M Pitman <KMP@STONY-BROOK.SCRC.Symbolics.COM>
- Date: Wed, 8 Mar 89 17:13 EST
- Cc: cl-compiler@sail.stanford.edu
- In-reply-to: <8903082159.AA08869@defun.utah.edu>
Sigh. I blew it slightly when I suggested that last minute fix to the
SYMBOL-MACROLET rewrite. You have
(defun symbol-macro-value (symbol env &optional default)
(multiple-value-bind (expansion macro-p) (eval (macroexpand symbol env))
(if macro-p expansion default)))
but it should have been
(defun symbol-macro-value (symbol env &optional default)
(multiple-value-bind (expansion macro-p) (macroexpand symbol env)
(if macro-p (eval expansion) default)))
Sorry about that.