Fix INITIALIZE-INSTANCE for IPV4-NETWORK

diff --git a/src/sockets/address-arithmetic.lisp b/src/sockets/address-arithmetic.lisp
index 6399e0f..cb4cfc9 100644 (file)
--- a/src/sockets/address-arithmetic.lisp
+++ b/src/sockets/address-arithmetic.lisp
@@ -75,6 +75,7 @@ host part of ADDRESS.")
   (check-type address ipv4-address "an Ipv4 address")
   (check-type netmask ipv4-address "an Ipv4 netmask")
   (setf (cidr-of network) (compute-cidr-prefix-from-netmask netmask))
+  (setf (netmask-of network) netmask)
   (setf (address-of network)
         (inet-address-network-portion address netmask)))