chiark - git - mdw - profile/blob - dot/swank.lisp

   1 ;;; -*-lisp-*-
   2
   3 #+mdw (cl:in-package #:mdw-hacks)
   4
   5 ;; Miscellaneous configuration.
   6 (setf swank:*communication-style* :fd-handler
   7       swank:*dont-close* t
   8       *print-right-margin* 77)
   9
  10 ;; Maybe inhibit some Swank extensions.
  11 (let ((forbidden-contribs
  12        '(#+sbcl swank-loader::swank-presentations
  13          #+sbcl swank-loader::swank-presentation-streams)))
  14   (when forbidden-contribs
  15     (setf swank-loader::*contribs*
  16           (delete-if (lambda (thing) (member thing forbidden-contribs))
  17                      swank-loader::*contribs*))))