From 6e3410cf9bf032c28e74424ade49007abd88c853 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 19 Mar 2003 03:31:24 +0000
Subject: [PATCH] Remove the explicit test for stream element type of
 character.  Was preventing us from reading from string-streams, among other
 things.

---
 code/stream.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/code/stream.lisp b/code/stream.lisp
index 01c588a2a..1a58b669b 100644
--- a/code/stream.lisp
+++ b/code/stream.lisp
@@ -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?!?
-- 
GitLab