Load different sbcl images
This commit is contained in:
parent
ec84f20d4c
commit
fdcf255f86
1 changed files with 6 additions and 4 deletions
|
@ -16,11 +16,13 @@
|
|||
;; shell$ sbcl
|
||||
;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
|
||||
;; * (save-lisp-and-die "sbcl.core-for-slime")
|
||||
(when (eq system-type 'gnu/linux)
|
||||
(let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
|
||||
(when (file-exists-p image-path)
|
||||
|
||||
(let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
|
||||
(if (file-exists-p image-path)
|
||||
(setq slime-lisp-implementations
|
||||
`((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix))))))
|
||||
`((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix)))
|
||||
(setq slime-lisp-implementations
|
||||
`((sbcl ("sbcl" "--noinform") :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