anchor.diff:  ;;;
   ;;; Messages
   ;;;
  -(defparameter the-standard-message-metaobject-form
  +(defparameter the-standard-message-metasheep-form
     '(clone ()
       ((name
  -      'standard-message-metaobject
  +      'standard-message-metasheep
         :cloneform 'standard-message)
        (buzzword
         nil
  
positive.code:       nil
        :cloneform (lambda () nil))
       (documentation
        "standard message metaobject"
        :cloneform ""))))
  
  (defparameter the-standard-role-metaobject-form
    '(clone ()
      ((name
        'standard-role-metaobject
        :cloneform 'standard-role)
       (position
        0
  
negative.code:       (append obj-keys (mapcar #'available-properties (sheep-direct-parents sheep)))))))
  
  (defun available-cloneforms (sheep)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
        (std-available-cloneforms sheep)
        (available-cloneforms-using-metasheep (sheep-metasheep sheep) sheep)))
  (defun std-available-cloneforms (sheep)
  