YAY#
Thu, 12 Dec 2002 03:52:13 +0000
YAY
- (defvar foo nil)
- FOO*
- (defun thread-nnop () (loop (setf foo (not foo)) (sleep 1)))
- (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
- 1
- foo
- foo
- foo
- foo
- foo
- foo
NIL
The answer, in case you were wondering, is "extremely cool"