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:   (loop for option in options
       do (set-up-option option sheep)))
  (defun set-up-option (sheep option)
    (if (eql (sheep-metaobject sheep) =standard-sheep-metaobject=)
        (std-set-up-option sheep option)
        (set-up-option-using-metaobject
         (sheep-metaobject sheep) sheep option)))
  (defun std-set-up-option (sheep option)
    (let ((option (car option))
  	(value (cadr option)))
  
negative.code: ;;;
  ;;; Create-a-sheep
  ;;;
  
  (defun spawn-sheep (sheeple properties
  		    &rest all-keys
  		    &key (metasheep =standard-sheep-metasheep=)
  		    &allow-other-keys)
    "Creates a new sheep with SHEEPLE as its parents, and PROPERTIES as its properties"
    (let ((sheep (apply (if (eql metasheep =standard-sheep-metasheep=)
  			  #'std-generate-sheep
  			  #'generate-sheep
  			  metasheep sheeple properties all-keys))))
      (if (eql metasheep =standard-sheep-metasheep=)
  	(std-finalize-sheep sheep)
  	(finalize-sheep sheep))
      sheep))
  
  (defun set-up-inheritance (sheep the-parents)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
        (std-set-up-inheritance sheep the-parents)
        (set-up-inheritance-using-metasheep (sheep-metasheep sheep) sheep the-parents)))
  (defun std-set-up-inheritance (sheep parents)
    (let ((obj new-sheep))
      (if sheeple
  