From 3267e72fbea5e259533716530d00bbd08451e4f4 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Fri, 22 Feb 2008 23:28:50 +0100 Subject: [PATCH] Fix typo. Signed-off-by: Stelian Ionescu --- net.sockets/address-arithmetic.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/net.sockets/address-arithmetic.lisp b/net.sockets/address-arithmetic.lisp index 8745df9..1b5e8fa 100644 --- a/net.sockets/address-arithmetic.lisp +++ b/net.sockets/address-arithmetic.lisp @@ -70,8 +70,8 @@ NETWORK and MASK.") (:method ((address ipv4-address) (network ipv4-address) (mask ipv4-address)) - (address= (address-network-portion address mask) - (address-network-portion network mask)))) + (address= (inet-address-network-portion address mask) + (inet-address-network-portion network mask)))) (defgeneric inet-addresses-in-same-network-p (address1 address2 network mask) (:documentation "Return T if ADDRESS1 and ADDRESS2 are both part part of the @@ -80,9 +80,9 @@ subnet specified by NETWORK and MASK.") (address2 ipv4-address) (network ipv4-address) (mask ipv4-address)) - (let ((address1-network (address-network-portion address1 mask)) - (address2-network (address-network-portion address2 mask)) - (subnet (address-network-portion network mask))) + (let ((address1-network (inet-address-network-portion address1 mask)) + (address2-network (inet-address-network-portion address2 mask)) + (subnet (inet-address-network-portion network mask))) (and (address= address1-network subnet) (address= address2-network subnet))))) -- 2.11.4.GIT