;;; -*-lisp-*-

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

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

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