anchor.diff:    (let ((char (aref (read-buffer stream)
                       (buffer-offset stream))))
       (incf (buffer-offset stream))
  -    (if (or (< 4095 ;; tmp
  -               (buffer-offset stream))
  -             (<= (read-buffer-size stream)
  -                 (buffer-offset stream)))
  +    (if (<= (read-buffer-size stream)
  +            (buffer-offset stream))
           :eof
           (code-char char))))
   
  
positive.code:   (let ((char (aref (read-buffer stream)
                      (buffer-offset stream))))
      (incf (buffer-offset stream))
      (if (or (< 4095 ;; tmp
                 (buffer-offset stream))
               (<= (read-buffer-size stream)
                   (buffer-offset stream)))
          :eof
          char)))
  
  
negative.code:                                                  :for octet := (aref cluster offset)
                                                   :when (and (/= octet 0)
                                                              (/= octet 255))
                                                   :do (write-char (code-char octet) sub-name))))
                                      (add 1 10)
                                      (add 14 25)
                                      (add 28 31)))))
  