Changeset 8264


Ignore:
Timestamp:
Jan 25, 2008, 7:48:56 AM (12 years ago)
Author:
gb
Message:

Use IGNORING-EINTR in FD-READ, FD-WRITE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-io.lisp

    r7624 r8264  
    162162;;; write nbytes bytes from buffer buf to file-descriptor fd.
    163163(defun fd-write (fd buf nbytes)
    164   (syscall syscalls::write fd buf nbytes))
     164  (ignoring-eintr (syscall syscalls::write fd buf nbytes)))
    165165
    166166(defun fd-read (fd buf nbytes)
    167   (loop
    168     (let* ((n  (syscall syscalls::read fd buf nbytes)))
    169       (unless (eql n (- #$EINTR)) (return n)))))
     167  (ignoring-eintr (syscall syscalls::read fd buf nbytes)))
    170168
    171169
Note: See TracChangeset for help on using the changeset viewer.