(when host-string (parse-ipv6-string host-string))
'(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))))
(assert (and (typep octets 'sequence)
(when host-string (parse-ipv6-string host-string))
'(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))))
(assert (and (typep octets 'sequence)