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        '()))
  13   (when forbidden-contribs
  14     (setf swank-loader::*contribs*
  15           (delete-if (lambda (thing) (member thing forbidden-contribs))
  16                      swank-loader::*contribs*))))