Only use sbcl custom image if available

This commit is contained in:
Marcus Kammer 2023-12-27 10:41:22 +01:00
parent 7a61629a7c
commit dcd897e7ed
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -16,10 +16,11 @@
;; shell$ sbcl
;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
;; * (save-lisp-and-die "sbcl.core-for-slime")
(when (string-equal system-type "gnu/linux")
(when (eq system-type 'gnu/linux)
(let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
(setq slime-lisp-implementations
`((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix)))))
(when (file-exists-p image-path)
(setq slime-lisp-implementations
`((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix))))))
(defvar mk/hyperspec-dir-locations
'("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"