net.lisp: Whitespace fixup.

[zone] / net.lisp

diff --git a/net.lisp b/net.lisp
index 7cd7e6d5326bbe1b26ed32e93e2f5b5cf90db1bd..1750da0357e4ca1f519ef1371878e6d5da735657 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)
@@ -315,7 +315,7 @@ (defmethod print-object ((ipn ipnet) stream)
   (print-unreadable-object (ipn stream :type t)
     (write-string (ipnet-string ipn) stream)))
 
-(defun parse-subnet (class  width max str &key (start 0) (end nil))
+(defun parse-subnet (class width max str &key (start 0) (end nil))
   "Parse a subnet description from a (substring of) STR."
   (setf-default end (length str))
   (let ((sl (position #\/ str :start start :end end)))