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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb 17 01:20:41 2006
New Revision: 102

Modified:
   usocket/trunk/backend/cmucl.lisp
Log:
Make tests pass again.

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Fri Feb 17 01:20:41 2006
@@ -57,7 +57,7 @@
   (let* ((socket))
     (setf socket
           (with-mapped-conditions (socket)
-             (ext:connect-to-inet-socket (host-to-hbo host) port type)))
+             (ext:connect-to-inet-socket (host-to-hbo host) port :stream)))
     (if socket
         (let* ((stream (sys:make-fd-stream socket :input t :output t
                                            :element-type 'character