YAY#

Thu Dec 12 03:52:13 2002

YAY

* (defvar *foo* nil)

*FOO*
* (defun thread-nnop () (loop (setf *foo* (not *foo*)) (sleep 1)))

THREAD-NNOP
* (make-thread #'thread-nnop)
child pid is 15070

#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X4095F000>
* /pausing 15070 before entering funcall0(0x9269615)
/entering funcall0(0x9269615)
9

9
* 1

1
* *foo*

NIL
* *foo*

T
* *foo*

T
* *foo*

NIL
* *foo*

T
* *foo*

NIL

The answer, in case you were wondering, is "extremely cool"