Fix INITIALIZE-INSTANCE for IPV4-NETWORK
authorStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:32:57 +0000 (23 11:32 +0900)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:32:57 +0000 (23 11:32 +0900)
src/sockets/address-arithmetic.lisp

index 6399e0f..cb4cfc9 100644 (file)
@@ -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)))