From b5bf344506d856bb6d35931354fbb211de847022 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 8 Feb 2009 12:18:42 +0000
Subject: [PATCH] swank.lisp: New configuration file.

This contains handy stuff to make SLIME work.  In particular, it turns
off an annoying bug which makes SBCL FASLs incompatible between SLIME
and non-SLIME environments, because SB-PRETTY:PRETTY-STREAM is a
different size.
---
 setup      |  1 +
 swank.lisp | 15 +++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 swank.lisp

diff --git a/setup b/setup
index 15292b6..b1dcf58 100755
--- a/setup
+++ b/setup
@@ -141,6 +141,7 @@ dotfiles="
     lisp-init.lisp:.sbclrc
     lisp-init.lisp:.clisprc.lisp
     lisp-init.lisp:.eclrc
+  swank.lisp
   dircolors colordiffrc screenrc cvsrc indent.pro"
 [ "$xstuff" ] && dotfiles="$dotfiles
   xinitrc xsession Xdefaults vncrc vncsession
diff --git a/swank.lisp b/swank.lisp
new file mode 100644
index 0000000..db485ae
--- /dev/null
+++ b/swank.lisp
@@ -0,0 +1,15 @@
+;; -*-lisp-*-
+
+(setf swank:*communication-style* :fd-handler
+      swank:*dont-close* t)
+
+#+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*)))
\ No newline at end of file
-- 
2.11.0