anchor.diff:  (defun read-integers (stream)
     (with-output-to-string (string)
       (loop for octet = (flex:peek-byte stream)
  -       while (char-integer-p (code-char octet))
  -       do (write-char (code-char (read-byte stream)) string))))
  +          while (char-integer-p (code-char octet))
  +          do (write-char (code-char (read-byte stream)) string))))
   
   (defun decode-string (stream)
     (let* ((length (parse-integer (read-integers stream)))
  
positive.code: (defun decode-dictionary (stream)
    (must-read-char stream #\d)
    (loop with list
       until (maybe-read-char stream #\e)
       do (let* ((key (decode-string stream))
                 (value (decode stream :binary (binary-bdictionary-key-p key))))
            (push value list)
            (push key list))
       finally (return (make-bdictionary list))))
  
  
negative.code:     (ccase c
        (#\i (decode-integer stream))
        ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
           (if binary
               (decode-binary-string stream)
               (decode-string stream)))
        (#\l (decode-list stream))
        (#\d (decode-dictionary stream)))))
  
  