anchor.diff:                        (inst pslld-imm y1 7)
                         (inst psrld-imm t0 25)
                         (inst por y1 t0))))
  -        (inst movdqa x0 (nth-xmm-mem state 0))
  -        (inst movdqa x1 (nth-xmm-mem state 1))
  -        (inst movdqa x2 (nth-xmm-mem state 2))
  -        (inst movdqa x3 (nth-xmm-mem state 3))
  +        (inst movdqu x0 (nth-xmm-mem state 0))
  +        (inst movdqu x1 (nth-xmm-mem state 1))
  +        (inst movdqu x2 (nth-xmm-mem state 2))
  +        (inst movdqu x3 (nth-xmm-mem state 3))
           (inst movdqa y0 x0)
           (inst movdqa y1 x1)
           (inst movdqa y2 x2)
  
positive.code:       (inst paddd x1 (nth-xmm-mem buffer 1))
        (inst paddd x2 (nth-xmm-mem buffer 2))
        (inst paddd x3 (nth-xmm-mem buffer 3))
        (inst movdqa (nth-xmm-mem buffer 0) x0)
        (inst movdqa (nth-xmm-mem buffer 1) x1)
        (inst movdqa (nth-xmm-mem buffer 2) x2)
        (inst movdqa (nth-xmm-mem buffer 3) x3))))
  
  #+x86-64
  (define-vop (chacha-core-fast)
  
negative.code:                                    other-pointer-lowtag)
                                  (* 16 i)))))
         (let ((last-round (gen-label)))
           (inst movdqu x0 (buffer-mem plaintext plaintext-start))
           (inst movdqu x1 (round-key 0))
           (inst pxor x0 x1)
           (inst movdqu x1 (round-key 1))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 2))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 3))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 4))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 5))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 6))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 7))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 8))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 9))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 10))
           (inst cmp n-rounds 10)
           (inst jmp :z last-round)
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 11))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 12))
           (inst cmp n-rounds 12)
           (inst jmp :z last-round)
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 13))
           (inst aesenc x0 x1)
           (inst movdqu x1 (round-key 14))
           (emit-label last-round)
           (inst aesenclast x0 x1)
           (inst movdqu (buffer-mem ciphertext ciphertext-start) x0)))))
  
  #+x86-64
  (define-vop (aes-ni-decrypt)
  