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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Feb 18 21:41:34 2009
New Revision: 11667

Log:
Move the binding of *PRINT-LENGTH* outside of the inner REPL-loop;
  now it only gets re-bound upon the TOP-LEVEL restart.

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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Wed Feb 18 21:41:34 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)