From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 13 Jul 2013 15:34:40 +0000 (+0100)
Subject: net.lisp: Whitespace fixup.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/eebb70af6da9dff795108a04520523437c6a14f9?ds=sidebyside

net.lisp: Whitespace fixup.
---

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