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.

diff --git a/setup b/setup
index 15292b6841a973aa415dcdd529a272930ace758d..b1dcf58923f7208a1eb83c2525a3e566e5dc3607 100755 (executable)
--- 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 (file)
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