From eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b Mon Sep 17 00:00:00 2001
Message-Id: <eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b.1718444158.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Wed, 1 Jul 2020 19:42:20 +0100
Subject: [PATCH] dot/swank.lisp: Rewrite the Swank `contribs' hacking.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Now the list items are individually per-Lisp-system, rather than it
being all or nothing.
---
 dot/swank.lisp | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

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 @@ (setf swank:*communication-style* :fd-handler
       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*))))
-- 
[mdw]