[usocket-cvs] r172 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 18 16:15:13 2007
New Revision: 172

Modified:
   usocket/trunk/backend/allegro.lisp
Log:
Fix variable naming error (Allegro).

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Thu Jan 18 16:15:13 2007
@@ -65,7 +65,7 @@
                                       )
                                 (when (not (eql host *wildcard-host*))
                                            (list :local-host host)))))))
-    (make-stream-server-socket :socket socket)))
+    (make-stream-server-socket :socket sock)))
 
 (defmethod socket-accept ((socket stream-server-usocket))
   (let ((stream-sock (socket:accept-connection (socket socket))))