(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~]"