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:*dont-close* t
   7       *print-right-margin* 77)
   8 #+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)
   9
  10 ;; Maybe inhibit some Swank extensions.
  11 (let ((forbidden-contribs
  12        '()))
  13   (when forbidden-contribs
  14     (setf swank-loader::*contribs*
  15           (delete-if (lambda (thing) (member thing forbidden-contribs))
  16                      swank-loader::*contribs*))))