X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/63b00b21ca8bd03fa839195a760243e588ac94cc..HEAD:/net.lisp

diff --git a/net.lisp b/net.lisp
index 7996827..13f390c 100644
--- a/net.lisp
+++ b/net.lisp
@@ -301,8 +301,8 @@ (defun integer-netmask (n i)
   "Given an integer I, return an N-bit netmask with its I top bits set."
   (- (ash 1 n) (ash 1 (- n i))))
 
-(export 'ipmask-cidl-slash)
-(defun ipmask-cidl-slash (width mask)
+(export 'ipmask-cidr-slash)
+(defun ipmask-cidr-slash (width mask)
   "Given a netmask MASK, try to compute a prefix length.
 
    Return an integer N such that (integer-netmask WIDTH N) = MASK, or nil if
@@ -386,7 +386,7 @@ (defun ipnet-string (ipn)
   (with-ipnet (net nil mask) ipn
     (format nil "~A/~A"
 	    (ipaddr-string net)
-	    (or (ipmask-cidl-slash (ipnet-width ipn) mask)
+	    (or (ipmask-cidr-slash (ipnet-width ipn) mask)
 		(ipaddr-string (make-instance (class-of net) :addr mask))))))
 
 (defmethod print-object ((ipn ipnet) stream)
@@ -484,7 +484,7 @@ (defun parse-subipnet (ipn str &key (start 0) (end nil) (slashp t))
   (let* ((addr-class (extract-class-name (ipnet-net ipn)))
 	 (width (ipaddr-width addr-class))
 	 (max (- width
-		 (or (ipmask-cidl-slash width (ipnet-mask ipn))
+		 (or (ipmask-cidr-slash width (ipnet-mask ipn))
 		     (error "Base network has complex netmask")))))
     (multiple-value-bind (addr mask)
 	(parse-subnet addr-class width max (stringify str)