3 #+mdw (cl:in-package #:mdw-hacks)
5 ;; Miscellaneous configuration.
6 (setf swank:*dont-close* t
7 *print-right-margin* 77)
8 #+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)
10 ;; Maybe inhibit some Swank extensions.
11 (let ((forbidden-contribs
13 (when forbidden-contribs
14 (setf swank-loader::*contribs*
15 (delete-if (lambda (thing) (member thing forbidden-contribs))
16 swank-loader::*contribs*))))