Changeset 14326


Ignore:
Timestamp:
Oct 5, 2010, 3:00:42 AM (9 years ago)
Author:
gb
Message:

As suggested by Scott Burson: WAIT-ON-SIGNAL accepts a null DURATION
(which means "wait as long as we can express", which seems to be
"many years".)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r14322 r14326  
    181181
    182182(defun wait-for-signal (s duration)
     183  (if duration
     184    (check-type duration (real 0 #x7fffffff))
     185    (setq duration #x7fffffff))
    183186  (or (multiple-value-bind (result err)
    184187          (%timed-wait-for-signal s 0 0)
    185188        (or result
    186             (if (or (eql err #$EINTR)
     189            (if (or (eql err #$EINTR) ; probably not possible
    187190                    (eql err #-windows-target #$ETIMEDOUT #+windows-target #$WAIT_TIMEOUT))
    188191              nil
Note: See TracChangeset for help on using the changeset viewer.