Make slime work with the core without changing dirs

diff --git a/re/re-packages.el b/re/re-packages.el
index fcfb77abef6d1d9cefbd28bcb2befb0ccc548566..4de8568eafd2a76afcabff909ff4667337313709 100644 (file)
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -86,8 +86,9 @@
   (load (expand-file-name "~/quicklisp/slime-helper.el"))
   (setq inferior-lisp-program "sbcl"
        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"))))
+  (let* ((core (expand-file-name "~/sbcl.core-for-slime")))
+    (when (file-exists-p core)
+      (setq slime-lisp-implementations (list `(sbcl ("sbcl" "--core" ,core))))))
   (add-hook 'slime-mode-hook
            (lambda ()
              (unless (slime-connected-p) (save-excursion (slime))))))