anchor.diff:  (defun decode-list (stream)
     (must-read-char stream #\l)
     (loop with list
  -     until (maybe-read-char stream #\e)
  -     do (push (decode stream) list)
  -     finally (return (nreverse list))))
  +        until (maybe-read-char stream #\e)
  +        do (push (decode stream) list)
  +        finally (return (nreverse list))))
   
   (defun decode-binary-string (stream)
     (let* ((length (parse-integer (read-integers stream)))
  
positive.code: (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))))
  
  (defun decode-string (stream)
    (let* ((length (parse-integer (read-integers stream)))
  
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)))))
  
  