anchor.diff:  
   ) ; end buzzword-table closure
   
  -(defmacro defbuzzword (name &optional (docstring ""))
  -  `(ensure-buzzword
  -    :name ',name
  -    :documentation ,docstring))
  +;;; Buzzword definition
   
   (defun ensure-buzzword (&key name documentation)
     (if (find-buzzword name nil)
  
positive.code: ;;        push ancestor on ordering stack
  ;;      position := position + 1
  ;;  return most specific message-property
  ;; FUCK YOU SLATE
  
  (defun dispatch-message (selector &rest args)
    (apply (message-function `(find-most-specific-message ,selector ,@args)) args))
  
negative.code:     :accessor message-pointer)))
  
  ;;;
  ;;; Buzzword/message definition
  ;;;
  
  ;;; Macros
  (defmacro defbuzzword (name &optional (docstring ""))
    `(ensure-buzzword
      :name ',name
      :documentation ,docstring))
  
  (defmacro defmessage (name lambda-list &body body)
    `(ensure-message
      :name ',name
      :lambda-list (extract-lambda-list ',lambda-list)
      :participants (extract-participants ',lambda-list)
      :body '(block ,name ,@body)))
  
  ;;; Buzzword table
  (let ((buzzword-table (make-hash-table :test #'equal)))
  
    (defun find-buzzword (name &optional (errorp t))
  