aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/comp.lisp6
2 files changed, 7 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 7ab9ec79..f97bc732 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-28 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/comp.lisp: Fix thinko.
+
2008-03-27 Gabriel Dos Reis <gdr@cs.tamu.edu>
* interp/int-top.boot (intloopReadConsole): Use $InputStream.
diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp
index 870bcb63..f2bb2a91 100644
--- a/src/interp/comp.lisp
+++ b/src/interp/comp.lisp
@@ -94,7 +94,7 @@
(|$OutputStream|
(if |$InteractiveMode|
(make-broadcast-stream)
- (make-synonym-stream *standard-output*))))
+ (make-synonym-stream '*standard-output*))))
(COMP fn)))
#-:CCL
@@ -103,7 +103,7 @@
;; following creates a null outputstream if $InteractiveMode
(|$OutputStream|
(if |$InteractiveMode| (make-broadcast-stream)
- (make-synonym-stream *standard-output*))))
+ (make-synonym-stream '*standard-output*))))
(COMPILE-FILE fn)))
#+:CCL
@@ -165,7 +165,7 @@
(|$OutputStream|
(if |$InteractiveMode|
(make-broadcast-stream)
- (make-synonym-stream *standard-output*))))
+ (make-synonym-stream '*standard-output*))))
(COMP370 fn)))
(defun COMP-1 (X)