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