/[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.41 by dtc, Sat Dec 27 12:33:07 1997 UTC revision 1.42 by dtc, Sun Jan 4 22:46:41 1998 UTC
# Line 484  Line 484 
484        (case count        (case count
485          (1)          (1)
486          (0          (0
487           (unless (system:wait-until-fd-usable           (unless #-mp (system:wait-until-fd-usable
488                    fd :input (fd-stream-timeout stream))                         fd :input (fd-stream-timeout stream))
489                     #+mp (mp:process-wait-until-fd-usable
490                           fd :input (fd-stream-timeout stream))
491             (error 'io-timeout :stream stream :direction :read)))             (error 'io-timeout :stream stream :direction :read)))
492          (t          (t
493           (error "Problem checking to see if ~S is readable: ~A"           (error "Problem checking to see if ~S is readable: ~A"
494                  stream                  stream
495                  (unix:get-unix-error-msg errno)))))                  (unix:get-unix-error-msg errno)))))
496      (multiple-value-bind      (multiple-value-bind
497          (count errno)            (count errno)
498          (unix:unix-read fd          (unix:unix-read fd
499                          (system:int-sap (+ (system:sap-int ibuf-sap) tail))                          (system:int-sap (+ (system:sap-int ibuf-sap) tail))
500                          (- buflen tail))                          (- buflen tail))
501        (cond ((null count)        (cond ((null count)
502               (if (eql errno unix:ewouldblock)               (if (eql errno unix:ewouldblock)
503                   (progn                   (progn
504                     (unless (system:wait-until-fd-usable                     (unless #-mp (system:wait-until-fd-usable
505                              fd :input (fd-stream-timeout stream))                                   fd :input (fd-stream-timeout stream))
506                               #+mp (mp:process-wait-until-fd-usable
507                                     fd :input (fd-stream-timeout stream))
508                       (error 'io-timeout :stream stream :direction :read))                       (error 'io-timeout :stream stream :direction :read))
509                     (do-input stream))                     (do-input stream))
510                   (error "Error reading ~S: ~A"                   (error "Error reading ~S: ~A"

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

  ViewVC Help
Powered by ViewVC 1.1.5