* swank-cmucl.lisp (accept-connection): Fix buffering arg.

antifuchs · Nov 6, 2011 · b1dac49 · b1dac49
1 parent 68782fb
commit b1dac49
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-06  Helmut Eller  <heller@common-lisp.net>
+
+	* swank-cmucl.lisp (accept-connection): Fix buffering arg.
+
 2011-11-06  Helmut Eller  <heller@common-lisp.net>
 
 	* slime.el (slime-run-test): Renamed from slime-run-one-test.

diff --git a/swank-cmucl.lisp b/swank-cmucl.lisp
@@ -113,9 +113,9 @@
   (declare (ignore timeout))
   (make-socket-io-stream (ext:accept-tcp-connection socket) 
                          (ecase buffering
-                           (:full :full)
+                           ((t) :full)
                            (:line :line)
-                           ((:none nil) :none))
+                           ((nil) :none))
                          external-format))
 
 ;;;;; Sockets