[usocket-cvs] r295 - usocket/branches/0.3.x/backend
ehuelsmann at common-lisp.net
ehuelsmann at common-lisp.net
Mon Sep 17 19:53:15 UTC 2007
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
More information about the usocket-cvs
mailing list