anchor.diff:                                output-start output-end
                                 input-start input-end lastp)
     (declare (type simple-string output))
  +  (declare (optimize speed))
     (base64-encoder state output input output-start output-end
                     input-start input-end lastp #'identity))
   
  
positive.code:                               output-start output-end
                                input-start input-end lastp)
    (declare (type simple-octet-vector output))
    (base64-encoder state output input output-start output-end
                    input-start input-end lastp #'char-code))
  
  
negative.code:   (declare (type simple-octet-vector input))
    (declare (type index output-start output-end input-start input-end))
    (declare (type function converter))
    (let* ((input-index input-start)
           (output-index output-start)
           (bits (base64-encode-state-bits state))
  