Changeset 10210 for trunk/source/level-1/l1-lisp-threads.lisp

Timestamp:

Jul 27, 2008, 2:34:43 AM (11 years ago)

Author:

gb

Message:

THREAD-ENABLE: default timeout to ... 1 day, to avoid 32/64-bit issues
with MOST-POSITIVE-FIXNUM. (The foreign function we pass the timeout
to takes an :unsigned arg.)

File:

• trunk/source/level-1/l1-lisp-threads.lisp (modified) (1 diff)

trunk/source/level-1/l1-lisp-threads.lisp

@@ -398 +398 @@
         (cons function args)))
 
-(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout target::target-most-positive-fixnum))
+(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout (* 60 60 24)))
   (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
     (with-macptrs (s)