X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/f4e43257fd5b724d48f6451ab6b88a00b379b606..9906310798d936a6cacd0ec5a2d3b607e911c423:/lisp-init.lisp

diff --git a/lisp-init.lisp b/lisp-init.lisp
deleted file mode 100644
index 8da623d..0000000
--- a/lisp-init.lisp
+++ /dev/null
@@ -1,25 +0,0 @@
-(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)
-
-;; Various fixings.
-#+clisp (setf custom:*parse-namestring-ansi* t)
-
-;; 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)