Author: ehuelsmann Date: Fri Jan 19 18:58:50 2007 New Revision: 185
Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/scl.lisp Log: Use new ip comparison functions when determining ip (in)equality.
Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Fri Jan 19 18:58:50 2007 @@ -70,8 +70,8 @@ :format (to-format element-type) ;; allegro now ignores :format ) - (when (not (eql host *wildcard-host*)) - (list :local-host host))))))) + (when (ip/= host *wildcard-host*) + (list :local-host host))))))) (make-stream-server-socket sock :element-type element-type)))
(defmethod socket-accept ((socket stream-server-usocket))
Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Fri Jan 19 18:58:50 2007 @@ -58,7 +58,7 @@ (let ((sock (apply #'socket:socket-server (append (list port :backlog backlog) - (when (not (eql host *wildcard-host*)) + (when (ip/= host *wildcard-host*) (list :interface host)))))) (make-stream-server-socket sock :element-type element-type)))
Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Jan 19 18:58:50 2007 @@ -78,7 +78,7 @@ (append (list port :stream :backlog backlog :reuse-address reuseaddress) - (when (not (eql host *wildcard-host*)) + (when (ip/= host *wildcard-host*) (list :host (host-to-hbo host))))))) (make-stream-server-socket server-sock :element-type element-type)))
Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Jan 19 18:58:50 2007 @@ -64,7 +64,7 @@ :local-port port :backlog backlog :format (to-format element-type)) - (when (not (eql host *wildcard-host*)) + (when (ip/= host *wildcard-host*) (list :local-host host)))))) (make-stream-server-socket sock :element-type element-type)))
Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Fri Jan 19 18:58:50 2007 @@ -45,7 +45,7 @@ &key reuseaddress (backlog 5) (element-type 'character)) - (let* ((host (if (eql host *wildcard-host*) + (let* ((host (if (ip= host *wildcard-host*) 0 (host-to-hbo host))) (server-sock (ext:create-inet-listener port :stream