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)