[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv27101

Modified Files:
	swank-sbcl.lisp 
Log Message:
sbcl: oops, can't intern SWANK*COMMUNICATION-STYLE* when loading the backend

  Hackety hack. :/


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/08/09 10:27:25	1.286
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/08/09 10:35:00	1.287
@@ -281,7 +281,10 @@
                                      #+sb-unicode :external-format
                                      #+sb-unicode external-format
                                      :serve-events
-                                     (eq :fd-handler swank:*communication-style*)))
+                                     (eq :fd-handler
+                                         ;; KLUDGE: SWANK package isn't
+                                         ;; available when backend is loaded.
+                                         (intern "*COMMUNICATION-STYLE*" :swank))))
 
 (defun accept (socket)
   "Like socket-accept, but retry on EAGAIN."