[armedbear-cvs] r14071 - trunk/abcl/src/org/armedbear/lisp

[vvoutilainen at common-lisp.net]

Author: vvoutilainen
Date: Sat Aug 11 12:06:01 2012
New Revision: 14071

Log:
correct #195

Modified:
   trunk/abcl/src/org/armedbear/lisp/top-level.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/top-level.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Sat Aug 11 05:07:52 2012	(r14070)
+++ trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Sat Aug 11 12:06:01 2012	(r14071)
@@ -389,7 +389,7 @@
            (read-line stream)
            *null-cmd*)
           (t
-           (read stream nil)))))
+           (read stream nil *null-cmd*)))))
 
 (defun repl-read-form-fun (in out)
   (loop