Author: ehuelsmann Date: Sun Jan 14 18:18:04 2007 New Revision: 149 Modified: usocket/trunk/backend/cmucl.lisp Log: Fix unflushed streams upon socket close in CMUCL. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sun Jan 14 18:18:04 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