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)))