anchor.diff:  
   
   (defmacro grammar (&body body)
  +  "Create a grammar object from a set of rules."
     (let ((rule (gensym "RULE"))
   	(rules (gensym "RULES"))
   	(result (gensym "RESULT")))
  
positive.code:   (:documentation "This condition is signaled whenever an attempt is
  made to execute a by-experssion motion command and no expression is available." ))
  
  (defgeneric update-syntax (buffer syntax))
  
  (defgeneric update-syntax-for-display (buffer syntax from to))
  
  (defgeneric syntax-line-indentation (mark tab-width syntax)
    (:documentation "Return the correct indentation for the line containing
  
negative.code:                   :initform (error "A command table has not been provided for this syntax")
                    :reader command-table)
     (%cursor-positions :accessor cursor-positions
                        :initform nil))
    (:documentation "The base class for all syntaxes."))
  
  (defun syntaxp (object)
    "Return T if `object' is an instance of a syntax, NIL
  