[slime-cvs] CVS slime

[CVS User nsiivola]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
sbcl: support for SBCL < 1.0.42.43

  In theory at least -- :SERVE-EVENTS keyword argument to MAKE-SOCKET-STREAM
  was introduced then, but I don't claim to have extensively tested current
  Slime with SBCLs that old.


--- /project/slime/cvsroot/slime/ChangeLog	2011/08/26 11:10:47	1.2212
+++ /project/slime/cvsroot/slime/ChangeLog	2011/08/31 13:18:11	1.2213
@@ -1,3 +1,8 @@
+2011-08-31  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* swank-sbcl.lisp (make-socket-io-stream): Backwards compatibility with
+	SBCL < 1.0.42.43 -- and bugfix.
+
 2011-08-26  Mark Evenson  <evenson at panix.com>
 
 	* swank-abcl.lisp (class-slots): Use exported symbol allowing
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/08/09 10:35:00	1.287
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/08/31 13:18:11	1.288
@@ -284,7 +284,11 @@
                                      (eq :fd-handler
                                          ;; KLUDGE: SWANK package isn't
                                          ;; available when backend is loaded.
-                                         (intern "*COMMUNICATION-STYLE*" :swank))))
+                                         (symbol-value
+                                          (intern "*COMMUNICATION-STYLE*" :swank)))
+                                     ;; SBCL < 1.0.42.43 doesn't support :SERVE-EVENTS
+                                     ;; argument.
+                                     :allow-other-keys t))
 
 (defun accept (socket)
   "Like socket-accept, but retry on EAGAIN."