changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / deploy.lisp

changeset 366: e5f98f30bdf6
parent: 955afe21959d
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 13 Sep 2024 20:18:57 -0400
permissions: -rw-r--r--
description: bump lisp version 
     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 (load *autogen-fasl*)
    13 
    14 (in-package :infra)
    15 
    16 (defvar *dist* (getprofile :dist))
    17 
    18 (pkg:defpkg :infra/deploy
    19   (:use :cl :std :skel :packy :dat/json :std/thread :infra/autogen))
    20 
    21 (in-package :infra/deploy)
    22 
    23 (defparameter *task-pool* (make-task-pool))
    24 
    25 (with-task-pool (tp *task-pool*)
    26   (designate-oracle tp (find-thread "control-thread"))
    27   (spawn-workers tp 4)
    28   (print tp)
    29   ;; (start-task-pool tp)
    30   (loop for x below (worker-count tp)
    31         collect (pop-worker tp)))