[usocket-cvs] r173 - in usocket/trunk: backend test

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 18 16:24:25 2007
New Revision: 173

Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/test/test-usocket.lisp
Log:
Fix argument number problem (Allegro).

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Thu Jan 18 16:24:25 2007
@@ -65,7 +65,7 @@
                                       )
                                 (when (not (eql host *wildcard-host*))
                                            (list :local-host host)))))))
-    (make-stream-server-socket :socket sock)))
+    (make-stream-server-socket sock)))
 
 (defmethod socket-accept ((socket stream-server-usocket))
   (let ((stream-sock (socket:accept-connection (socket socket))))

Modified: usocket/trunk/test/test-usocket.lisp
==============================================================================
--- usocket/trunk/test/test-usocket.lisp	(original)
+++ usocket/trunk/test/test-usocket.lisp	Thu Jan 18 16:24:25 2007
@@ -39,7 +39,7 @@
 (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                   :stream :my-stream))
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defparameter +common-lisp-net+ #(80 68 86 115)))
+  (defparameter +common-lisp-net+ #(80 68 86 115))) ;; common-lisp.net IP
 
 (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
 (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)