Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CL-USER> (defvar *pee* 42)
- *PEE*
- CL-USER> (bt:make-thread (lambda () *pee*))
- #<SB-THREAD:THREAD "Anonymous thread" FINISHED values: 42 {1008B72143}>
- CL-USER> (bt:make-thread (lambda () (loop (print *pee*) (sleep 5))))
- #<SB-THREAD:THREAD "Anonymous thread" RUNNING {1008B9B8B3}>
- 42
- CL-USER> (setf *pee* 69)
- 69
- 69
- 69
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement