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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 18 01:53:59 2007
New Revision: 170

Modified:
   usocket/trunk/backend/allegro.lisp
Log:
Fix Allegro backend syntax.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Thu Jan 18 01:53:59 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)
@@ -102,4 +102,4 @@
   ;; structure is too long.
   (with-mapped-conditions ()
     (list (hbo-to-vector-quad (socket:lookup-hostname
-                               (host-to-hostname name)))))
+                               (host-to-hostname name))))))