Author: ehuelsmann Date: Thu Jan 18 14:12:29 2007 New Revision: 171

Modified: usocket/branches/0.2.x/backend/allegro.lisp Log: Fix semantic bugs: add 2 closing parens.

Modified: usocket/branches/0.2.x/backend/allegro.lisp ============================================================================== --- usocket/branches/0.2.x/backend/allegro.lisp (original) +++ usocket/branches/0.2.x/backend/allegro.lisp Thu Jan 18 14:12:29 2007 @@ -36,7 +36,7 @@ :real-error condition :socket socket))))))

-(defun socket-connect (host port &key (element-type 'character) +(defun socket-connect (host port &key (element-type 'character)) (let ((socket)) (setf socket (with-mapped-conditions (socket) @@ -83,4 +83,4 @@ ;; structure is too long. (with-mapped-conditions () (list (hbo-to-vector-quad (socket:lookup-hostname - (host-to-hostname name))))) + (host-to-hostname name))))))