anchor.diff:  	(setf (fdefinition name) (lambda (&rest args) (apply-buzzword name args)))
   	buzzword)))
   
  -;;;
  -;;; Bootstrap
  -;;;
  -(defvar =standard-buzzword-metaobject= 
  -  (let ((obj (generate-sheep-object)))
  -    (setf (get-property obj 'name) '=standard-buzzword-metaobject=)
  -    (setf (get-property obj 'messages) nil)
  -    (setf (get-property obj 'documentation) "Standard buzzword metaobject")))
  -(defvar =standard-message-metaobject=
  -  (let ((obj (generate-sheep-object)))
  -    (setf (get-property obj 'name) '=standard-message-metaobject=)
  -    (setf (get-property obj 'qualifiers) nil)
  -    (setf (get-property obj 'lambda-list) nil)
  -    (setf (get-property obj 'participants) nil)
  -    (setf (get-property obj 'body) '(values))
  -    (setf (get-property obj 'function) (lambda () (values)))
  -    (setf (get-property obj 'documentation) "Standard message metaobject")))
  -(defvar =standard-role-metaobject=
  -  (let ((obj (generate-sheep-object)))
  -    (setf (get-property obj 'name) '=standard-role-metaobject=)
  -    (setf (get-property obj 'position) secret-unbound-value)
  -    (setf (get-property obj 'message-pointer) secret-unbound-value)))
  -
  
positive.code: 			:function (eval (make-message-lambda '(new-value sheep) 
  							     `((setf (get-property sheep ',prop-name)
  								     new-value)))))))
  
  ;;;
  ;;; Buzzword setup
  
negative.code:   (loop for property-list in properties
       do (set-up-property property-list sheep)))
  (defun set-up-property (sheep property)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
        (std-set-up-property sheep property)
        (set-up-property-using-metasheep 
         (sheep-metasheep sheep) sheep property)))
  (defun std-set-up-property (sheep property)
    (defmethod set-up-property (property-list (sheep standard-sheep))
    (let ((name (getf property-list :name))
  