From f479a1c804596395117e6a881d9af5d76e58497b Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 10 Dec 2023 10:47:33 +0100
Subject: [PATCH] Create a lisp image to load swank faster

---
 sbcl-nginx.yml | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/sbcl-nginx.yml b/sbcl-nginx.yml
index 2a92ab4..d7b567e 100644
--- a/sbcl-nginx.yml
+++ b/sbcl-nginx.yml
@@ -515,6 +515,22 @@ write_files:
       curl https://git.sr.ht/~marcuskammer/cloudinit/blob/main/.sbclrc -o /home/cl/.sbclrc && chown cl:cl /home/cl/.sbclrc
       sbcl --noinform --eval "(ql:quickload '(:hunchentoot :cl-json :jonathan :spinneret :dexador :rove :vecto :woo :clsql-sqlite3 :mito :bknr.datastore :cl-project))" --non-interactive
 
+  - path: /home/cl/lisp_03_load_swank_faster.lisp
+    owner: 'cl:cl'
+    defer: True
+    content: |
+      (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
+      (ql:quickload '(:hunchentoot :cl-json :jonathan :spinneret :dexador :rove :vecto :woo :clsql-sqlite3 :mito :bknr.datastore :cl-project))
+      (save-lisp-and-die "sbcl.core-for-slime")
+
+  - path: /home/cl/lisp_03_load_swank_faster.sh
+    owner: 'cl:cl'
+    permissions: '0755'
+    defer: True
+    content: |
+      #!/bin/bash
+      sbcl --load /home/cl/lisp_03_load_swank_faster.lisp
+
   - path: /home/cl/emacs_build.sh
     owner: cl:cl
     permissions: '0755'