;;; -*-lisp-*-

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

;; Miscellaneous configuration.
(setf swank:*dont-close* t
      *print-right-margin* 77)
#+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)

;; Maybe inhibit some Swank extensions.
(let ((forbidden-contribs
       '()))
  (when forbidden-contribs
    (setf swank-loader::*contribs*
	  (delete-if (lambda (thing) (member thing forbidden-contribs))
		     swank-loader::*contribs*))))