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