dot/swank.lisp: Only force `:fd-handler' on Lisps which can do it.

diff --git a/dot/swank.lisp b/dot/swank.lisp
index 904a9844fe1f4fe523c30e4d82f31d70c669637f..cbac155e171a24dc5eede3b3814a6043eda4f772 100644 (file)
--- a/dot/swank.lisp
+++ b/dot/swank.lisp
@@ -3,9 +3,9 @@
 #+mdw (cl:in-package #:mdw-hacks)
 
 ;; Miscellaneous configuration.
 #+mdw (cl:in-package #:mdw-hacks)
 
 ;; Miscellaneous configuration.

-(setf swank:*communication-style* :fd-handler
-      swank:*dont-close* t
+(setf swank:*dont-close* t

       *print-right-margin* 77)
       *print-right-margin* 77)

+#+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)

 
 ;; Maybe inhibit some Swank extensions.
 (let ((forbidden-contribs
 
 ;; Maybe inhibit some Swank extensions.
 (let ((forbidden-contribs