X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/3cccef13dd0ed83b823cfafeb95856636e7be319..88dc0b1c096ab8f8103ecd69de780b96e1de277d:/zone.lisp?ds=inline

diff --git a/zone.lisp b/zone.lisp
index 0979120..7649f54 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1031,7 +1031,7 @@ (defzoneparse :spf (name data rec :zname zname)
 			      (write-char #\space out))
 			  (let* ((width (ipnet-width net))
 				 (mask (ipnet-mask net))
-				 (plen (ipmask-cidl-slash width mask)))
+				 (plen (ipmask-cidr-slash width mask)))
 			    (unless plen
 			      (error "invalid netmask in network ~A" net))
 			    (format out "~A~A:~A~@[/~D~]"