impl-corman.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP (HTM) 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)