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