From b8fc645a8eaf3db3185f27ba30450be16f862cb7 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 10 Dec 2023 11:55:43 +0100
Subject: [PATCH] Dynamically set core image path for sbcl custom image

---
 sbcl-nginx.yml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/sbcl-nginx.yml b/sbcl-nginx.yml
index d7b567e..bffaa9b 100644
--- a/sbcl-nginx.yml
+++ b/sbcl-nginx.yml
@@ -719,7 +719,13 @@ write_files:
                        slime-asdf
                        slime-indentation
                        slime-editing-commands
-                       slime-sbcl-exts)))
+                       slime-sbcl-exts))
+        ;; shell$ sbcl
+        ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
+        ;; * (save-lisp-and-die "sbcl.core-for-slime")
+        (let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
+          (setq slime-lisp-implementations
+                `((sbcl ("sbcl" "--core" ,image-path))))))
 
       (use-package lisp-mode
         :ensure nil