anchor.diff:    (setf (gethash property-name (gethash 'clonefunctions sheep)) new-value))
   
   (defun remove-property (sheep property-name)
  -  (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
  +  (if (std-metasheep-p sheep)
         (std-remove-property sheep property-name)
         (remove-property-using-metasheep (sheep-metasheep sheep) sheep property-name)))
   (defun std-remove-property (sheep property-name)
  
positive.code:        finally (return *secret-unbound-value*)))
  
  (defun (setf get-cloneform) (new-value sheep property-name)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
        (setf (std-get-cloneform sheep property-name) new-value)
        (setf-get-cloneform-using-metasheep
         new-value (sheep-metasheep sheep) sheep property-name)))
  
negative.code:   (setf (gethash property-name (gethash 'cloneforms sheep)) new-value))
  
  (defun get-clonefunction (sheep property-name)
    (if (std-metasheep-p sheep)
        (std-get-clonefunction sheep property-name)
        (get-clonefunction-using-metasheep (sheep-metasheep sheep) sheep property-name)))
  (defun std-get-clonefunction (sheep property-name)
  