changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / deploy.lisp

changeset 337: b7dd9ff3232f
parent: 206aad082669
child: 955afe21959d
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 20 Jul 2024 16:53:56 -0400
permissions: -rw-r--r--
description: repos install bare 
     1 ;;; deploy.lisp --- yeeting blobs across the yard
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (defvar *autogen-fasl*
     7   (or (probe-file ".stash/tmp/autogen.fasl")
     8       (and
     9        (ensure-directories-exist ".stash/tmp/")
    10        (compile-file "autogen" :output-file ".stash/tmp/autogen"))))
    11 
    12 #-(find-package :infra)
    13 (load *autogen-fasl*)
    14 
    15 (in-package :infra)
    16 
    17 (defvar *dist* (getprofile :dist))
    18 
    19 (pkg:defpkg :infra/deploy
    20   (:use :cl :std :skel :packy :dat/json :std/thread :infra/autogen))
    21 
    22 (in-package :infra/deploy)
    23 
    24 (defparameter *task-pool* (make-task-pool))
    25 
    26 (with-task-pool (tp *task-pool*)
    27   (designate-oracle tp (find-thread "control-thread"))
    28   (spawn-workers tp 4)
    29   (print tp)
    30   ;; (start-task-pool tp)
    31   (loop for x below (worker-count tp)
    32         collect (pop-worker tp)))