diff options
Diffstat (limited to 'src/interp/unlisp.lisp')
| -rw-r--r-- | src/interp/unlisp.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/unlisp.lisp b/src/interp/unlisp.lisp index 730e4d06..640d99bc 100644 --- a/src/interp/unlisp.lisp +++ b/src/interp/unlisp.lisp @@ -94,7 +94,7 @@ (format *query-io* "~a" line) (when readfn (apply readfn (list *query-io*))) ) -(defun |PrettyPrint| (expr &optional (outstream *standard-output*)) +(defun |PrettyPrint| (expr &optional (outstream |$OutputStream|)) (write expr :stream outstream :level nil :length nil :pretty 't :escape 't) (finish-output outstream) ) |