From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 1 Jul 2020 18:42:20 +0000 (+0100)
Subject: dot/swank.lisp: Rewrite the Swank `contribs' hacking.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b

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

Now the list items are individually per-Lisp-system, rather than it
being all or nothing.
---

diff --git a/dot/swank.lisp b/dot/swank.lisp
index 34cfbf9..0301443 100644
--- 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*))))