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

[ehuelsmann at common-lisp.net]

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