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.