diff options
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 3 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
3 files changed, 8 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 3a025966..6ba9d8bb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2012-05-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix build breakage with CLozure CL. + * lisp/core.lisp.in ($stdin): Demote to DEFPARAMETER. + ($stdout): Likewise. + +2012-05-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/ast.boot (shoeCompTran): Simplify. (shoeCompTran1): Partially defer translation of fluid variable definition. diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index 69b3ff63..397bd16e 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -401,9 +401,6 @@ $texOutputStream := MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" $fortranOutputStream := MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" -conOutStream := - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - --% ++ True if we are building the system algebra. diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index d793da9a..4931c386 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -529,8 +529,8 @@ ;; -*- File IO -*- -(defconstant |$stdout| *standard-output*) -(defconstant |$stdin| *standard-input*) +(defparameter |$stdout| *standard-output*) +(defparameter |$stdin| *standard-input*) (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) (defparameter |$OutputStream| (make-synonym-stream '*standard-output*)) |