[armedbear-cvs] r11669 - branches/0.13.x/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Thu Feb 19 07:30:45 2009
New Revision: 11669

Log:
Merged fix from r11667 for toplevel REPL bad interaction with *PRINT-LEVEL.


Modified:
   branches/0.13.x/abcl/src/org/armedbear/lisp/top-level.lisp

Modified: branches/0.13.x/abcl/src/org/armedbear/lisp/top-level.lisp
==============================================================================
--- branches/0.13.x/abcl/src/org/armedbear/lisp/top-level.lisp	(original)
+++ branches/0.13.x/abcl/src/org/armedbear/lisp/top-level.lisp	Thu Feb 19 07:30:45 2009
@@ -401,13 +401,13 @@
 (defparameter *repl-read-form-fun* #'repl-read-form-fun)
 
 (defun repl (&optional (in *standard-input*) (out *standard-output*))
-  (loop
-    (let* ((form (funcall *repl-read-form-fun* in out))
-           (results (multiple-value-list (sys:interactive-eval form)))
-           (*print-length* 10))
-      (dolist (result results)
-        (fresh-line out)
-        (prin1 result out)))))
+  (let* ((*print-length* 10))
+    (loop
+       (let* ((form (funcall *repl-read-form-fun* in out))
+              (results (multiple-value-list (sys:interactive-eval form))))
+         (dolist (result results)
+           (fresh-line out)
+           (prin1 result out))))))
 
 (defun top-level-loop ()
   (fresh-line)