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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
A small fix to assign-bindings so that certain lambda-variables are
not erroneously assumed to be used when they really aren't.

Date: Sun Mar 28 10:09:27 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.36 movitz/compiler.lisp:1.37
--- movitz/compiler.lisp:1.36	Thu Mar 25 20:34:13 2004
+++ movitz/compiler.lisp	Sun Mar 28 10:09:27 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.36 2004/03/26 01:34:13 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.37 2004/03/28 15:09:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2618,7 +2618,8 @@
 				   ((typep binding 'constant-object-binding))
 				   ((typep binding 'forwarding-binding))
 				   ((typep binding 'borrowed-binding))
-				   ((typep binding 'fixed-required-function-argument)
+				   ((and (typep binding 'fixed-required-function-argument)
+					 (plusp (or (car (gethash binding var-counts)) 0)))
 				    (prog1 nil ; may need lending-cons
 				      (setf (new-binding-location binding frame-map)
 					:argument-stack)))