net.lisp (ipmask-cidr-slash): Rename from `ipmask-cidl-slash'.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 0979120..7649f54 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1031,7 +1031,7 @@
                              (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~]"