changeset 327: |
49aad0912d60 |
parent: |
206aad082669
|
child: |
955afe21959d |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Sun, 07 Jul 2024 23:27:34 -0400 |
permissions: |
-rw-r--r-- |
description: |
an atempt |
1 ;;; deploy.lisp --- yeeting blobs across the yard 7 (or (probe-file ".stash/tmp/autogen.fasl") 9 (ensure-directories-exist ".stash/tmp/") 10 (compile-file "autogen" :output-file ".stash/tmp/autogen")))) 12 #-(find-package :infra) 17 (defvar *dist* (getprofile :dist)) 19 (pkg:defpkg :infra/deploy 20 (:use :cl :std :skel :packy :dat/json :std/thread :infra/autogen)) 22 (in-package :infra/deploy) 24 (defparameter *task-pool* (make-task-pool)) 26 (with-task-pool (tp *task-pool*) 27 (designate-oracle tp (find-thread "control-thread")) 30 ;; (start-task-pool tp) 31 (loop for x below (worker-count tp) 32 collect (pop-worker tp)))