anchor.diff:  	    :format-args (list name)))
       (setf (fdefinition name) (lambda (&rest args) (apply-buzzword buzzword args)))))
   
  +;; This handles actual setup of the buzzword object (and finalization)
   (defun generate-buzzword (&key name
   			  lambda-list
   			  (documentation ""))
  
positive.code:     (finalize-buzzword buzzword)
      buzzword))
  
  (defun ensure-buzzword (name
  			&rest all-keys)
    (let ((buzzword (apply #'generate-buzzword
  
negative.code:     (setf (find-buzzword name) buzzword)
      buzzword))
  
  ;; This takes care of removing a buzzword entirely, including all roles associated with it.
  ;; It also makes the function unbound (so the dispatcher is no longer called)
  (defun undefine-buzzword (name &optional (errorp nil))
    (let ((buzzword (find-buzzword name errorp)))
      (when buzzword
  