* process.c (conv_lisp_to_sockaddr): Fix conversion of IPv4

address.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5ce7e4a11b295eb8b62e716fe53851e0edf555b0..79fde00d9add573e375f92fd75e8ba1b4b1fce50 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-03  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * process.c (conv_lisp_to_sockaddr): Fix conversion of IPv4
+       address.
+
 2010-06-03  Juanma Barranquero  <lekktu@gmail.com>
 
        * ccl.c (Fccl_program_p): Fix typo in docstring.

diff --git a/src/process.c b/src/process.c
index 53cc42f223e2524b50c49b652573ef2c21f546f3..7adc114075ecf82afbd7df44dac09a6bd3eb0ceb 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -2540,9 +2540,11 @@ conv_lisp_to_sockaddr (family, address, sa, len)
                ip6[i] = ntohs (j);
              }
          sa->sa_family = family;
+         return;
        }
 #endif
-      return;
+      else
+       return;
     }
   else if (STRINGP (address))
     {