[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv26975

Modified Files:
	asm.lisp 
Log Message:
Fix unused variable.


--- /project/movitz/cvsroot/movitz/asm.lisp	2008/03/06 19:18:51	1.17
+++ /project/movitz/cvsroot/movitz/asm.lisp	2008/03/14 11:07:47	1.18
@@ -6,7 +6,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: asm.lisp,v 1.17 2008/03/06 19:18:51 ffjeld Exp $
+;;;; $Id: asm.lisp,v 1.18 2008/03/14 11:07:47 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -289,7 +289,7 @@
 												symtab)))))
 								     `(quote ,(car entry)))))))))))))
     (values (loop for (pc data-instruction) on proglist0 by #'cddr
-	       for (data . instruction) = data-instruction
+	       for instruction = (cdr data-instruction)
 	       for label = (when collect-labels
 			     (rassoc pc symtab))
 	       when label