Author: ehuelsmann Date: Sun Jan 14 18:19:17 2007 New Revision: 150 Modified: usocket/branches/0.2.x/backend/cmucl.lisp Log: Merge r149 (CMUCL unflushed socket close fix). Modified: usocket/branches/0.2.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/cmucl.lisp (original) +++ usocket/branches/0.2.x/backend/cmucl.lisp Sun Jan 14 18:19:17 2007 @@ -72,7 +72,7 @@ (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) - (ext:close-socket (socket usocket)))) + (close (socket-stream usocket)))) (defmethod get-local-name ((usocket usocket)) (multiple-value-bind