anchor.diff:      :initarg :test-symbol
       :initform nil
       :reader syntax-match-test-symbol)
  -   (end-symbol
  -    :initarg :end-symbol
  -    :initform nil
  -    :reader syntax-match-end-symbol)
      (matched-symbol
       :initarg :matched-symbol
       :initform nil
  
positive.code:     syntax-table))
  
  (defun syntax-add-match (syntax-table test
                                        &key test-symbol end-symbol attribute
                                        matched-symbol move-action)
    (push (make-instance 'syntax-match
                         :test test
                         :test-symbol test-symbol
                         :end-symbol end-symbol
                         :attribute attribute
                         :matched-symbol matched-symbol
                         :move-action move-action)
  
negative.code:              (push (cons (syntax-match-matched-symbol syntax)
                           1)
                     *syntax-symbol-lifetimes*))
             (cond
               ((syntax-match-move-action syntax)
                (let ((goal-point (syntax-scan-move-action syntax start)))
  