anchor.diff:  ;;;
   ;;; Printing sheep!
   ;;;
  -(defbuzzword print-sheep
  -    (:documentation "Defines the expression print-object uses."))
  +(defbuzzword print-sheep (sheep stream)
  +  (:documentation "Defines the expression print-object uses."))
   (defmessage print-sheep (sheep stream)
     (print-unreadable-object (sheep stream :identity t)
       (format stream "Standard Sheep~@[ AKA: ~a~]" (sheep-nickname sheep))))
  
positive.code:   (setf (std-property-value sheep property-name) new-value))
  
  
  (defbuzzword get-cloneform-using-metasheep)
  (defmessage get-cloneform-using-metasheep ((metasheep =standard-sheep-metasheep=) sheep property-name)
    (declare (ignore metasheep))
    (std-get-cloneform sheep property-name))
  
  (defbuzzword setf-get-cloneform-using-metasheep
      (:documentation "Sets the cloneform, dispatching on the metasheep."))
  (defmessage setf-get-cloneform-using-metasheep (new-value
  						(metasheep =standard-sheep-metasheep=) 
  
negative.code:   (declare (ignore metasheep))
    (setf (std-get-cloneform sheep property-name) new-value))
  
  (defbuzzword get-clonefunction-using-metasheep (metasheep sheep property-name))
  (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 (new-value metasheep sheep property-name)
      (:documentation "Sets the clonefunction, dispatching on the metasheep."))
  (defmessage setf-get-clonefunction-using-metasheep (new-value
  						    (metasheep =standard-sheep-metasheep=) 
  