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

[ehuelsmann at common-lisp.net]

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