src/impl-corman.lisp

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