+++ /dev/null
-(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)