[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
issue COMPILER-LET-CONFUSION, version 7
- To: barmar@Think.COM
 
- Subject: issue COMPILER-LET-CONFUSION, version 7
 
- From: Kent M Pitman <KMP@STONY-BROOK.SCRC.Symbolics.COM>
 
- Date: Tue, 14 Mar 89 09:44 EST
 
- Cc: cl-compiler@sail.stanford.edu
 
- In-reply-to: <19890314004109.1.BARMAR@OCCAM.THINK.COM>
 
[X3J13 removed.]
    Date: Mon, 13 Mar 89 19:41 EST
    From: Barry Margolin <barmar@Think.COM>
	Date: Mon, 13 Mar 89 16:14:26 -0700
	From: sandra%defun@cs.utah.edu (Sandra J Loosemore)
	      (DEFMACRO COMPILER-LET (BINDINGS &BODY FORMS &ENVIRONMENT ENV)
    ...
		(PROGV (MAPCAR #'CAR BINDINGS)
		       (MAPCAR #'CDR BINDINGS)
		  (SYSTEM::MACROEXPAND-ALL `(PROGN ,@FORMS) ENV)))
    Modulo some bugs in the code.  Shouldn't the second-to-last line be:
    (MAPCAR #'(LAMBDA (BINDING) (eval (CaDR BINDING))) BINDINGS) 
    ...?
Yes.