Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-lisp-threads.lisp

    r10141 r10210  
    398398        (cons function args)))
    399399
    400 (defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout target::target-most-positive-fixnum))
     400(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout (* 60 60 24)))
    401401  (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
    402402    (with-macptrs (s)
Note: See TracChangeset for help on using the changeset viewer.