anchor.diff:        dolly
         (eval (second item))))
   
  +;;; Message definition
   (defun ensure-message (&key name lambda-list participants body)
     (if (not (find-buzzword name nil))
         (error "There is no buzzword defined for ~S" name)
  
positive.code: 
  ) ; end buzzword-table closure
  
  (defmacro defbuzzword (name &optional (docstring ""))
    `(ensure-buzzword
      :name ',name
      :documentation ,docstring))
  
  (defun ensure-buzzword (&key name documentation)
    (if (find-buzzword name nil)
  
negative.code: 	(setf (fdefinition name) #'dispatch-message)
  	buzzword)))
  
  (defun extract-lambda-list (lambda-list)
    (mapcar #'extract-var-name lambda-list))
  (defun extract-var-name (item)
  