From 2f3d9fe10b78d1d3f80dda5e6f5f070acf26b172 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 30 Nov 2008 02:47:19 +0100 Subject: [PATCH] Replace use of ENSURE-SUBNET-MASK with ENSURE-NETMASK. --- net.sockets/address-arithmetic.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/net.sockets/address-arithmetic.lisp b/net.sockets/address-arithmetic.lisp index 5d95fb6..81ad70d 100644 --- a/net.sockets/address-arithmetic.lisp +++ b/net.sockets/address-arithmetic.lisp @@ -35,7 +35,7 @@ a CIDR suffix(a number between 0 and 32)." (:documentation "Apply network netmask NETMASK to ADDRESS in order to calculate the network part of ADDRESS.") (:method ((address ipv4-address) netmask) - (setf netmask (ensure-subnet-mask netmask)) + (setf netmask (ensure-netmask netmask)) (let ((v (make-array 4 :element-type 'ub8)) (av (address-name address)) (mv (address-name netmask))) @@ -49,7 +49,7 @@ network part of ADDRESS.") (:documentation "Apply network netmask NETMASK to ADDRESS in order to calculate the host part of ADDRESS.") (:method ((address ipv4-address) netmask) - (setf netmask (ensure-subnet-mask netmask)) + (setf netmask (ensure-netmask netmask)) (let ((v (make-array 4 :element-type 'ub8)) (av (address-name address)) (mv (address-name netmask))) -- 2.11.4.GIT