2 files changed, 15 insertions, 1 deletions

@@ -759,7 +759,13 @@ if ripgrep is installed, otherwise `consult-grep'."
                         (executable-find "sbcl")))
   (setup (:straight slime)
     (require 'slime-autoloads)
-    (:option inferior-lisp-program lisp-bin)))
+    (:option inferior-lisp-program lisp-bin)
+
+    (when-let ((slime-helper (or (expand-file-name-exists-p
+                                  "~/quicklisp/slime-helper.el")
+                                 (expand-file-name-exists-p
+                                  "~/var/quicklisp/slime-helper.el"))))
+      (load slime-helper))))
 
 (when (executable-find "fennel")
   (setup (:straight fennel-mode)
@@ -62,6 +62,14 @@ each hook in HOOKS."
     (when (file-exists-p file)
       (load-file file))))
 
+(defun expand-file-name-exists-p (&rest expand-file-name-args)
+  "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
+  its name if it exists, or NIL otherwise."
+  (let ((file (apply #'expand-file-name expand-file-name-args)))
+    (if (file-exists-p file)
+        file
+      nil)))
+
 (defun acdw/dir (&optional file make-directory)
   "Place Emacs files in one place.