[usocket-cvs] r150 - usocket/branches/0.2.x/backend

[ehuelsmann at common-lisp.net]

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