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