anchor.diff:                      (skein512/384 (%make-skein512/384-digest))
                       (skein512 (%make-skein512-digest))))))
       (declare (type skein512 copy))
  -    (replace (skein-value copy) (skein-value state))
  -    (replace (skein-tweak copy) (skein-tweak state))
  -    (replace (skein-cfg copy) (skein-cfg state))
  -    (replace (skein-buffer copy) (skein-buffer state))
  -    (setf (skein-buffer-length copy) (skein-buffer-length state))
  -    (setf (skein-cipher copy) (skein-copy-cipher (skein-cipher state)))
  +    (replace (skein512-value copy) (skein512-value state))
  +    (replace (skein512-tweak copy) (skein512-tweak state))
  +    (replace (skein512-cfg copy) (skein512-cfg state))
  +    (replace (skein512-buffer copy) (skein512-buffer state))
  +    (setf (skein512-buffer-length copy) (skein512-buffer-length state))
  +    (setf (skein512-cipher copy) (skein-copy-cipher (skein512-cipher state)))
       copy))
   
   (define-digest-updater skein512
  
positive.code:                     (skein1024/512 (%make-skein1024/512-digest))
                      (skein1024 (%make-skein1024-digest))))))
      (declare (type skein1024 copy))
      (replace (skein-value copy) (skein-value state))
      (replace (skein-tweak copy) (skein-tweak state))
      (replace (skein-cfg copy) (skein-cfg state))
      (replace (skein-buffer copy) (skein-buffer state))
      (setf (skein-buffer-length copy) (skein-buffer-length state))
      (setf (skein-cipher copy) (skein-copy-cipher (skein-cipher state)))
      copy))
  
  (define-digest-updater skein1024
  
negative.code:                     (skein256/224 (%make-skein256/224-digest))
                      (skein256 (%make-skein256-digest))))))
      (declare (type skein256 copy))
      (replace (skein256-value copy) (skein256-value state))
      (replace (skein256-tweak copy) (skein256-tweak state))
      (replace (skein256-cfg copy) (skein256-cfg state))
      (replace (skein256-buffer copy) (skein256-buffer state))
      (setf (skein256-buffer-length copy) (skein256-buffer-length state))
      (setf (skein256-cipher copy) (skein-copy-cipher (skein256-cipher state)))
      copy))
  
  (define-digest-updater skein256
  