anchor.diff:      (decf keys-start 2)
       (rotatef (aref data 0) (aref data 2))
       (rotatef (aref data 1) (aref data 3))
  -    (dotimes (i 4)
  -      (setf (ub32ref/be plaintext (+ plaintext-start (* 4 i)))
  -            (logxor (aref data i) (aref round-keys (+ keys-start i)))))))
  +    (setf (ub32ref/be plaintext plaintext-start)
  +          (logxor (aref data 0) (aref round-keys keys-start)))
  +    (setf (ub32ref/be plaintext (+ plaintext-start 4))
  +          (logxor (aref data 1) (aref round-keys (+ keys-start 1))))
  +    (setf (ub32ref/be plaintext (+ plaintext-start 8))
  +          (logxor (aref data 2) (aref round-keys (+ keys-start 2))))
  +    (setf (ub32ref/be plaintext (+ plaintext-start 12))
  +          (logxor (aref data 3) (aref round-keys (+ keys-start 3))))))
   
   (defcipher camellia
     (:encrypt-function camellia-encrypt-block)
  
positive.code:               :initial-contents '(0 0 12 12 4 4 8 8 4 4 12 12 0 0 8 8 0
                                    0 4 4 12 12 0 0 8 8 4 4 8 8 0 0 12 12)))
  
  (defun camellia-feistel (data data-start keys keys-start key-offset)
    (declare (type (simple-array (unsigned-byte 32) (*)) data keys)
             (type fixnum data-start keys-start key-offset)
  
negative.code:     (declare (type (simple-array (unsigned-byte 32) (*)) round-keys data)
               (type fixnum keys-start grand-rounds)
               (dynamic-extent data))
      (setf (aref data 0) (logxor (ub32ref/be ciphertext ciphertext-start)
                                  (aref round-keys keys-start))
            (aref data 1) (logxor (ub32ref/be ciphertext (+ ciphertext-start 4))
                                  (aref round-keys (+ keys-start 1)))
            (aref data 2) (logxor (ub32ref/be ciphertext (+ ciphertext-start 8))
                                  (aref round-keys (+ keys-start 2)))
            (aref data 3) (logxor (ub32ref/be ciphertext (+ ciphertext-start 12))
                                  (aref round-keys (+ keys-start 3))))
      (decf keys-start 2)
  
      (dotimes (i grand-rounds)
  