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