anchor.diff:      object))
   
   (defvar =t=
  -  (let ((obj (std-generate-sheep =standard-sheep-metasheep=
  -				 :parents nil
  -				 :options nil)))
  +  (let ((obj (generate-sheep-std-metasheep =standard-sheep-metasheep=
  +					   :parents nil
  +					   :options nil)))
       (setf (get-property obj 'nickname) "=t=")
       obj))
   
  
positive.code: 	 ()
  	 (:nickname "=dolly=")))
  
  (setf (sheep-direct-parents =standard-sheep-metasheep=)
        (list =dolly=))
  
  ;;; Wolves and wolf-handling
  (defvar =white-fang= (clone (=t=) () (:nickname "=white-fang=")))
  
negative.code:       :cloneform ""))))
  
  (defun buzzword-name (buzzword)
    (get-property buzzword name))
  (defun (setf buzzword-name) (new-value buzzword)
    (setf (get-property buzzword 'name) new-value))
  
  (defun buzzword-message-metasheep (buzzword)
    (get-property buzzword 'message-metasheep))
  (defun (setf buzzword-message-metasheep) (new-value buzzword)
    (setf (get-property buzzword 'message-metasheep) new-value))
  
  (defun buzzword-role-metasheep (buzzword)
    (get-property buzzword 'role-metasheep))
  (defun (setf buzzword-role-metasheep) (new-value buzzword)
    (setf (get-property buzzword 'role-metasheep) new-value))
  
  (defun buzzword-messages (buzzword)
    (get-property buzzword 'messages))
  (defun (setf buzzword-messages) (new-value buzzword)
    (setf (get-property buzzword 'messages) new-value))
  
  (defun buzzword-documentation (buzzword)
    (get-property buzzword 'documentation))
  (defun (setf buzzword-documentation) (new-value buzzword)
    (setf (get-property buzzword 'documentation) new-value))
  
  ;;;
  ;;; Buzzword definition
  