anchor.diff:                      (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)
  +           (message-length (cipher-specializer block-length-binding
  +                                               block-length-expr)
                `(defmethod encrypted-message-length ((cipher ,cipher-specializer)
                                                      (mode padded-cipher-mode)
                                                      length
  
positive.code:                        finally (return-from decrypt-with-mode
                                   (let ((n-bytes-decrypted (- offset ciphertext-start)))
                                     (values n-bytes-decrypted n-bytes-decrypted))))))))
  	   (message-length (cipher-specializer block-length-binding
  					       block-length-expr)
               `(defmethod encrypted-message-length ((cipher ,cipher-specializer)
                                                     (mode cbc-mode) length
                                                     &optional handle-final-block)
  
negative.code:                      finally (return-from encrypt-with-mode
                                 (let ((n-bytes-encrypted (- offset plaintext-start)))
                                   (values n-bytes-encrypted n-bytes-encrypted)))))))
             (decrypt (cipher-specializer block-length-binding
                                                  block-length-expr)
               `(defmethod decrypt-with-mode ((cipher ,cipher-specializer)
                                              (mode ecb-mode) ciphertext plaintext
  