Ignore:
Timestamp:
01/13/10 19:55:22 (12 years ago)
Author:
ehuelsmann
Message:

Change parents of FUNDAMENTAL-STREAM in Gray streams.

Note: includes experimental removal of override of TWO-WAY-STREAM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

    r12187 r12373  
    180180      (funcall *old-streamp* stream)))
    181181
    182 (defclass fundamental-stream ())
     182(defclass fundamental-stream (standard-object stream))
    183183
    184184(defgeneric gray-close (stream &key abort))
     
    546546      (stream-read-sequence stream sequence start end)))
    547547
    548 (defstruct two-way-stream-g
     548#|
     549(defstruct (two-way-stream-g (:include stream))
    549550  input-stream output-stream)
    550551
     
    563564      (funcall *old-two-way-stream-output-stream* stream)
    564565      (two-way-stream-g-output-stream stream)))
     566
     567|#
    565568
    566569(setf (symbol-function 'common-lisp::read-char) #'gray-read-char)
     
    590593(setf (symbol-function 'common-lisp::read-sequence) #'gray-read-sequence)
    591594(setf (symbol-function 'common-lisp::write-sequence) #'gray-write-sequence)
     595
     596#|
    592597(setf (symbol-function 'common-lisp::make-two-way-stream) #'gray-make-two-way-stream)
    593598(setf (symbol-function 'common-lisp::two-way-stream-input-stream) #'gray-two-way-stream-input-stream)
    594599(setf (symbol-function 'common-lisp::two-way-stream-output-stream) #'gray-two-way-stream-output-stream)
     600|#
    595601
    596602(provide 'gray-streams)
Note: See TracChangeset for help on using the changeset viewer.