Author: ehuelsmann Date: Sat Jan 13 11:07:10 2007 New Revision: 147

Modified: usocket/trunk/backend/openmcl.lisp Log: Fix OpenMCL bug.

Patch by: Kevin Montuori (montuori at igvanus dot info)

Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Jan 13 11:07:10 2007 @@ -45,10 +45,7 @@ (let ((mcl-sock (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port))) - (openmcl-socket:socket-connect mcl-sock - :element-type (if (subtypep element-type - 'character) - :text :binary)) + (openmcl-socket:socket-connect mcl-sock) (make-stream-socket :stream mcl-sock :socket mcl-sock))))

(defmethod socket-close ((usocket usocket))