anchor.diff:                                 (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)
  +           (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 cfb-mode) length
  
positive.code:                     (setf (buffer-index mode) ciphertext-length)
                      (values (+ n-bytes-decrypted ciphertext-length)
                              n-bytes-decrypted)))))
  	   (message-length (cipher-specializer block-length-binding
  					       block-length-expr)
               `(defmethod encrypted-message-length ((cipher ,cipher-specializer)
                                                     (mode padded-cipher-mode)
                                                     length
  
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 ofb-mode) length
  