dot/swank.lisp: Rewrite the Swank `contribs' hacking.

[profile] / dot / swank.lisp

diff --git a/dot/swank.lisp b/dot/swank.lisp
index 34cfbf9..0301443 100644 (file)
--- a/dot/swank.lisp
+++ b/dot/swank.lisp
@@ -6,11 +6,10 @@
       swank:*dont-close* t
       *print-right-margin* 77)
 
-#+sbcl (progn
-        (setf swank-loader::*contribs*
-              (delete-if (lambda (thing)
-                           (member
-                            thing
-                            '(swank-loader::swank-presentations
-                              swank-loader::swank-presentation-streams)))
-                         swank-loader::*contribs*)))
+(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))
+                    swank-loader::*contribs*))))