Commit | Line | Data |
---|---|---|
8b416dc4 | 1 | ;;; -*-lisp-*- |
b5bf3445 | 2 | |
dc443bb2 MW |
3 | #+mdw (cl:in-package #:mdw-hacks) |
4 | ||
e97daec4 | 5 | ;; Miscellaneous configuration. |
831670ab | 6 | (setf swank:*dont-close* t |
f169435d | 7 | *print-right-margin* 77) |
831670ab | 8 | #+(or sbcl cmu) (setf swank:*communication-style* :fd-handler) |
b5bf3445 | 9 | |
e97daec4 | 10 | ;; Maybe inhibit some Swank extensions. |
eb221c17 | 11 | (let ((forbidden-contribs |
56564da5 | 12 | '())) |
eb221c17 MW |
13 | (when forbidden-contribs |
14 | (setf swank-loader::*contribs* | |
15 | (delete-if (lambda (thing) (member thing forbidden-contribs)) | |
16 | swank-loader::*contribs*)))) |