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

[Frode Vatvedt Fjeld]

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