chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
net.lisp: Improve error in `ipmask'.
[zone]
/
net.lisp
diff --git
a/net.lisp
b/net.lisp
index 7cd7e6d5326bbe1b26ed32e93e2f5b5cf90db1bd..1e326842ec62f519774efc01330319b67eb5aaf0 100644
(file)
--- a/
net.lisp
+++ b/
net.lisp
@@
-244,7
+244,7
@@
(defgeneric ipmask (addr mask)
(let ((w (ipaddr-width addr)))
(if (<= 0 mask w)
(integer-netmask w mask)
- (error "
Mask
out of range.")))))
+ (error "
Prefix length
out of range.")))))
(export 'mask-ipaddr)
(defun mask-ipaddr (addr mask)