impl-corman.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
impl-corman.lisp (493B)
---
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)