Changeset 6197


Ignore:
Timestamp:
Apr 8, 2007, 4:26:49 AM (12 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-streams.lisp

    r6115 r6197  
    41004100  (index 0))
    41014101
    4102 (defglobal *string-output-stream-class* (make-built-in-class 'string-output-stream 'string-stream 'basic-character-output-stream))
    4103 
    4104 (defglobal *fill-pointer-string-output-stream-class* (make-built-in-class 'fill-pointer-string-output-stream 'string-output-stream))
     4102(defstatic *string-output-stream-class* (make-built-in-class 'string-output-stream 'string-stream 'basic-character-output-stream))
     4103
     4104(defstatic *fill-pointer-string-output-stream-class* (make-built-in-class 'fill-pointer-string-output-stream 'string-output-stream))
    41054105
    41064106(def-standard-initial-binding %string-output-stream-ioblocks% (%cons-pool nil))
     
    42914291
    42924292;;;"Bounded" string output streams.
    4293 (defglobal *truncating-string-output-stream-class* (make-built-in-class 'truncating-string-stream 'string-output-stream))
     4293(defstatic *truncating-string-output-stream-class* (make-built-in-class 'truncating-string-stream 'string-output-stream))
    42944294
    42954295(defun truncating-string-output-stream-ioblock-write-char (ioblock char)
     
    43314331;;;One way to indent on newlines:
    43324332
    4333 (defglobal *indenting-string-output-stream-class* (make-built-in-class 'indenting-string-output-stream 'string-output-stream))
     4333(defstatic *indenting-string-output-stream-class* (make-built-in-class 'indenting-string-output-stream 'string-output-stream))
    43344334
    43354335
     
    43984398
    43994399;;; String input streams.
    4400 (defglobal *string-input-stream-class* (make-built-in-class 'string-input-stream 'string-stream 'basic-character-input-stream))
     4400(defstatic *string-input-stream-class* (make-built-in-class 'string-input-stream 'string-stream 'basic-character-input-stream))
    44014401
    44024402(defstruct (string-input-stream-ioblock (:include string-stream-ioblock))
     
    55785578
    55795579(defmethod read-toplevel-form ((stream two-way-stream) eof-value)
    5580   (read-toplevel-form (two-way-stream-input-stream stream) eof-value))
     5580  (if (typep stream 'echo-stream)
     5581    (call-next-method)
     5582    (read-toplevel-form (two-way-stream-input-stream stream) eof-value)))
    55815583
    55825584(defmethod read-toplevel-form :after ((stream echoing-two-way-stream) eof-value)
Note: See TracChangeset for help on using the changeset viewer.