net.lisp: Improve error in `ipmask'.

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)
     (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)
 
 (export 'mask-ipaddr)
 (defun mask-ipaddr (addr mask)