[usocket-cvs] r202 - usocket/trunk

[ehuelsmann at common-lisp.net]

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)
       , at body))
 
 (defmacro with-socket-listener ((socket-var &rest socket-listen-args)