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"