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.

diff --git a/lisp-init.lisp b/lisp-init.lisp
index 65b5d617d5f3ab1d0cb962915a25865780dd211d..2253aab2453ccd0a21bd835557bffbc66f02f46a 100644 (file)
--- 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)
 (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*)
 (pushnew :mdw *features*)

+;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)