anchor.diff:      object))
   
   (defvar =t=
  -  (let ((obj (generate-sheep-std-metasheep =standard-sheep-metasheep=
  -					   :parents nil
  -					   :options nil)))
  -    (setf (get-property obj 'nickname) "=t=")
  +  (let ((obj (std-generate-sheep-instance =standard-sheep-metasheep=)))
  +    (setf (gethash 'nickname obj) "=t=")
       obj))
   
   (defvar =dolly= 
  
positive.code: (defun (setf message-documentation) (new-value message)
    (setf (get-property message 'documentation) new-value))
  
  (defun generate-sheep-standard-message (metasheep
  					&key name
  					buzzword
  					qualifiers
  					lambda-list
  					participants
  					function
  					body
  					(documentation ""))
    (let ((message (clone (metasheep)
  			((name name)
  			 (buzzword buzzword)
  			 (qualifiers qualifiers)
  
negative.code:   (setf (gethash 'clonefunctions clonefun-table) (lambda () (make-hash-table :test #'equal))))
  
  (defvar =standard-sheep-metasheep=
    (let ((object (make-hash-table :test #'equal)))
      (setf (gethash *secret-sheep-identifier* object) *secret-sheep-identifier*)
      (setf (gethash 'metasheep object) object)
      (setf (gethash 'nickname object) nil)
      (setf (gethash 'parents object) nil)
  