(incf i)
(when (>= i end) (return))
(write-char #\: out))))))
- (cond (best-start
+ (cond ((null best-start)
+ (chunk 0 8))
+ (t
(chunk 0 best-start)
(write-string "::" out)
- (chunk (+ best-start best-length) 8))
- (t
- (chunk 0 8)))))))
+ (chunk (+ best-start best-length) 8)))))))
;;;--------------------------------------------------------------------------
;;; IPv6 networks.