1.1--- a/deploy.lisp	Sun Jun 30 18:27:19 2024 -0400
     1.2+++ b/deploy.lisp	Tue Jul 02 11:34:27 2024 -0400
     1.3@@ -3,9 +3,29 @@
     1.4 ;;
     1.5 
     1.6 ;;; Code:
     1.7-(in-package :std-user)
     1.8+(in-package :infra)
     1.9 
    1.10-(defpkg :infra/deploy
    1.11-  (:use :cl :std :skel :packy :dat/json))
    1.12+(defvar *autogen-fasl*
    1.13+  (or (probe-file ".stash/tmp/autogen.fasl")
    1.14+      (and
    1.15+       (ensure-directories-exist ".stash/tmp/")
    1.16+       (compile-file "autogen" :output-file ".stash/tmp/autogen"))))
    1.17+
    1.18+(load *autogen-fasl*)
    1.19+
    1.20+(defvar *dist* (getprofile :dist))
    1.21+
    1.22+(pkg:defpkg :infra/deploy
    1.23+  (:use :cl :std :skel :packy :dat/json :std/thread :infra/autogen))
    1.24 
    1.25 (in-package :infra/deploy)
    1.26+
    1.27+(defparameter *task-pool* (make-task-pool))
    1.28+
    1.29+(with-task-pool (tp *task-pool*)
    1.30+  (designate-oracle tp (find-thread "control-thread"))
    1.31+  (spawn-workers tp 4)
    1.32+  (print tp)
    1.33+  ;; (start-task-pool tp)
    1.34+  (loop for x below (worker-count tp)
    1.35+        collect (pop-worker tp)))