From d37d5787ff53d7f32e2a254b5bf66004de5a0663 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 24 Sep 2007 11:57:01 +0100
Subject: [PATCH] lisp-init.lisp: Various changes.

  * Don't force symbol printing to lowercase -- it's just too painful to
    fix it again for other systems.

  * Provide a handy function for firing up Swank, so we can connect
    SLIME to a running Lisp system.
---
 lisp-init.lisp | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/lisp-init.lisp b/lisp-init.lisp
index 65b5d61..2253aab 100644
--- a/lisp-init.lisp
+++ b/lisp-init.lisp
@@ -1,6 +1,22 @@
-;; Uppercase is bad on the eyes.
-(setf *print-case* :downcase)
+(defpackage #:mdw-hacks
+  (:use #:cl)
+  (:export #:crank-swank))
+(use-package '#:mdw-hacks)
+
+;; Shut up.
 (setf *load-verbose* nil)
 (setf *compile-verbose* nil)
 #+cmu (setf *gc-verbose* nil)
+
+;; Start up swank.
+(defun mdw-hacks:crank-swank (&rest #1=#:args)
+  (let ((#2=#:swank #3=(find-package "SWANK")))
+    (unless #2#
+      (load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
+      (setf #2# #3#))
+    (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil)
+    (apply (find-symbol "CREATE-SERVER" #2#) #1#)))
+
+;; Done.
 (pushnew :mdw *features*)
+;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)
-- 
2.11.0