anchor.diff:      (declare (type (simple-array (unsigned-byte 32) (*)) round-keys data)
                (type fixnum keys-start grand-rounds)
                (dynamic-extent data))
  -    (dotimes (i 4)
  -      (setf (aref data i) (logxor (ub32ref/be ciphertext (+ ciphertext-start (* 4 i)))
  -                                  (aref round-keys (+ keys-start i)))))
  +    (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)
  
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: 
      (rotatef (aref data 0) (aref data 2))
      (rotatef (aref data 1) (aref data 3))
      (setf (ub32ref/be ciphertext ciphertext-start)
            (logxor (aref data 0) (aref round-keys keys-start)))
      (setf (ub32ref/be ciphertext (+ ciphertext-start 4))
            (logxor (aref data 1) (aref round-keys (+ keys-start 1))))
      (setf (ub32ref/be ciphertext (+ ciphertext-start 8))
            (logxor (aref data 2) (aref round-keys (+ keys-start 2))))
      (setf (ub32ref/be ciphertext (+ ciphertext-start 12))
            (logxor (aref data 3) (aref round-keys (+ keys-start 3))))))
  
  (define-block-decryptor camellia 16
    (let* ((round-keys (round-keys context))
  