/[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.42 by dtc, Sun Jul 23 14:58:46 2000 UTC revision 1.43 by dtc, Sun Jul 23 14:59:43 2000 UTC
# Line 1687  Line 1687 
1687             ((or (simple-array (unsigned-byte 8) (*))             ((or (simple-array (unsigned-byte 8) (*))
1688                  (simple-array (signed-byte 8) (*))                  (simple-array (signed-byte 8) (*))
1689                  simple-string)                  simple-string)
1690              (let* ((numbytes (- end start))              (let ((required (- end start)))
1691                     (bytes-read (system:read-n-bytes                (loop
1692                                  stream data offset-start numbytes nil)))                 (let ((bytes-read (system:read-n-bytes stream data offset-start
1693                (if (< bytes-read numbytes)                                                        required nil)))
1694                    (+ start bytes-read)                   (cond ((= bytes-read required)
1695                    end)))                          (return end))
1696                           ((zerop bytes-read)
1697                            (return (- end required)))
1698                           (t
1699                            (decf required bytes-read)
1700                            (incf offset-start bytes-read)))))))
1701             (t             (t
1702              (let ((read-function              (let ((read-function
1703                     (if (subtypep (stream-element-type stream) 'character)                     (if (subtypep (stream-element-type stream) 'character)

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

  ViewVC Help
Powered by ViewVC 1.1.5