Commit | Line | Data |
---|---|---|
1 | ;; -*-lisp-*- | |
2 | ||
3 | (setf swank:*communication-style* :fd-handler | |
4 | swank:*dont-close* t) | |
5 | ||
6 | #+sbcl (progn | |
7 | (format t "******** contribs = ~A~%" | |
8 | swank-loader::*contribs*) | |
9 | (setf swank-loader::*contribs* | |
10 | (delete-if (lambda (thing) | |
11 | (member | |
12 | thing | |
13 | '(swank-loader::swank-presentations | |
14 | swank-loader::swank-presentation-streams))) | |
15 | swank-loader::*contribs*))) |