From 78d11eb172a3cf0ae51133eb13c9a7635d30ad84 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 13 Jul 2013 16:34:40 +0100
Subject: [PATCH] net.lisp: Add docstring for `string-subipnet'.

---
 net.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/net.lisp b/net.lisp
index 1750da0..7480b3c 100644
--- a/net.lisp
+++ b/net.lisp
@@ -376,6 +376,7 @@
 
 (export 'string-subipnet)
 (defun string-subipnet (ipn str &key (start 0) (end nil))
+  "Parse an IP subnet from a parent net IPN and a suffix string STR."
   (setf str (stringify str))
   (let* ((addr-class (extract-class-name (ipnet-net ipn)))
 	 (width (ipaddr-width addr-class))
-- 
2.11.0