What am I doing wrong defining my READ-SEQUENCE method
in Gray streams? It doesn't seem to be calling my method.
Have I just got the signature wrong or something?
------------
(defclass my-stream (ext:fundamental-binary-input-stream
ext:fundamental-binary-output-stream
ext:fundamental-character-input-stream
ext:fundamental-character-output-stream)
((stream :initarg :stream
:reader get-stream)))
(defmethod ext:stream-read-byte ((stream my-stream))
(read-char (get-stream stream) nil :eof))
(defmethod ext:stream-read-sequence ((stream my-stream)
sequence &optional (start 0) (end nil))
(break "Calling Gray READ-SEQUENCE"))
------------
CMU Common Lisp 18d, running on antarctica
Send questions to [EMAIL PROTECTED] and bug reports to [EMAIL PROTECTED]
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
Gray Streams Protocol Support
*
;;; my-stream definitions entered via ilisp
* (setq foo (make-instance 'my-stream :stream *terminal-io*))
Warning: Declaring FOO special.
#<MY-STREAM {48124EED}>
* (read-byte foo)
a
#\a
* (read-sequence "abcdef" foo)
Condition STREAM-ERROR was signalled.
(READ-SEQUENCE "abcdef" #<MY-STREAM {48124EED}> :START 0 ...)
0] back
0: (READ-SEQUENCE "abcdef" #<MY-STREAM {48124EED}> :START 0 ...)
1: (INTERACTIVE-EVAL (READ-SEQUENCE "abcdef" FOO))
2: (COMMON-LISP::%TOP-LEVEL)
3: (COMMON-LISP::RESTART-LISP)
0]
