(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)))