[movitz-cvs] CVS update: ia-x86/proglist.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	proglist.lisp 
Log Message:
Support integer labels.

Date: Tue Aug 10 03:12:53 2004
Author: ffjeld

Index: ia-x86/proglist.lisp
diff -u ia-x86/proglist.lisp:1.3 ia-x86/proglist.lisp:1.4
--- ia-x86/proglist.lisp:1.3	Mon Feb  9 16:04:04 2004
+++ ia-x86/proglist.lisp	Tue Aug 10 03:12:52 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon May 15 13:43:55 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: proglist.lisp,v 1.3 2004/02/10 00:04:04 ffjeld Exp $
+;;;; $Id: proglist.lisp,v 1.4 2004/08/10 10:12:52 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -182,7 +182,7 @@
   (loop for expr-rest on prog-list
       do (let ((expr (first expr-rest)))
 	   (etypecase expr
-	     (SYMBOL
+	     ((or SYMBOL integer)
 	      (setf (assemble-env-symtab env)
 		(symtab-def-label (assemble-env-symtab env)
 				  expr