[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv32109

Modified Files:
	special-operators-cl.lisp 
Log Message:
Fixed nasty in special-operator-let that would erroneously remove
init-forms with side-effects.


--- /project/movitz/cvsroot/movitz/special-operators-cl.lisp	2005/09/16 22:50:08	1.49
+++ /project/movitz/cvsroot/movitz/special-operators-cl.lisp	2007/02/20 20:33:30	1.50
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.49 2005/09/16 22:50:08 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.50 2007/02/20 20:33:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -155,7 +155,8 @@
 		       :env local-env))))
 	    (compiler-values-bind (&all body-values &code body-code &returns body-returns)
 		(compile-body)
-;;;	      (print-code 'body body-code)
+	      ;; (print-code 'body body)
+	      ;; (print-code 'body-code body-code)
 	      (let ((first-binding (movitz-binding (caar binding-var-codes) local-env nil)))
 		(cond
 		 ;; Is this (let ((#:foo <form>)) (setq bar #:foo)) ?
@@ -368,6 +369,8 @@
 		      (compiler-values (body-values)
 			:returns body-returns
 			:producer (default-compiler-values-producer)
+			:functional-p (and (body-values :functional-p)
+					   (every #'fourth binding-var-codes))
 			:modifies let-modifies
 			:code code))))))))))))