Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv13376
Modified Files: compiler.lisp Log Message: Small fix to "unused variable" warning.
Date: Wed Jul 21 15:26:55 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.80 movitz/compiler.lisp:1.81 --- movitz/compiler.lisp:1.80 Tue Jul 20 05:59:53 2004 +++ movitz/compiler.lisp Wed Jul 21 15:26:55 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.80 2004/07/20 12:59:53 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.81 2004/07/21 22:26:55 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -2821,7 +2821,8 @@ (unless (or (movitz-env-get variable 'ignore nil env nil) (movitz-env-get variable 'ignorable nil env nil) (typep binding 'hidden-rest-function-argument)) - (warn "Unused variable: ~S" binding))))) + (warn "Unused variable: ~S" + (binding-name binding)))))) collect binding)) (bindings-fun-arg-sorted (when (eq env function-env) @@ -5884,7 +5885,7 @@ (and (typep binding 'forwarding-binding) (recursive-located-p (forwarding-binding-target b)))))) (recursive-located-p binding))) - (warn "Unused variable: ~S." binding))) + (warn "Unused variable: ~S." (binding-name binding)))) ((typep binding 'forwarding-binding) ;; No need to do any initialization because the target will be initialized. (assert (not (binding-lended-p binding)))