Author: ehuelsmann Date: Sat Jan 13 11:08:44 2007 New Revision: 148
Modified: usocket/branches/0.2.x/backend/openmcl.lisp Log: Backport r147 to the 0.2.x release branch.
Modified: usocket/branches/0.2.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/openmcl.lisp (original) +++ usocket/branches/0.2.x/backend/openmcl.lisp Sat Jan 13 11:08:44 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))