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

Diff of /src/code/fd-stream.lisp

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

revision 1.59 by pw, Wed Apr 3 18:30:40 2002 UTC revision 1.60 by toy, Fri Aug 2 14:43:08 2002 UTC
# Line 857  Line 857 
857                    (eql size 4))                    (eql size 4))
858            ;; Support for n-byte operations on 8-, 16-, and 32-bit streams            ;; Support for n-byte operations on 8-, 16-, and 32-bit streams
859            (setf (fd-stream-n-bin stream) #'fd-stream-read-n-bytes)            (setf (fd-stream-n-bin stream) #'fd-stream-read-n-bytes)
860            (when (and buffer-p (eql size 1))            (when (and buffer-p (eql size 1)
861                         (or (eq type 'unsigned-byte)
862                             (eq type :default)))
863                ;; We only create this buffer for streams of type
864                ;; (unsigned-byte 8).  Because there's no buffer, the
865                ;; other element-types will dispatch to the appropriate
866                ;; input (output) routine in fast-read-byte.
867              (setf (lisp-stream-in-buffer stream)              (setf (lisp-stream-in-buffer stream)
868                    (make-array in-buffer-length                    (make-array in-buffer-length
869                                :element-type '(unsigned-byte 8)))))                                :element-type '(unsigned-byte 8)))))

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

  ViewVC Help
Powered by ViewVC 1.1.5