SHARE
TWEET

Untitled

a guest Aug 25th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CL-USER> (defvar *pee* 42)
  2. *PEE*
  3. CL-USER> (bt:make-thread (lambda () *pee*))
  4. #<SB-THREAD:THREAD "Anonymous thread" FINISHED values: 42 {1008B72143}>
  5. CL-USER> (bt:make-thread (lambda () (loop (print *pee*) (sleep 5))))
  6. #<SB-THREAD:THREAD "Anonymous thread" RUNNING {1008B9B8B3}>
  7.  
  8. 42
  9. CL-USER> (setf *pee* 69)
  10.  
  11. 69
  12.  
  13. 69
  14. 69
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top