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

[Frode Vatvedt Fjeld]

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

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

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

Index: ia-x86/read.lisp
diff -u ia-x86/read.lisp:1.5 ia-x86/read.lisp:1.6
--- ia-x86/read.lisp:1.5	Mon Jun 21 00:33:50 2004
+++ ia-x86/read.lisp	Tue Aug 10 03:12:57 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Jul 31 13:54:27 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: read.lisp,v 1.5 2004/06/21 07:33:50 ffjeld Exp $
+;;;; $Id: read.lisp,v 1.6 2004/08/10 10:12:57 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -269,7 +269,7 @@
   (loop for expr in program
       if (null expr)
       do (error "Illegal NIL expr in program: ~S" program)
-      else if (symbolp expr)
+      else if (or (symbolp expr) (integerp expr))
       collect expr			; a label, collect it.
       else if (inline-data-p expr)
       collect (read-inline-data expr)	; inline data, read it.