Skip to content
Snippets Groups Projects
Commit ae7a97d8 authored by pw's avatar pw
Browse files

Fix some lossage from rev 1.58 causing read-byte on multi-byte element

types to fail.
parent 66b5d634
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.58 2002/02/04 17:22:14 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.59 2002/04/03 18:30:40 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -857,7 +857,7 @@ ...@@ -857,7 +857,7 @@
(eql size 4)) (eql size 4))
;; Support for n-byte operations on 8-, 16-, and 32-bit streams ;; Support for n-byte operations on 8-, 16-, and 32-bit streams
(setf (fd-stream-n-bin stream) #'fd-stream-read-n-bytes) (setf (fd-stream-n-bin stream) #'fd-stream-read-n-bytes)
(when buffer-p (when (and buffer-p (eql size 1))
(setf (lisp-stream-in-buffer stream) (setf (lisp-stream-in-buffer stream)
(make-array in-buffer-length (make-array in-buffer-length
:element-type '(unsigned-byte 8))))) :element-type '(unsigned-byte 8)))))
......
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