From eebb70af6da9dff795108a04520523437c6a14f9 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 13 Jul 2013 16:34:40 +0100 Subject: [PATCH] net.lisp: Whitespace fixup. --- net.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/net.lisp b/net.lisp index 1e32684..1750da0 100644 --- a/net.lisp +++ b/net.lisp @@ -315,7 +315,7 @@ (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))) -- 2.11.0