-#+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*))))