dot/swank.lisp: If my `lisp-init.lisp' has run, use its package.

[profile] / dot / swank.lisp

;; -*-lisp-*-

#+mdw (cl:in-package #:mdw-hacks)

(setf swank:*communication-style* :fd-handler
      swank:*dont-close* t
      *print-right-margin* 77)

#+sbcl (progn
         (setf swank-loader::*contribs*
               (delete-if (lambda (thing)
                            (member
                             thing
                             '(swank-loader::swank-presentations
                               swank-loader::swank-presentation-streams)))
                          swank-loader::*contribs*)))