Re: Bind socket server to local network interface

[Raymond Toy]

>>>>> "Thomas" == Thomas Fischbacher <[EMAIL PROTECTED]> writes:

[snip]

    Thomas> Anyway, here's the diff:

    Thomas> --- internet.lisp 2004-04-23 14:42:04.000000000 +0200
    Thomas> +++ /tmp/inet.lisp 2004-12-12 03:12:09.000000000 +0100
    Thomas> @@ -468,7 +468,7 @@
    Thomas>      (with-alien ((sockaddr inet-sockaddr))
    Thomas>        (setf (slot sockaddr 'family) af-inet)
    Thomas>        (setf (slot sockaddr 'port) (htons port))
    Thomas> -      (setf (slot sockaddr 'addr) addr)
    Thomas> +      (setf (slot sockaddr 'addr) (htonl addr))
    Thomas>        (when (minusp (unix:unix-bind socket
    Thomas>               (alien-sap sockaddr)
    Thomas>               (alien-size inet-sockaddr :bytes)))

Thanks for the fix (and to Todd Sabin with exactly the same fix).

I'll check it in shortly.

Ray