# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1718500789 0
# Node ID 6d526bd63943870ceed4d27a2eb5bc1e50b9759a
# Parent  e51101c3c83cf65392983a79ec83d3e44821847e
fixes

diff -r e51101c3c83c -r 6d526bd63943 .hgsubstate
--- a/.hgsubstate	Sat Jun 15 22:32:08 2024 +0000
+++ b/.hgsubstate	Sun Jun 16 01:19:49 2024 +0000
@@ -1,4 +1,4 @@
-0000000000000000000000000000000000000000 box
+36849cbd95545dc18f5a4a3d07c9055beca38f0b box
 d5b76348e00ed20d362eb1a4109abd45a784cd7b etc
 411f423567fcee89ca7f50fbeca938ada70c2cf1 home
 98aa8d30816a26ccbb544ee8d156bfb40660a3bf pod
diff -r e51101c3c83c -r 6d526bd63943 autogen.lisp
--- a/autogen.lisp	Sat Jun 15 22:32:08 2024 +0000
+++ b/autogen.lisp	Sun Jun 16 01:19:49 2024 +0000
@@ -1,6 +1,6 @@
 ;;; autogen.lisp --- Setup the current directory for 
 
-;; sbcl --load autogen.lisp
+;; sbcl --core .stash/share/lisp/user.core --load autogen.lisp
 
 ;;; Code:
 (in-package :std-user)
@@ -63,8 +63,8 @@
 (defun build-default ()
   (let ((rocksdb-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :rocksdb))))
         (sbcl-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :sbcl :sbcl-shared))))
-        (operator-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :archlinux :operator))))
-        (worker-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :alpine :worker)))))
+        (operator-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :archlinux :operator))))
+        (worker-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :alpine :worker)))))
     (std/thread:wait-for-threads
      (list rocksdb-builder sbcl-builder operator-builder worker-builder))))
 
@@ -80,6 +80,7 @@
 (unless (probe-file #p".stash")
   (autogen))
 
-(build-default)
+;; (build-default)
 
-(sb-ext:quit)
+;; (sb-ext:quit)
+
diff -r e51101c3c83c -r 6d526bd63943 deploy.lisp
--- a/deploy.lisp	Sat Jun 15 22:32:08 2024 +0000
+++ b/deploy.lisp	Sun Jun 16 01:19:49 2024 +0000
@@ -6,6 +6,7 @@
 (in-package :std-user)
 
 (defpkg :infra/deploy
-  (:use :cl :skel :packy :dat/json))
+  (:use :cl :std :skel :packy :dat/json))
 
 (in-package :infra/deploy)
+
diff -r e51101c3c83c -r 6d526bd63943 scripts/quicklisp-install.sh
--- a/scripts/quicklisp-install.sh	Sat Jun 15 22:32:08 2024 +0000
+++ b/scripts/quicklisp-install.sh	Sun Jun 16 01:19:49 2024 +0000
@@ -10,7 +10,7 @@
 else
     QUICKLISP_CLIENT_VERSION="\"$QUICKLISP_CLIENT_VERSION\""
 fi
-# installs to /usr/local/share/lisp
 sbcl --non-interactive \
      --load .stash/quicklisp.lisp \
-     --eval "(quicklisp-quickstart:install :path \"/usr/local/share/lisp/quicklisp\" :dist-version $QUICKLISP_DIST_VERSION :client-version $QUICKLISP_CLIENT_VERSION)"
+     --eval "(quicklisp-quickstart:install :path \"~/.stash/quicklisp/\" :dist-version $QUICKLISP_DIST_VERSION :client-version $QUICKLISP_CLIENT_VERSION)" \
+     --eval "(ql-dist:install-dist \"http://dist.ultralisp.org/\" :prompt nil)"
diff -r e51101c3c83c -r 6d526bd63943 skelfile
--- a/skelfile	Sat Jun 15 22:32:08 2024 +0000
+++ b/skelfile	Sun Jun 16 01:19:49 2024 +0000
@@ -39,6 +39,7 @@
        #$cd .stash/src/sbcl &&
        echo '"2.4.5"' > version.lisp-expr &&
        ./make.sh --dynamic-space-size=8Gb --without-gencgc --with-mark-region-gc --fancy$#)
+ (sbcl-docs (sbcl) #$cd .stash/src/sbcl/doc/manual && make$#)
  (sbcl-gencgc (src) #$cd .stash/src/sbcl &&
        ./make.sh --dynamic-space-size=8Gb --fancy$#)
  (sbcl-shared () #$cd .stash/src/sbcl && sh make-shared-library.sh$#)
@@ -61,6 +62,7 @@
  (xcaddy () #$go install github.com/caddyserver/xcaddy/cmd/xcaddy@latest$#)
  (caddy-webdav (xcaddy) #$xcaddy build --output .stash/caddy --with github.com/mholt/caddy-webdav$#)
  (rust () #$scripts/get-rust.sh$#)
+ (rust-docs (rust) #$cd .stash/src/rust && ./x doc$#)
  (ublk () #$scripts/get-ublksrv.sh$#
        #$cd .stash/src/ublksrv && autoreconf -i && ./configure && make$#)
  (ublk-install () #$cd .stash/src/ublksrv && make install$#)