3rdparties/software/bordeaux-threads-v0.8.7/src/impl-corman.lisp (493 bytes)
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)