Author: ehuelsmann Date: Fri Mar 2 16:58:17 2007 New Revision: 208
Modified: usocket/trunk/backend/cmucl.lisp Log: Fix closing of (stream) sockets (and comment); followup to r207.
Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Mar 2 16:58:17 2007 @@ -91,11 +91,19 @@ :buffering :full))) (make-stream-socket :socket sock :stream stream)))
-(defmethod socket-close ((usocket usocket)) +;; Sockets and socket streams are represented +;; by different objects. Be sure to close the +;; socket stream when closing a stream socket. +(defmethod socket-close ((usocket stream-usocket)) "Close socket." (with-mapped-conditions (usocket) (close (socket-stream usocket))))
+(defmethod socket-close ((usocket usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (ext:close-socket (socket usocket)))) + (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port)