Changeset 7944

Timestamp:

Dec 25, 2007, 11:53:04 PM (17 years ago)

Author:

Gary Byers

Message:

Process-whostate is now the per-thread binding of *WHOSTATE*.

File:

• branches/working-0711/ccl/level-1/l1-aprims.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-aprims.lisp

@@ -49 +49 @@
 (def-standard-initial-binding *locks-pending* ())
 (def-standard-initial-binding *lock-conses* (make-list 20)))
-
+(def-standard-initial-binding *whostate* "Reset")
+(setq *whostate* "Active")
 
 (defun %badarg (arg type)