anchor.diff:                           (setf (aref plaintext j) (logxor b (aref encrypted-iv 0))))
                        finally (return-from decrypt-with-mode
                                  (let ((n-bytes-decrypted (- ciphertext-end ciphertext-start)))
  -                                 (values n-bytes-decrypted n-bytes-decrypted))))))))
  -  (define-mode-function))
  -
  -(macrolet ((mode-definition (cipher-specializer block-length-binding
  -                                                block-length-expr)
  +                                 (values n-bytes-decrypted n-bytes-decrypted)))))))
  +	   (message-length (cipher-specializer block-length-binding
  +					       block-length-expr)
                (declare (ignore block-length-binding block-length-expr))
                `(defmethod encrypted-message-length ((cipher ,cipher-specializer)
                                                      (mode cfb8-mode) length
  
positive.code:                    finally (return-from encrypt-with-mode
                               (let ((n-bytes-encrypted (- plaintext-end plaintext-start)))
                                 (setf (iv-position mode) iv-position)
                                 (values n-bytes-encrypted n-bytes-encrypted))))))))
    (define-mode-function))
  
  (macrolet ((mode-definition (cipher-specializer block-length-binding
                                                  block-length-expr)
               `(defmethod decrypt-with-mode ((cipher ,cipher-specializer)
                                              (mode cfb-mode) ciphertext plaintext
  
negative.code:                              :end2 plaintext-end)
                      (setf (buffer-index mode) plaintext-length)
                      (values (+ n-bytes-encrypted plaintext-length)
                              n-bytes-encrypted)))))
  	   (decrypt (cipher-specializer block-length-binding
  					block-length-expr)
               `(defmethod decrypt-with-mode ((cipher ,cipher-specializer)
                                              (mode padded-cipher-mode)
                                              ciphertext plaintext
  