anchor.diff:                     finally (return-from encrypt-with-mode
                                (let ((n-bytes-encrypted (- plaintext-end plaintext-start)))
                                  (values n-bytes-encrypted n-bytes-encrypted)))))))
  -	   (decrypt (cipher-specializer block-length-binding
  +           (decrypt (cipher-specializer block-length-binding
                                                   block-length-expr)
                `(defmethod decrypt-with-mode ((cipher ,cipher-specializer)
                                               (mode cfb8-mode) ciphertext plaintext
  
positive.code:                              (let ((n-bytes-encrypted (- plaintext-end plaintext-start)))
                                 (setf (iv-position mode) iv-position)
                                 (values n-bytes-encrypted n-bytes-encrypted)))))))
  	   (decrypt (cipher-specializer block-length-binding
                                                  block-length-expr)
               `(defmethod decrypt-with-mode ((cipher ,cipher-specializer)
                                              (mode cfb-mode) ciphertext plaintext
  
negative.code:                                (let ((n-bytes-decrypted (- ciphertext-end ciphertext-start)))
                                   (setf (iv-position mode) iv-position)
                                   (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 ctr-mode) length
  