[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv16003

Modified Files:
	special-operators-cl.lisp 
Log Message:
Don't do the recompile-body thing. It was an ugly hack. Really.

Date: Tue Jan 25 05:44:11 2005
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.42 movitz/special-operators-cl.lisp:1.43
--- movitz/special-operators-cl.lisp:1.42	Tue Jan  4 12:22:00 2005
+++ movitz/special-operators-cl.lisp	Tue Jan 25 05:44:11 2005
@@ -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.42 2005/01/04 20:22:00 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.43 2005/01/25 13:44:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -56,8 +56,7 @@
 	  (compiler-call #'compile-implicit-progn
 	    :forward all
 	    :form body)
-	(let* ((recompile-body-p nil)
-	       (let-modifies nil)
+	(let* ((let-modifies nil)
 	       (let-vars (parse-let-var-specs let-var-specs))
 	       (local-env (make-local-movitz-environment env funobj
 							 :type 'let-env
@@ -242,8 +241,6 @@
 							(binding-name binding)
 							init-form
 							(car (type-specifier-singleton type)))
-					 (when (code-uses-binding-p body-code binding :load t)
-					   (setf recompile-body-p t))
 					 (change-class binding 'constant-object-binding
 						       :object (car (type-specifier-singleton type)))
 					 (if functional-p
@@ -313,10 +310,7 @@
 				   `((:locally (:call (:edi ,(bt:slot-offset 'movitz-run-time-context
 									     'dynamic-variable-install))))
 				     (:locally (:movl :esp (:edi (:edi-offset dynamic-env))))))
-				 (if (or nil (not recompile-body-p))
-				     body-code
-				   (progn #+ignore (warn "recompile..") ; XXX
-					  (compile-body)))
+				 body-code
 				 (when (and (plusp (num-specials local-env))
 					    (not (eq :non-local-exit body-returns)))
 				   #+ignore