3 (setf swank:*communication-style* :fd-handler
5 *print-right-margin* 77)
8 (setf swank-loader::*contribs*
9 (delete-if (lambda (thing)
12 '(swank-loader::swank-presentations
13 swank-loader::swank-presentation-streams)))
14 swank-loader::*contribs*)))