Commit 56b2860d authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

*** empty log message ***

parent 0a652ad1
......@@ -9,7 +9,7 @@
;;;; Created at: Mon Jul 31 13:54:27 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: read.lisp,v 1.6 2004/08/10 10:12:57 ffjeld Exp $
;;;; $Id: read.lisp,v 1.7 2004/09/02 09:02:58 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -304,7 +304,7 @@ a proglist: A list of INSTRUCTION objects."
(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"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment