mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

SLY: Only use lisp-repl-core-dumper if available.

master
Pierre Neidhardt 2020-12-20 15:35:30 +01:00
parent d36dec8fa4
commit 4614308474
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.emacs.d/lisp/init-sly.el
View File

@ -42,11 +42,11 @@ If REFRESH is non-nil, rebuild the environment."
,(concat (format "source '%s/etc/profile'" root)
" && sbcl"))))))
(when (executable-find "lisp-repl-core-dumper")
;; Warning: ,restart-lisp does not take changes into account, the buffer must be re-created.
(setq sly-lisp-implementations
;; Warning: ,restart-lisp does not take changes into account, the buffer must be re-created.
(setq sly-lisp-implementations
(let ((maybe-core-dumper (executable-find "lisp-repl-core-dumpers")))
`((sbcl-ambrevar ("lisp-repl-core-dumper" "sbcl" "ambrevar"))
(sbcl ("lisp-repl-core-dumper" "sbcl"))
(sbcl (,@maybe-core-dumper "sbcl"))
(sbcl-nyxt (lambda () (ambrevar/sbcl-for-nyxt)))
(sbcl-nyxt-refresh (lambda () (ambrevar/sbcl-for-nyxt :refresh)))
;; Simple REPL environment for Nyxt, in case sbcl-nyxt does not work.
@ -59,8 +59,8 @@ If REFRESH is non-nil, rebuild the environment."
(sbcl-nyxt-site ("guix" "environment" "--pure"
"-m" ,(expand-file-name "~/common-lisp/nyxt-site/guix-manifest.scm")
"--" "sbcl"))
(ccl ("lisp-repl-core-dumper" "ccl"))
(clisp ("lisp-repl-core-dumper" "clisp"))
(ccl (,@maybe-core-dumper "ccl"))
(clisp (,@maybe-core-dumper "clisp"))
(ecl ("ecl")))))
(setq sly-connection-update-interval 0.1)