(no subject)
|
|
Passing PRINT-LENGTH.INIT.1 Index: src/org/armedbear/lisp/top-level.lisp =================================================================== --- src/org/armedbear/lisp/top-level.lisp (revision 12140) +++ src/org/armedbear/lisp/top-level.lisp (working copy) @@ -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) ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ armedbear-j-devel mailing list [hidden email] https://lists.sourceforge.net/lists/listinfo/armedbear-j-devel |
||||||||
PRINT-LENGTH.INIT.1.patch (957 bytes) | Free Embeddable Forum Powered by Nabble | Help |
