From c49351ac629550415efa758ce2c82e25a2d97f2b Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 23 Oct 2012 11:32:57 +0900 Subject: [PATCH] Fix INITIALIZE-INSTANCE for IPV4-NETWORK --- src/sockets/address-arithmetic.lisp | 1 + 1 file changed, 1 insertion(+) 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))) -- 2.11.4.GIT