[usocket-cvs] r295 - usocket/branches/0.3.x/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 17 15:53:12 2007
New Revision: 295

Modified:
   usocket/branches/0.3.x/backend/armedbear.lisp
Log:
Follow up to r294: match parens.

Modified: usocket/branches/0.3.x/backend/armedbear.lisp
==============================================================================
--- usocket/branches/0.3.x/backend/armedbear.lisp	(original)
+++ usocket/branches/0.3.x/backend/armedbear.lisp	Mon Sep 17 15:53:12 2007
@@ -63,7 +63,7 @@
 (defmethod socket-accept ((socket stream-server-usocket) &key element-type)
   (let* ((jsock (socket socket))
          (jacc-sock (with-mapped-conditions (socket)
-                       (jmethod-call jsock ("accept")))
+                       (jmethod-call jsock ("accept"))))
          (jacc-stream
           (ext:get-socket-stream jacc-sock
                                  :element-type (or element-type