anchor.diff:      (setf (gethash property-name property-table) new-value)))
   
   (defun get-cloneform (sheep property-name)
  -  (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
  +  (if (std-metasheep-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)
  
positive.code:       (append obj-keys (mapcar #'available-properties (gethash 'parents sheep)))))))
  
  (defun available-cloneforms (sheep)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
        (std-available-cloneforms sheep)
        (available-cloneforms-using-metasheep (sheep-metasheep sheep) sheep)))
  (defun std-available-cloneforms (sheep)
  
negative.code:     (unbound-property () nil)))
  
  (defun has-direct-property-p (sheep property-name)
    (if (std-metasheep-p sheep)
        (std-has-direct-property-p sheep property-name)
        (has-direct-property-p-using-metasheep 
         (sheep-metasheep sheep) sheep property-name)))
  