/[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.58 by toy, Mon Feb 4 17:22:14 2002 UTC revision 1.59 by pw, Wed Apr 3 18:30:40 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 buffer-p            (when (and buffer-p (eql size 1))
861              (setf (lisp-stream-in-buffer stream)              (setf (lisp-stream-in-buffer stream)
862                    (make-array in-buffer-length                    (make-array in-buffer-length
863                                :element-type '(unsigned-byte 8)))))                                :element-type '(unsigned-byte 8)))))

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

  ViewVC Help
Powered by ViewVC 1.1.5