anchor.diff:         finally (return *secret-unbound-value*)))
   
   (defun (setf get-clonefunction) (new-value sheep property-name)
  -  (if (std-metasheep-p sheep)
  +  (if (std-sheep-p sheep)
         (setf (std-get-clonefunction sheep property-name) new-value)
         (setf-get-clonefunction-using-metasheep
          new-value (sheep-metasheep sheep) sheep property-name)))
  
positive.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)
  
negative.code:     has-p))
  
  (defun who-sets (sheep property-name)
    (if (std-sheep-p sheep)
        (std-who-sets sheep property-name)
        (who-sets-using-metasheep (sheep-metasheep sheep) sheep property-name)))
  (defun std-who-sets (sheep property-name)
  