Changeset 11667

Timestamp:

02/18/09 21:41:34 (14 years ago)

Author:

ehuelsmann

Message:

Move the binding of *PRINT-LENGTH* outside of the inner REPL-loop;

now it only gets re-bound upon the TOP-LEVEL restart.

File:

• trunk/abcl/src/org/armedbear/lisp/top-level.lisp (modified) (1 diff)

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

@@ -402 +402 @@
 
 (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 ()