Changeset 11778


Ignore:
Timestamp:
Feb 24, 2009, 2:58:56 AM (10 years ago)
Author:
gz
Message:

r11758 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-sockets.lisp

    r11267 r11778  
    12901290
    12911291(defun c_sendto (sockfd msgptr len flags addrp addrlen)
    1292   (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen)))
     1292  (ignoring-eintr (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen))))
    12931293
    12941294(defun c_recvfrom (sockfd bufptr len flags addrp addrlenp)
    1295   (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp)))
     1295  (ignoring-eintr (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp))))
    12961296
    12971297(defun c_shutdown (sockfd how)
Note: See TracChangeset for help on using the changeset viewer.