mdw@git.distorted.org.uk Git - profile/blob - dot/swank.lisp

   1 ;; -*-lisp-*-
   2
   3 #+mdw (cl:in-package #:mdw-hacks)
   4
   5 (setf swank:*communication-style* :fd-handler
   6       swank:*dont-close* t
   7       *print-right-margin* 77)
   8
   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*))))