net.lisp: Add docstring for `string-subipnet'.

[zone] / net.lisp

diff --git a/net.lisp b/net.lisp
index 1750da0357e4ca1f519ef1371878e6d5da735657..7480b3c0efafe79c89f84a37b4eed5d19aa16af3 100644 (file)
--- a/net.lisp
+++ b/net.lisp
@@ -376,6 +376,7 @@ (defun string-ipnet (str &key (start 0) (end nil))
 
 (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))