Changeset 10210 for trunk/source/level-1/l1-lisp-threads.lisp
- Timestamp:
- Jul 27, 2008, 2:34:43 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-lisp-threads.lisp
r10141 r10210 398 398 (cons function args))) 399 399 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))) 401 401 (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread)))) 402 402 (with-macptrs (s)
Note: See TracChangeset
for help on using the changeset viewer.