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