anchor.diff:         finally (return *secret-unbound-value*)))
   
   (defun (setf get-cloneform) (new-value sheep property-name)
  -  (if (std-metasheep-p sheep)
  +  (if (std-sheep-p sheep)
         (setf (std-get-cloneform sheep property-name) new-value)
         (setf-get-cloneform-using-metasheep
          new-value (sheep-metasheep sheep) sheep property-name)))
  
positive.code: ;;;
  
  (defun property-value (sheep property-name)
    (if (std-metasheep-p sheep)
        (std-property-value sheep property-name)
        (property-value-using-metasheep (sheep-metasheep sheep) sheep property-name)))
  (defun std-property-value (sheep property-name)
  
negative.code:     (setf (gethash property-name property-table) new-value)))
  
  (defun get-cloneform (sheep property-name)
    (if (std-sheep-p sheep)
        (std-get-cloneform sheep property-name)
        (get-cloneform-using-metasheep (sheep-metasheep sheep) sheep property-name)))
  (defun std-get-cloneform (sheep property-name)
  