anchor.diff:  (defmethod (setf skein-cipher) (cipher (state skein1024))
     (setf (skein1024-cipher state) cipher))
   
  +(defun %reinitialize-skein1024 (state digest-bits)
  +  (declare (type skein1024 state))
  +  (replace (skein1024-value state) (skein-get-iv 1024 digest-bits))
  +  (replace (skein1024-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
  +  (replace (skein1024-cfg state) (skein-make-configuration-string digest-bits))
  +  (setf (skein1024-buffer-length state) 0)
  +  (setf (skein1024-cipher state) (make-cipher :threefish1024
  +                                              :key (skein-get-iv 1024 digest-bits)
  +                                              :mode :ecb))
  +  state)
  +
   (defmethod reinitialize-instance ((state skein1024) &rest initargs)
     (declare (ignore initargs))
  -  (replace (skein-value state) (skein-get-iv 1024 1024))
  -  (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
  -  (replace (skein-cfg state) (skein-make-configuration-string 1024))
  -  (setf (skein-buffer-length state) 0)
  -  (setf (skein-cipher state) (make-cipher :threefish1024
  -                                          :key (skein-get-iv 1024 1024)
  -                                          :mode :ecb))
  -  state)
  +  (%reinitialize-skein1024 state 1024))
   
   (defmethod reinitialize-instance ((state skein1024/384) &rest initargs)
     (declare (ignore initargs))
  -  (replace (skein-value state) (skein-get-iv 1024 384))
  -  (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
  -  (replace (skein-cfg state) (skein-make-configuration-string 384))
  -  (setf (skein-buffer-length state) 0)
  -  (setf (skein-cipher state) (make-cipher :threefish1024
  -                                          :key (skein-get-iv 1024 384)
  -                                          :mode :ecb))
  -  state)
  +  (%reinitialize-skein1024 state 384))
   
   (defmethod reinitialize-instance ((state skein1024/512) &rest initargs)
     (declare (ignore initargs))
  -  (replace (skein-value state) (skein-get-iv 1024 512))
  -  (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
  -  (replace (skein-cfg state) (skein-make-configuration-string 512))
  -  (setf (skein-buffer-length state) 0)
  -  (setf (skein-cipher state) (make-cipher :threefish1024
  -                                          :key (skein-get-iv 1024 512)
  -                                          :mode :ecb))
  -  state)
  +  (%reinitialize-skein1024 state 512))
   
   (defmethod copy-digest ((state skein1024) &optional copy)
     (declare (type (or cl:null skein1024) copy))
  
positive.code: (defmethod (setf skein-cipher) (cipher (state skein512))
    (setf (skein512-cipher state) cipher))
  
  (defmethod reinitialize-instance ((state skein512) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 512))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 512))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 512)
                                            :mode :ecb))
    state)
  
  (defmethod reinitialize-instance ((state skein512/128) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 128))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 128))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 128)
                                            :mode :ecb))
    state)
  
  (defmethod reinitialize-instance ((state skein512/160) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 160))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 160))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 160)
                                            :mode :ecb))
    state)
  
  (defmethod reinitialize-instance ((state skein512/224) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 224))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 224))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 224)
                                            :mode :ecb))
    state)
  
  (defmethod reinitialize-instance ((state skein512/256) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 256))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 256))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 256)
                                            :mode :ecb))
    state)
  
  (defmethod reinitialize-instance ((state skein512/384) &rest initargs)
    (declare (ignore initargs))
    (replace (skein-value state) (skein-get-iv 512 384))
    (replace (skein-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein-cfg state) (skein-make-configuration-string 384))
    (setf (skein-buffer-length state) 0)
    (setf (skein-cipher state) (make-cipher :threefish512
                                            :key (skein-get-iv 512 384)
                                            :mode :ecb))
    state)
  
  (defmethod copy-digest ((state skein512) &optional copy)
    (declare (type (or cl:null skein512) copy))
  
negative.code: (defmethod (setf skein-cipher) (cipher (state skein256))
    (setf (skein256-cipher state) cipher))
  
  (defun %reinitialize-skein256 (state digest-bits)
    (declare (type skein256 state))
    (replace (skein256-value state) (skein-get-iv 256 digest-bits))
    (replace (skein256-tweak state) (skein-make-tweak t nil +skein-msg+ 0))
    (replace (skein256-cfg state) (skein-make-configuration-string digest-bits))
    (setf (skein256-buffer-length state) 0)
    (setf (skein256-cipher state) (make-cipher :threefish256
                                               :key (skein-get-iv 256 digest-bits)
                                               :mode :ecb))
    state)
    
  (defmethod reinitialize-instance ((state skein256) &rest initargs)
    (declare (ignore initargs))
    (%reinitialize-skein256 state 256))
  
  (defmethod reinitialize-instance ((state skein256/128) &rest initargs)
    (declare (ignore initargs))
    (%reinitialize-skein256 state 128))
  
  (defmethod reinitialize-instance ((state skein256/160) &rest initargs)
    (declare (ignore initargs))
    (%reinitialize-skein256 state 160))
  
  (defmethod reinitialize-instance ((state skein256/224) &rest initargs)
    (declare (ignore initargs))
    (%reinitialize-skein256 state 224))
  
  (defmethod copy-digest ((state skein256) &optional copy)
    (declare (type (or cl:null skein256) copy))
  