1 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
4 Copyright
2006, 2007 Greg Pfeil
6 Distributed under the MIT license
(see LICENSE file
)
9 (in-package #:bordeaux-threads
)
13 (defun make-thread (function &key name
)
14 (declare (ignore name
))
15 (threads:create-thread
(binding-default-specials function
)))
17 (defun current-thread ()
18 threads
:*current-thread
*)
20 ;;; Introspection/debugging
22 (defun destroy-thread (thread)
23 (signal-error-if-current-thread thread
)
24 (threads:terminate-thread thread
))