Changeset 15634

Timestamp:

02/08/23 16:37:24 (8 months ago)

Author:

Mark Evenson

Message:

doc: take a stab at explaining THREAD-FUNCTION-WRAPPER

File:

• trunk/abcl/src/org/armedbear/lisp/threads.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/threads.lisp

@@ -31 +31 @@
 ;;; exception statement from your version.
 
-(in-package #:threads)
-
+(in-package threads)
 (export '(make-mailbox mailbox-send mailbox-empty-p
           mailbox-read mailbox-peek
           make-thread-lock with-thread-lock
+          thread-function-wrapper
           current-thread yield
-          make-mutex get-mutex release-mutex with-mutex))
+          make-mutex get-mutex release-mutex with-mutex
+          get-java-thread))
+          
 ;;
 ;; MAKE-THREAD helper to establish restarts
 ;;
 
-(defun thread-function-wrapper (fun)
+(defun thread-function-wrapper (function)
+  "Call FUNCTION with a simple abort restart"
   (restart-case
-      (funcall fun)
+      (funcall function)
     (abort () :report "Abort thread.")))