Changeset 6197

Timestamp:

Apr 7, 2007, 9:26:49 PM (18 years ago)

Author:

Gary Byers

Message:

DEFGLOBAL->DEFSTATIC.

READ-TOPLEVEL-FORM on ECHO-STREAM has do I/O on the echo stream (so
DRIBBLE works); on TWO-WAY-STREAM, should read from the input side so
that echoing looks more natural.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (5 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -4100 +4100 @@
   (index 0))
 
-(defglobal *string-output-stream-class* (make-built-in-class 'string-output-stream 'string-stream 'basic-character-output-stream))
-
-(defglobal *fill-pointer-string-output-stream-class* (make-built-in-class 'fill-pointer-string-output-stream 'string-output-stream))
+(defstatic *string-output-stream-class* (make-built-in-class 'string-output-stream 'string-stream 'basic-character-output-stream))
+
+(defstatic *fill-pointer-string-output-stream-class* (make-built-in-class 'fill-pointer-string-output-stream 'string-output-stream))
 
 (def-standard-initial-binding %string-output-stream-ioblocks% (%cons-pool nil))
@@ -4291 +4291 @@
 
 ;;;"Bounded" string output streams.
-(defglobal *truncating-string-output-stream-class* (make-built-in-class 'truncating-string-stream 'string-output-stream))
+(defstatic *truncating-string-output-stream-class* (make-built-in-class 'truncating-string-stream 'string-output-stream))
 
 (defun truncating-string-output-stream-ioblock-write-char (ioblock char)
@@ -4331 +4331 @@
 ;;;One way to indent on newlines:
 
-(defglobal *indenting-string-output-stream-class* (make-built-in-class 'indenting-string-output-stream 'string-output-stream))
+(defstatic *indenting-string-output-stream-class* (make-built-in-class 'indenting-string-output-stream 'string-output-stream))
 
 
@@ -4398 +4398 @@
 
 ;;; String input streams.
-(defglobal *string-input-stream-class* (make-built-in-class 'string-input-stream 'string-stream 'basic-character-input-stream))
+(defstatic *string-input-stream-class* (make-built-in-class 'string-input-stream 'string-stream 'basic-character-input-stream))
 
 (defstruct (string-input-stream-ioblock (:include string-stream-ioblock))
@@ -5578 +5578 @@
 
 (defmethod read-toplevel-form ((stream two-way-stream) eof-value)
-  (read-toplevel-form (two-way-stream-input-stream stream) eof-value))
+  (if (typep stream 'echo-stream)
+    (call-next-method)
+    (read-toplevel-form (two-way-stream-input-stream stream) eof-value)))
 
 (defmethod read-toplevel-form :after ((stream echoing-two-way-stream) eof-value)