(defgeneric parse-partial-ipaddr (class str &key start end min max)
(:method ((object t) str &rest keywords)
(defgeneric parse-partial-ipaddr (class str &key start end min max)
(:method ((object t) str &rest keywords)
"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)))
(setf str (stringify str))
(let* ((addr-class (extract-class-name (ipnet-net ipn)))
(width (ipaddr-width addr-class))
(setf str (stringify str))
(let* ((addr-class (extract-class-name (ipnet-net ipn)))
(width (ipaddr-width addr-class))