[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Fixed nasty little bug in assign-bindings that would mess up
everything if a function argument variable was lended to some closure.

Date: Wed Mar 24 19:54:07 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.34 movitz/compiler.lisp:1.35
--- movitz/compiler.lisp:1.34	Wed Mar 24 13:38:18 2004
+++ movitz/compiler.lisp	Wed Mar 24 19:54:07 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.34 2004/03/24 18:38:18 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.35 2004/03/25 00:54:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2619,7 +2619,7 @@
 				   ((typep binding 'forwarding-binding))
 				   ((typep binding 'borrowed-binding))
 				   ((typep binding 'fixed-required-function-argument)
-				    (prog1 t
+				    (prog1 nil ; may need lending-cons
 				      (setf (new-binding-location binding frame-map)
 					:argument-stack)))
 				   ((not (plusp (or (car (gethash binding var-counts)) 0)))