1 files changed, 16 insertions, 1 deletions

diff --git a/emacs/.config/emacs/arkta/arkta-progmodes.el b/emacs/.config/emacs/arkta/arkta-progmodes.el
index f1da41e..0e88145 100644
--- a/emacs/.config/emacs/arkta/arkta-progmodes.el
+++ b/emacs/.config/emacs/arkta/arkta-progmodes.el
@@ -252,8 +252,23 @@
   :ensure t
   :after lisp-mode
   :commands slime
+  :init
+  (defun find-inferior-lisp ()
+    (let ((ros (executable-find "ros")))
+      (if ros
+          (concat ros " run")
+        (executable-find "sbcl"))))
   :custom
-  (inferior-lisp-program (executable-find "sbcl")))
+  (inferior-lisp-program (find-inferior-lisp))
+  :config
+  (when (cond ((file-exists-p "~/quicklisp/log4slime-setup.el")
+               (load "~/quicklisp/log4slime-setup.el")
+               t)
+              ((file-exists-p "~/.roswell/lisp/quicklisp/log4slime-setup.el")
+               (load "~/.roswell/lisp/quicklisp/log4slime-setup.el")
+               t)
+              (t nil))
+    (global-log4slime-mode 1)))
 
 (use-package smalltalk-mode
   :ensure t