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)