/[cmucl]/src/pcl/gray-streams.lisp
ViewVC logotype

Diff of /src/pcl/gray-streams.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.2.2 by dtc, Tue Jun 6 10:05:06 2000 UTC revision 1.2.2.3 by pw, Sat Mar 23 18:51:18 2002 UTC
# Line 188  Line 188 
188  (defmethod stream-clear-input ((stream fundamental-character-input-stream))  (defmethod stream-clear-input ((stream fundamental-character-input-stream))
189    nil)    nil)
190    
191    (defgeneric stream-read-sequence (stream seq &optional start end)
192      (:documentation
193       "Implements READ-SEQUENCE for the stream."))
194    
195    
196  ;;; Character output streams.  ;;; Character output streams.
197  ;;;  ;;;
# Line 319  Line 323 
323            (stream-write-char stream #\Space)))            (stream-write-char stream #\Space)))
324        T)))        T)))
325    
326    (defgeneric stream-write-sequence (stream seq &optional start end)
327      (:documentation
328       "Implements WRITE-SEQUENCE for the stream."))
329    
330    
331  ;;; Binary streams.  ;;; Binary streams.
332  ;;;  ;;;
# Line 412  Line 420 
420    
421  (defmethod stream-clear-input ((stream character-input-stream))  (defmethod stream-clear-input ((stream character-input-stream))
422    (clear-input (character-input-stream-lisp-stream stream)))    (clear-input (character-input-stream-lisp-stream stream)))
423    
424    ;; Announce ourselves to the world
425    (pushnew :gray-streams *features*)
426    
427    (setf (getf ext:*herald-items* :gray-streams)
428          '("    Gray Streams Protocol Support"))
429    

Legend:
Removed from v.1.2.2.2  
changed lines
  Added in v.1.2.2.3

  ViewVC Help
Powered by ViewVC 1.1.5