From 68c6afce19df6a92b0569a23bcfe3a73f109b754 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 25 Mar 2008 21:33:58 +0000 Subject: * interp/bootlex.lisp: Import "sys-globals". Consistently use $InputStream and $OutputStream for I/O. * interp/c-util.boot: Likewise. * interp/comp.lisp: Likewise. * interp/compat.boot: Likewise. * interp/debug.lisp: Likewise. * interp/def.lisp: Likewise. * interp/g-error.boot: Likewise. * interp/i-toplev.boot: Likewise. * interp/int-top.boot: Likewise. * interp/intfile.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/macros.lisp: Likewise. * interp/metalex.lisp: Likewise. * interp/msgdb.boot: Likewise. * interp/patches.lisp: Likewise. * interp/preparse.lisp: Likewise. * interp/server.boot: Likewise. * interp/spad-parser.boot: Likewise. * interp/spad.lisp: Likewise. * interp/sys-globals.boot: Likewise. * interp/sys-macros.lisp: Likewise. * interp/sys-os.boot: Likewise. * interp/unlisp.lisp: Likewise. * interp/vmlisp.lisp: Likewise. * interp/Makefile.pamphlet (bootlex.$(FASLEXT)): Require sys-globals.$(FASLEXT) too. (vmlisp.$(FASLEXT)): Likewise. --- src/interp/unlisp.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/unlisp.lisp') 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) ) -- cgit v1.2.3