1.1--- a/lisp/std/pkg.lisp	Thu Oct 03 19:04:57 2024 -0400
     1.2+++ b/lisp/std/pkg.lisp	Thu Oct 03 21:54:07 2024 -0400
     1.3@@ -178,7 +178,8 @@
     1.4   (:use :cl :sb-mop :sb-pcl)
     1.5   (:import-from :std/sym :symb :make-keyword)
     1.6   (:export :list-slot-values-using-class
     1.7-   :list-class-methods :list-class-slots :list-indirect-slot-methods))
     1.8+   :list-class-methods :list-class-slots :list-indirect-slot-methods
     1.9+   :ensure-finalized :subclassp))
    1.10    
    1.11 (defpkg :std/fu
    1.12   (:use :cl)
    1.13@@ -282,14 +283,16 @@
    1.14   (:use :cl :std/thread :sb-concurrency)
    1.15   (:import-from :std/thread :%make-thread)
    1.16   (:import-from :std/macs :if-let)
    1.17+  (:import-from :std/list :deletef)
    1.18   (:export
    1.19    :spawn-workers
    1.20    :make-oracle :make-supervisor
    1.21-   :oracle :run-task
    1.22+   :oracle 
    1.23    :oracle-id :find-thread
    1.24    :push-job :push-task
    1.25    :push-worker :push-task-result
    1.26-   :run-job :run-stage
    1.27+   :run :run-object 
    1.28+   :work
    1.29    :pop-job :pop-task
    1.30    :workers
    1.31    :tasks
    1.32@@ -304,7 +307,9 @@
    1.33    :*task-pool*
    1.34    :*tasks*
    1.35    :*oracles*
    1.36-   :*workers*
    1.37+   :*oracle-threads*
    1.38+   :*worker-threads*
    1.39+   :*supervisor-threads*
    1.40    :*jobs*
    1.41    :*stages*
    1.42    :*task*