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