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.