diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-17 22:31:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-17 22:31:54 +0000 |
| commit | 24d0e78582cacadeb56a0e0efdd41ce5ff3a9354 (patch) | |
| tree | 7951b428f5aad10c800f7cc6b106e3a6ca4c3175 /src/lisp | |
| parent | 16106617d450060382974643a59ecd481efe5bca (diff) | |
| download | open-axiom-24d0e78582cacadeb56a0e0efdd41ce5ff3a9354.tar.gz | |
more cleanup
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 74f43cf1..f533a4a8 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -503,7 +503,10 @@ ;; Pretty-print a lisp form on a given output stream. (defun |prettyPrint| (x &optional (s |$OutputStream|)) (let ((*print-pretty* t) - (*print-array* t)) + (*print-array* t) + (*print-circle* t) + (*print-length* nil) + (*print-level* nil)) (prin1 x s))) ;; |