Changeset 11667


Ignore:
Timestamp:
02/18/09 21:41:34 (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/top-level.lisp

    r11391 r11667  
    402402
    403403(defun repl (&optional (in *standard-input*) (out *standard-output*))
    404   (loop
    405     (let* ((form (funcall *repl-read-form-fun* in out))
    406            (results (multiple-value-list (sys:interactive-eval form)))
    407            (*print-length* 10))
    408       (dolist (result results)
    409         (fresh-line out)
    410         (prin1 result out)))))
     404  (let* ((*print-length* 10))
     405    (loop
     406       (let* ((form (funcall *repl-read-form-fun* in out))
     407              (results (multiple-value-list (sys:interactive-eval form))))
     408         (dolist (result results)
     409           (fresh-line out)
     410           (prin1 result out))))))
    411411
    412412(defun top-level-loop ()
Note: See TracChangeset for help on using the changeset viewer.