From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 14 Apr 2008 09:34:50 +0000 (+0100)
Subject: emacs: Start actually doing some Emacs-side SLIME customization.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/c70671f31970ed9b0aeab492215fdfa8b08f4fb2

emacs: Start actually doing some Emacs-side SLIME customization.

Use UTF-8 to communicate with Lisps which understand it.  And make SBCL
the official default.
---

diff --git a/emacs b/emacs
index d945642..9ce28d5 100644
--- a/emacs
+++ b/emacs
@@ -544,6 +544,23 @@
 	("^pdf$" "." "evince %o")
 	("^html?$" "." "netscape %o")))
 
+;;;----- SLIME setup --------------------------------------------------------
+
+(let ((stuff '((cmucl ("cmucl"))
+	       (sbcl ("sbcl") :coding-system utf-8-unix)
+	       (clisp ("clisp") :coding-system utf-8-unix))))
+  (or (boundp 'slime-lisp-implementations)
+      (setq slime-lisp-implementations nil))
+  (while stuff
+    (let* ((head (car stuff))
+	   (found (assq (car head) slime-lisp-implementations)))
+      (setq stuff (cdr stuff))
+      (if found
+	  (rplacd found (cdr head))
+	(setq slime-lisp-implementations
+	      (cons head slime-lisp-implementations))))))
+(setq slime-default-lisp 'sbcl)
+
 ;;;----- Shell mode ---------------------------------------------------------
 
 ;; --- Make the shell mode aware of my prompt ---