anchor.diff:  		   (sheep-direct-roles sheep))
       t))
   
  -(defbuzzword buzzword-p)
  +(defbuzzword buzzword-p (buzzword?))
   (defmessage buzzword-p (anything-else)
     (declare (ignore anything-else))
     nil)
  
positive.code: ;;;
  ;;; Printing sheep!
  ;;;
  (defbuzzword print-sheep
      (: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))))
  
negative.code:     (format stream "Standard Role: ~a" (role-name sheep))))
  
  ;;; Property access
  (defbuzzword property-value-using-metasheep (metasheep sheep property-name))
  (defmessage property-value-using-metasheep ((metasheep =standard-sheep-metasheep=) sheep property-name)
    (declare (ignore metasheep))
    (std-property-value sheep property-name))
  
  (defbuzzword setf-property-value-using-metasheep (new-value metasheep sheep property-name)
      (:documentation "Sets the property, dispatching on the metasheep."))
  (defmessage setf-property-value-using-metasheep (new-value
  						 (metasheep =standard-sheep-metasheep=) 
  