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

[Ville Voutilainen]

Author: vvoutilainen
Date: Thu Sep 17 13:08:32 2009
New Revision: 12147

Log:
Fix PRINT-LENGTH.INIT.1.


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	Thu Sep 17 13:08:32 2009
@@ -406,13 +406,12 @@
 (defparameter *repl-read-form-fun* #'repl-read-form-fun)
 
 (defun repl (&optional (in *standard-input*) (out *standard-output*))
-  (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))))))
+           (prin1 result out)))))
 
 (defun top-level-loop ()
   (fresh-line)