diff --git a/bundle/bundle--package.el b/bundle/bundle--package.el index 4efe5666..bbf676ee 100644 --- a/bundle/bundle--package.el +++ b/bundle/bundle--package.el @@ -155,19 +155,22 @@ (concat common-lisp-hyperspec-root "Data/Map_Sym.txt")) (setq common-lisp-hyperspec-issuex-table (concat common-lisp-hyperspec-root "Data/Map_IssX.txt"))) + (if (eq system-type 'windows-nt) (setq sbcl-exe "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe" sbcl-core "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core" - inferior-lisp-program "sbcl" - slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core)))) + slime-lisp-implementations `((sbcl (,sbcl-exe " --noinform" " --core " ,sbcl-core))) + inferior-lisp-program "sbcl") (setq inferior-lisp-program "/usr/bin/sbcl --noinform")) + (let ((helper (expand-file-name "~/quicklisp/slime-helper.el"))) - (when (file-exists-p helper) (load-file helper))) - (let ((u1 - (slime-create-filename-translator - :machine-instance "u1" - :remote-host "u1.metaebene.dev" - :username "marcus"))) + (when (file-exists-p helper) + (load-file helper))) + + (let ((u1 (slime-create-filename-translator + :machine-instance "u1" + :remote-host "u1.metaebene.dev" + :username "marcus"))) (push u1 slime-filename-translations))) (use-package simple-httpd