From 2df27c2bf5305cf59d101125435209ae1871f1f5 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Wed, 5 Jun 2024 09:09:32 -0400
Subject: [PATCH] Make SLIME's loading conditional

---
 init.org | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/init.org b/init.org
index 7af0041..96094f2 100644
--- a/init.org
+++ b/init.org
@@ -254,22 +254,24 @@ Starting to do some work with LaTeX, surprised this is not in base, but org is.
 #+END_SRC
 
 *** SLIME
-Lisp me
-#+BEGIN_SRC emacs-lisp
-(load (expand-file-name "~/quicklisp/slime-helper.el"))
-(setq inferior-lisp-program "sbcl")
-
-(use-package slime
-  :ensure t
-  :custom
-  (slime-net-coding-system 'utf-8-unix)
-  (slime-lisp-implementations
-   '((sbcl ("sbcl" "--core" "sbcl.core-for-slime") :directory "~/lisp"))))
-
-(add-hook 'slime-mode-hook
-          (lambda ()
-            (unless (slime-connected-p)
-              (save-excursion (slime)))))
+Lisp me...sometimes.
+#+BEGIN_SRC emacs-lisp
+(let ((slime-help "~/quicklisp/slime-helper.el"))
+  (when (file-exists-p slime-help)
+    (load (expand-file-name slime-help))
+    (setq inferior-lisp-program "sbcl")
+    (use-package slime
+      :ensure t
+      :custom
+      (slime-net-coding-system 'utf-8-unix))
+    (when (file-exists-p "~/lisp/sbcl.core-for-slime")
+      (setq slime-lisp-implementations
+            '((sbcl ("sbcl" "--core" "sbcl.core-for-slime")
+                    :directory "~/lisp"))))
+    (add-hook 'slime-mode-hook
+              (lambda ()
+                (unless (slime-connected-p)
+                  (save-excursion (slime)))))))
 #+END_SRC
 
 ** Non-Package customization
-- 
2.39.5