Ignore:
Timestamp:
Jul 27, 2008, 6:35:02 PM (13 years ago)
Author:
gb
Message:

Propagate recent changes from trunk:

l1-aprims.lisp: static value of *WHOSTATE* is "Reset".
l1-io.lisp: use stack-allocated temporary buffer in WRITE-PNAME.
l1-lisp-threads.lisp: in THREAD-ENABLE, default "wait" to 1 day.
l1-processes.lisp: PROCESS-WHOSTATE detects and handles static binding

of *WHOSTATE*. PROCESS-ENABLE waits for 1 day, which is effectively
infinite and avoids word-size issues.

File:
1 edited

Legend:

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

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