changeset 371: |
7dcabf3e0edc |
parent: |
955afe21959d
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Tue, 24 Sep 2024 15:53:24 -0400 |
permissions: |
-rw-r--r-- |
description: |
no link in bootstrap.sh |
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")))) 16 (defvar *dist* (getprofile :dist)) 18 (pkg:defpkg :infra/deploy 19 (:use :cl :std :skel :packy :dat/json :std/thread :infra/autogen)) 21 (in-package :infra/deploy) 23 (defparameter *task-pool* (make-task-pool)) 25 (with-task-pool (tp *task-pool*) 26 (designate-oracle tp (find-thread "control-thread")) 29 ;; (start-task-pool tp) 30 (loop for x below (worker-count tp) 31 collect (pop-worker tp)))