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

[ehuelsmann at common-lisp.net]

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