From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 13 Jul 2013 15:34:40 +0000 (+0100)
Subject: net.lisp: Improve error in `ipmask'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/b496b60f441cf9b91de3a9eecafc3c253c8ca458?ds=inline

net.lisp: Improve error in `ipmask'.
---

diff --git a/net.lisp b/net.lisp
index 7cd7e6d..1e32684 100644
--- 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)