Author: ehuelsmann Date: Sat Feb 11 17:27:34 2006 New Revision: 79
Modified: usocket/trunk/backend/openmcl.lisp Log: Fix return type of socket-connect.
Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Feb 11 17:27:34 2006 @@ -36,12 +36,12 @@ (condition (signal 'unknown-condition :real-condition condition))))
(defun socket-connect (host port) - (let ((sock)) - (with-mapped-conditions (sock) - (setf sock - (openmcl-socket:make-socket :remote-host (host-to-hostname host) - :remote-port port)) - (openmcl-socket:socket-connect sock)))) + (with-mapped-conditions () + (let ((mcl-sock (openmcl-socket:make-socket :remote-host + (host-to-hostname host) + :remote-port port))) + (openmcl-socket:socket-connect mcl-sock) + (make-socket :stream mcl-sock :socket mcl-sock))))
(defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket)