From 8bfbe53c857f35f56bbc35b101d74aee6e35bdf0 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 21 Aug 2006 15:12:16 +0000
Subject: [PATCH] Add BASE-CHAR and CHARACTER to
 *READ-INTO-SIMPLE-ARRAY-RECOGNIZED-TYPES* so that READ-VECTOR can read binary
 data from streams of those types.  Fixes Trace ticket 7.

---
 code/stream.lisp | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/code/stream.lisp b/code/stream.lisp
index 83164ab8b..b365072c5 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.82 2005/11/11 17:21:57 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.83 2006/08/21 15:12:16 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2261,7 +2261,11 @@ POSITION: an INTEGER greater than or equal to zero, and less than or
 ;;; buffers.
 
 (defparameter *read-into-simple-array-recognized-types*
-  '((unsigned-byte 8)
+  '(base-char				; Character types are needed
+					; to support simple-stream
+					; semantics for read-vector
+    character
+    (unsigned-byte 8)
     (unsigned-byte 16)
     (unsigned-byte 32)
     (signed-byte 8)
@@ -2310,8 +2314,9 @@ POSITION: an INTEGER greater than or equal to zero, and less than or
 	  ((not (member stream-et
 			*read-into-simple-array-recognized-types*
 			:test #'equal))
-	   ;; (format t ">>> Reading vector from binary stream of type ~S~%"
-	   ;;         stream-et)
+	   #+nil
+	   (format t ">>> Reading vector from binary stream of type ~S~%"
+		   stream-et)
 	   
 	   ;; We resort to the READ-BYTE based operation.
 	   (read-into-vector s stream start end))
-- 
GitLab