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)