src/corman.lisp

   1 #|
   2 Copyright 2006, 2007 Greg Pfeil
   3
   4 Distributed under the MIT license (see LICENSE file)
   5 |#
   6
   7 (in-package #:bordeaux-threads)
   8
   9 ;;; Thread Creation
  10
  11 (defun make-thread (function &key name)
  12   (declare (ignore name))
  13   (threads:create-thread function))
  14
  15 (defun current-thread ()
  16   threads:*current-thread*)
  17
  18 ;;; Introspection/debugging
  19
  20 (defun destroy-thread (thread)
  21   (signal-error-if-current-thread thread)
  22   (threads:terminate-thread thread))
  23
  24 (mark-supported)