/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

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

revision 1.82 by rtoy, Fri Nov 11 17:21:57 2005 UTC revision 1.83 by rtoy, Mon Aug 21 15:12:16 2006 UTC
# Line 2261  POSITION: an INTEGER greater than or equ Line 2261  POSITION: an INTEGER greater than or equ
2261  ;;; buffers.  ;;; buffers.
2262    
2263  (defparameter *read-into-simple-array-recognized-types*  (defparameter *read-into-simple-array-recognized-types*
2264    '((unsigned-byte 8)    '(base-char                           ; Character types are needed
2265                                            ; to support simple-stream
2266                                            ; semantics for read-vector
2267        character
2268        (unsigned-byte 8)
2269      (unsigned-byte 16)      (unsigned-byte 16)
2270      (unsigned-byte 32)      (unsigned-byte 32)
2271      (signed-byte 8)      (signed-byte 8)
# Line 2310  POSITION: an INTEGER greater than or equ Line 2314  POSITION: an INTEGER greater than or equ
2314            ((not (member stream-et            ((not (member stream-et
2315                          *read-into-simple-array-recognized-types*                          *read-into-simple-array-recognized-types*
2316                          :test #'equal))                          :test #'equal))
2317             ;; (format t ">>> Reading vector from binary stream of type ~S~%"             #+nil
2318             ;;         stream-et)             (format t ">>> Reading vector from binary stream of type ~S~%"
2319                       stream-et)
2320    
2321             ;; We resort to the READ-BYTE based operation.             ;; We resort to the READ-BYTE based operation.
2322             (read-into-vector s stream start end))             (read-into-vector s stream start end))

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

  ViewVC Help
Powered by ViewVC 1.1.5