anchor.diff:  ) ; end buzzword table closure
   
   (defun available-messages (sheep)
  -  (if (eql =standard-sheep-metaobject= (sheep-metaobject sheep))
  +  (if (eql =standard-sheep-metasheep= (sheep-metasheep sheep))
         (std-available-messages sheep)
  -      (available-messages-using-metaobject (sheep-metaobject sheep))))
  +      (available-messages-using-metasheep (sheep-metasheep sheep))))
   
   (defun std-finalize-buzzword (buzzword)
     (let ((name (buzzword-name buzzword)))
  
positive.code: 
  ;;; Inheritance setup
  (defun add-parent (new-parent child)
    (if (and (eql =standard-sheep-metaobject= (sheep-metaobject child))
  	   (eql =standard-sheep-metaobject= (sheep-metaobject new-parent)))
        (std-add-parent new-parent child)
        (add-parent-using-metaobjects 
         (sheep-metaobject new-parent) (sheep-metaobject child)
         new-parent child)))
  (defun std-add-parent (new-parent child)
    (cond ((equal new-parent child)
  
negative.code:       nil
        :cloneform (lambda () nil))
       (documentation
        "standard message metasheep"
        :cloneform ""))))
  
  (defparameter the-standard-role-metasheep-form
    '(clone ()
      ((name
        'standard-role-metasheep
        :cloneform 'standard-role)
       (position
        0
  