anchor.diff:  
   (define-sw-parser-rule :TRANSFORM-TERM ()
     (:anyof
  +   (1 :NON-APPLY-TRANSFORM-TERM)
  +   (1 :TRANSFORM-APPLY)
  +   )
  +  1)
  +
  +(define-sw-parser-rule :NON-APPLY-TRANSFORM-TERM ()
  +  (:anyof
      (1 :TRANSFORM-NUMBER)
      (1 :TRANSFORM-STRING)
      (1 :TRANSFORM-TRUE)
  
positive.code:    (1 :TRANSFORM-UID)
     (1 :TRANSFORM-QUALIFIED-NAME)
     (1 :TRANSFORM-QUOTED-TERM)
     (1 :TRANSFORM-APPLY)
  
     (1 :TRANSFORM-TUPLE)
     (1 :TRANSFORM-LIST)
  
negative.code:   (make-transform-repeat 1 ':left-lcb ':right-lcb))
  
  (define-sw-parser-rule :TRANSFORM-PROC ()
    (:tuple (1 :SYMBOL) (2 (:repeat* :NON-APPLY-TRANSFORM-TERM)))
      (make-transform-command (common-lisp::symbol-name (quote 1)) 2 ':left-lcb ':right-lcb))
  
  ;; (define-sw-parser-rule :TRANSFORM-EXPR-ARG ()
  