anchor.diff:      (remove-messages-with-name-qualifiers-and-participants name qualifiers participants)
       (add-message-to-sheeple name message participants)))
   
  -(defun ensure-message (name &rest all-keys)
  +(defun ensure-message (name &rest all-keys
  +		       &key
  +		       qualifiers
  +		       lambda-list
  +		       participants
  +		       function
  +		       body
  +		       (documentation ""))
     (when (not (find-buzzword name nil))
       (progn
         (warn 'style-warning)
         (ensure-buzzword
  -       :name name)))
  +       name)))
     (let* ((buzzword (find-buzzword name))
   	 (target-sheeple (sheepify-list participants))
   	 (message (apply
  -		   (if (eql (sheep-metobject buzzword) =standard-buzzword-metasheep=)
  +		   (if (eql (sheep-metasheep buzzword) =standard-buzzword-metasheep=)
   		       #'generate-sheep-standard-message
  -		       #'generate-sheep
  -		       (buzzword-message-metasheep buzzword)
  -		       :name name
  -		       :buzzword buzzword
  -		       all-keys))))
  +		       #'generate-sheep)
  +		   (buzzword-message-metasheep buzzword)
  +		   :name name
  +		   all-keys)))
       message))
   
   (defun add-message-to-buzzword (message buzzword)
  
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)
  