-;; -*-lisp-*-
+;;; -*-lisp-*-
-(setf swank:*communication-style* :fd-handler
- swank:*dont-close* t
+#+mdw (cl:in-package #:mdw-hacks)
+
+;; Miscellaneous configuration.
+(setf swank:*dont-close* t
*print-right-margin* 77)
+#+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)
-#+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*)))
+;; 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*))))