Skip to content
Snippets Groups Projects
Commit 6e3410cf authored by toy's avatar toy
Browse files

Remove the explicit test for stream element type of character. Was

preventing us from reading from string-streams, among other things.
parent 13c8109c
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.59 2003/03/17 10:36:42 emarsden Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.60 2003/03/19 03:31:24 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -2001,7 +2001,11 @@ POSITION: an INTEGER greater than or equal to zero, and less than or
(declare (type stream stream))
(declare (type index start end))
(let ((stream-et (stream-element-type stream)))
(cond ((subtypep (stream-element-type stream) 'character)
;; What is the purpose of this explicit test for characters? It
;; prevents reading a string-stream into a vector, like the
;; example in the CLHS.
(cond #+nil
((subtypep (stream-element-type stream) 'character)
(error 'type-error
:datum (read-byte stream nil 0)
:expected-type (stream-element-type stream) ; Bogus?!?
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment