[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-serv22981

Modified Files:
	read.lisp 
Log Message:
*** empty log message ***
Date: Wed Nov 10 16:36:15 2004
Author: ffjeld

Index: ia-x86/read.lisp
diff -u ia-x86/read.lisp:1.7 ia-x86/read.lisp:1.8
--- ia-x86/read.lisp:1.7	Thu Sep  2 11:02:58 2004
+++ ia-x86/read.lisp	Wed Nov 10 16:36:15 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.7 2004/09/02 09:02:58 ffjeld Exp $
+;;;; $Id: read.lisp,v 1.8 2004/11/10 15:36:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -304,7 +304,7 @@
 		     (list* i (read-proglist-internal sub-programs
 						      :do-append-programs do-append-programs)))
 		 ;; nothing to insert other than i itself..
-		 (list i)))
+		 (when i (list i))))
       finally (assert (= (length *programs-to-append*)
 			 *already-appended*) ()
 		"Dangling sub-programs to append: ~S"