anchor.diff:    (declare (ignore message))
     t)
   
  -(defbuzzword available-messages-using-metasheep)
  +(defbuzzword available-messages-using-metasheep (metasheep sheep))
   (defmessage available-messages-using-metasheep ((metasheep =standard-sheep-metasheep=) sheep)
     (declare (ignore metasheep))
     (std-available-messages sheep))
  
positive.code:   (declare (ignore metasheep))
    (setf (std-get-cloneform sheep property-name) new-value))
  
  (defbuzzword get-clonefunction-using-metasheep)
  (defmessage get-clonefunction-using-metasheep ((metasheep =standard-sheep-metasheep=) sheep property-name)
    (declare (ignore metasheep))
    (std-get-clonefunction sheep property-name))
  
  (defbuzzword setf-get-clonefunction-using-metasheep
      (:documentation "Sets the clonefunction, dispatching on the metasheep."))
  (defmessage setf-get-clonefunction-using-metasheep (new-value
  						    (metasheep =standard-sheep-metasheep=) 
  
negative.code:   (declare (ignore metasheep))
    (setf (std-get-clonefunction sheep property-name) new-value))
  
  (defbuzzword remove-property-using-metasheep (metasheep sheep property-name)
      (:documentation "Locally removes the specified property"))
  (defmessage remove-property-using-metasheep ((metasheep =standard-sheep-metasheep=)
  					     sheep property-name)
    (declare (ignore metasheep))
    (std-remove-property sheep property-name))
  
  (defbuzzword has-direct-property-p-using-metasheep (metasheep sheep property-name)
      (:documentation "Returns T if the specified property is present locally."))
  (defmessage has-direct-property-p-using-metasheep ((metasheep =standard-sheep-metasheep=)
  						   sheep property-name)
    (declare (ignore metasheep))
    (std-has-direct-property-p sheep property-name))
  
  (defbuzzword who-sets-using-metasheep (metasheep sheep property-name)
      (:documentation "Returns the sheep object that SHEEP inherits the property-value from."))
  (defmessage who-sets-using-metasheep ((metasheep =standard-sheep-metasheep=)
  				      sheep property-name)
    (declare (ignore metasheep))
    (std-who-sets sheep property-name))
  
  (defbuzzword available-properties-using-metasheep (metasheep sheep)
      (:documentation "Returns a list of symbols of available properties."))
  (defmessage available-properties-using-metasheep ((metasheep =standard-sheep-metasheep=)
  						  sheep)
    (declare (ignore metasheep))
    (std-available-properties sheep))
  
  (defbuzzword available-cloneforms-using-metasheep (metasheep sheep)
      (:documentation "Returns a list of symbols of available cloneforms."))
  (defmessage available-cloneforms-using-metasheep ((metasheep =standard-sheep-metasheep=)
  						  sheep)
  