diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-20 15:30:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-20 15:30:34 +0000 |
| commit | d24b317b0c64df7f9169de68bef6c200786c7491 (patch) | |
| tree | 73f9259940eccf39337f6c8484bf9ee526463680 /src | |
| parent | c96ac1e9ec3aae8744293a052d85d7decddcd52a (diff) | |
| download | open-axiom-d24b317b0c64df7f9169de68bef6c200786c7491.tar.gz | |
Fix build breakage with CLozure CL.
* lisp/core.lisp.in ($stdin): Demote to DEFPARAMETER.
($stdout): Likewise.
Diffstat (limited to 'src')
| -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*)) |