From: Stelian Ionescu <sionescu@cddr.org>
Date: Tue, 23 Oct 2012 02:32:57 +0000 (+0900)
Subject: Fix INITIALIZE-INSTANCE for IPV4-NETWORK
X-Git-Tag: v0.8.0~35
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/c49351ac629550415efa758ce2c82e25a2d97f2b

Fix INITIALIZE-INSTANCE for IPV4-NETWORK
---

diff --git a/src/sockets/address-arithmetic.lisp b/src/sockets/address-arithmetic.lisp
index 6399e0f..cb4cfc9 100644
--- 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)))