[usocket-cvs] r202 - usocket/trunk

Author: ehuelsmann Date: Wed Feb 28 14:27:09 2007 New Revision: 202

Modified: usocket/trunk/usocket.lisp Log: Fix sloppiness in with-server-socket implementation.

Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Feb 28 14:27:09 2007 @@ -134,7 +134,7 @@ `body' is only evaluated when `var' is bound to a non-null value.

The `body' is an implied progn form." - `(with-connected-socket (var server-socket) + `(with-connected-socket (,var ,server-socket) ,@body))

(defmacro with-socket-listener ((socket-var &rest socket-listen-args)