X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b..5223adaa187d2231f03f59a44473b93192bc6968:/dot/swank.lisp

diff --git a/dot/swank.lisp b/dot/swank.lisp
index 0301443..cbac155 100644
--- a/dot/swank.lisp
+++ b/dot/swank.lisp
@@ -1,14 +1,15 @@
-;; -*-lisp-*-
+;;; -*-lisp-*-
 
 #+mdw (cl:in-package #:mdw-hacks)
 
-(setf swank:*communication-style* :fd-handler
-      swank:*dont-close* t
+;; 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
-       '(#+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))