Changeset 14326

Timestamp:

Oct 4, 2010, 8:00:42 PM (14 years ago)

Author:

Gary Byers

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:

• trunk/source/level-1/linux-files.lisp (modified) (1 diff)

trunk/source/level-1/linux-files.lisp

@@ -181 +181 @@
 
 (defun wait-for-signal (s duration)
+  (if duration
+    (check-type duration (real 0 #x7fffffff))
+    (setq duration #x7fffffff))
   (or (multiple-value-bind (result err)
           (%timed-wait-for-signal s 0 0)
         (or result
-            (if (or (eql err #$EINTR)
+            (if (or (eql err #$EINTR) ; probably not possible
                     (eql err #-windows-target #$ETIMEDOUT #+windows-target #$WAIT_TIMEOUT))
               nil