[usocket-cvs] r584 - usocket/branches/0.5.x/backend

[Chun Tian (binghe)]

Author: ctian
Date: Sun Mar 20 10:11:31 2011
New Revision: 584

Log:
Bugfix: UDP flag "connected-p" never been set in SOCKET-CONNECT (ACL).

Modified:
   usocket/branches/0.5.x/backend/allegro.lisp

Modified: usocket/branches/0.5.x/backend/allegro.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/allegro.lisp	(original)
+++ usocket/branches/0.5.x/backend/allegro.lisp	Sun Mar 20 10:11:31 2011
@@ -90,7 +90,7 @@
       (:stream
        (make-stream-socket :socket socket :stream socket))
       (:datagram
-       (make-datagram-socket socket)))))
+       (make-datagram-socket socket :connected-p (and host port t))))))
 
 ;; One socket close method is sufficient,
 ;; because socket-streams are also sockets.