"Parse a subnet description from a (substring of) STR."
(setf-default end (length str))
(let ((sl (position #\/ str :start start :end end)))
"Parse a subnet description from a (substring of) STR."
(setf-default end (length str))
(let ((sl (position #\/ str :start start :end end)))