Create a lisp image to load swank faster

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'