Only use sbcl custom image if available
This commit is contained in:
parent
7a61629a7c
commit
dcd897e7ed
1 changed files with 4 additions and 3 deletions
|
@ -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/"
|
||||
|
|
Loading…
Add table
Reference in a new issue