Commit | Line | Data |
---|---|---|
d37d5787 MW |
1 | (defpackage #:mdw-hacks |
2 | (:use #:cl) | |
3 | (:export #:crank-swank)) | |
4 | (use-package '#:mdw-hacks) | |
5 | ||
6 | ;; Shut up. | |
f617db13 MW |
7 | (setf *load-verbose* nil) |
8 | (setf *compile-verbose* nil) | |
9 | #+cmu (setf *gc-verbose* nil) | |
d37d5787 MW |
10 | |
11 | ;; Start up swank. | |
12 | (defun mdw-hacks:crank-swank (&rest #1=#:args) | |
13 | (let ((#2=#:swank #3=(find-package "SWANK"))) | |
14 | (unless #2# | |
15 | (load "/usr/share/common-lisp/source/slime/swank-loader.lisp") | |
16 | (setf #2# #3#)) | |
17 | (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil) | |
18 | (apply (find-symbol "CREATE-SERVER" #2#) #1#))) | |
19 | ||
20 | ;; Done. | |
6f7bbd84 | 21 | (pushnew :mdw *features*) |
d37d5787 | 22 | ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops) |