X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/9906310798d936a6cacd0ec5a2d3b607e911c423..831670ab1326546120e55a6d863d8bdb3ba8f29d:/dot/swank.lisp?ds=inline

diff --git a/dot/swank.lisp b/dot/swank.lisp
index db485ae..cbac155 100644
--- a/dot/swank.lisp
+++ b/dot/swank.lisp
@@ -1,15 +1,16 @@
-;; -*-lisp-*-
+;;; -*-lisp-*-
 
-(setf swank:*communication-style* :fd-handler
-      swank:*dont-close* t)
+#+mdw (cl:in-package #:mdw-hacks)
 
-#+sbcl (progn
-	 (format t "******** contribs = ~A~%"
-		 swank-loader::*contribs*)
-	 (setf swank-loader::*contribs*
-	       (delete-if (lambda (thing)
-			    (member
-			     thing
-			     '(swank-loader::swank-presentations
-			       swank-loader::swank-presentation-streams)))
-			  swank-loader::*contribs*)))
\ No newline at end of file
+;; 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
+       '()))
+  (when forbidden-contribs
+    (setf swank-loader::*contribs*
+	  (delete-if (lambda (thing) (member thing forbidden-contribs))
+		     swank-loader::*contribs*))))