anchor.diff:      (declare ((or null fixnum) length start))
       (if (or (null length)
               (> (+ start length) end))
  -        'eof
  +        (values 'eof nil)
           (let* ((end (+ start length))
                  (next (1+ end))
                  (payload-type (aref bytes end)))
  
positive.code:                    ;; dictionary
                     (#.(char-code #\})
                        (let ((alist
                               (let ((start start))
                                 (loop
                                    for (key pos1) = (multiple-value-list (parse-tnetstring bytes start end))
                                    until (eq key 'eof)
                                    for (val pos2) = (multiple-value-list (parse-tnetstring bytes pos1 end))
                                    do (setf start pos2)
                                    collect (cons key val)))))
                          (if (eq *dict-decode-type* :hash-table)
                              (alist-hash-table alist)
  
negative.code:                    ;; list
                     (#.(char-code #\])
                        (or
                         (parsing (bytes start end)
                           (loop
                              for val = (next-tnetstring)
                              until (eq val 'eof)
                              collect val))
                         *empty-list*))
                     ;; boolean
  