Commit | Line | Data |
---|---|---|
b5bf3445 MW |
1 | ;; -*-lisp-*- |
2 | ||
dc443bb2 MW |
3 | #+mdw (cl:in-package #:mdw-hacks) |
4 | ||
b5bf3445 | 5 | (setf swank:*communication-style* :fd-handler |
f169435d MW |
6 | swank:*dont-close* t |
7 | *print-right-margin* 77) | |
b5bf3445 | 8 | |
eb221c17 MW |
9 | (let ((forbidden-contribs |
10 | '(#+sbcl swank-loader::swank-presentations | |
11 | #+sbcl swank-loader::swank-presentation-streams))) | |
12 | (when forbidden-contribs | |
13 | (setf swank-loader::*contribs* | |
14 | (delete-if (lambda (thing) (member thing forbidden-contribs)) | |
15 | swank-loader::*contribs*)))) |