anchor.diff:  
   ;;; These simplify life...
   
  -;;; The rationale for :SYMBOL-NAME --
  +;;; The rationale for :NAME --
   ;;;
   ;;; If we were to use :SYMBOL everywhere in a rule, e.g.
   ;;;
  
positive.code: ;;;  (foo x y z)
  ;;; where the names x y z would be viewed as lisp variables.
  ;;;
  ;;; But if we use :SYMBOL-NAME instead, e.g.:
  ;;;
  ;;; (define-sw-parser-rule :FOO ()
  ;;;   (:tuple "foo" (1 :SYMBOL-NAME) (2 :SYMBOL-NAME) (3 :SYMBOL-NAME))
  ;;;   (foo 1 2 3)
  ;;;
  ;;; then after substitutions we'd get lisp forms such as
  
negative.code: ;;;
  ;;; There might be simpler schemes, but this works well enough...
  
  (define-sw-parser-rule :NAME ()
    (:anyof
     ((:tuple "reduce")       "reduce")
     ((:tuple "expand")       "expand")
  