Skip to content

Instantly share code, notes, and snippets.

@Munksgaard

Munksgaard/gist:944522

Created April 27, 2011 15:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Munksgaard/944522 to your computer and use it in GitHub Desktop.
Save Munksgaard/944522 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.cl
(require :bordeaux-threads)
(defparameter *tmp* nil)
(defun threadfun ()
(declare (ignorable *tmp*))
(princ "printing *tmp*")
(print *tmp*)
(finish-output)
*tmp*)
(defun bob ()
(let* ((bordeaux-threads:*default-special-bindings*
(acons '*tmp* 42
bordeaux-threads:*default-special-bindings*)))
(bordeaux-threads:make-thread #'threadfun)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment