diff --git a/sbcl-nginx.yml b/sbcl-nginx.yml index 3dfb307..c9d1294 100644 --- a/sbcl-nginx.yml +++ b/sbcl-nginx.yml @@ -766,17 +766,19 @@ write_files: ;; shell$ sbcl ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf)) ;; * (save-lisp-and-die "sbcl.core-for-slime") - (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) - (setq slime-lisp-implementations - `((sbcl ("sbcl" "--core" ,image-path)))))) + (when (eq system-type 'gnu/linux) + (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) + (when (file-exists-p image-path) + (setq slime-lisp-implementations + `((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix)))))) (use-package lisp-mode :ensure nil :hook ((lisp-mode . prettify-symbols-mode) (lisp-mode . (lambda () (set-face-attribute 'font-lock-function-name-face nil :underline t) - (set-face-attribute 'font-lock-keyword-face nil :slant 'italic) - (setq-local lisp-indent-function 'common-lisp-indent-function)))) + (face-remap-add-relative 'font-lock-function-name-face nil :underline t) + (face-remap-add-relative 'font-lock-keyword-face nil :slant 'italic)))) :mode (("\\.lisp$" . lisp-mode) ("\\.lsp$" . lisp-mode) ("\\.cl$" . lisp-mode))