Author: ehuelsmann Date: Tue Jan 16 17:24:39 2007 New Revision: 161

Modified: usocket/branches/0.2.x/backend/openmcl.lisp Log: Backport r160 (element-type support for OpenMCL).

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 Tue Jan 16 17:24:39 2007 @@ -42,9 +42,12 @@

(defun socket-connect (host port &key (element-type 'character)) (with-mapped-conditions () - (let ((mcl-sock (openmcl-socket:make-socket :remote-host - (host-to-hostname host) - :remote-port port))) + (let ((mcl-sock + (openmcl-socket:make-socket :remote-host (host-to-hostname host) + :remote-port port + :format (if (subtypep element-type + 'character) + :text :binary)))) (openmcl-socket:socket-connect mcl-sock) (make-stream-socket :stream mcl-sock :socket mcl-sock))))