[usocket-cvs] r149 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

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