Changeset 12147


Ignore:
Timestamp:
09/17/09 17:08:32 (12 years ago)
Author:
vvoutilainen
Message:

Fix PRINT-LENGTH.INIT.1.

File:
1 edited

Legend:

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

    r12105 r12147  
    407407
    408408(defun repl (&optional (in *standard-input*) (out *standard-output*))
    409   (let* ((*print-length* 10))
    410409    (loop
    411410       (let* ((form (funcall *repl-read-form-fun* in out))
     
    413412         (dolist (result results)
    414413           (fresh-line out)
    415            (prin1 result out))))))
     414           (prin1 result out)))))
    416415
    417416(defun top-level-loop ()
Note: See TracChangeset for help on using the changeset viewer.