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

[ehuelsmann at common-lisp.net]

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))