anchor.diff:    (MetaSlang::mkQualifiedId-2 1 2))
   
   (define-sw-parser-rule :CLAIM-NAME ()
  -  (1 :NAME)
  -  1)
  +  :NAME)
   
   ;;; ------------------------------------------------------------------------
   ;;;  SORT-DECLARATION
  
positive.code:    ((:tuple "using")        "using")
     ((:tuple "options")      "options")
     ((:tuple "answerVar")    "answerVar")
     ((1 :SYMBOL)             (common-lisp::symbol-name (quote 1)))
     ))
  
  (define-sw-parser-rule :EQUALS ()
  
negative.code:   1)					; e.g. ("x" "y" "z") => (list "x" "y" "z")
  
  (define-sw-parser-rule :LOCAL-SORT-VARIABLE ()
    :SYMBOL-NAME)			; don't allow "="
  
  ;;; ------------------------------------------------------------------------
  ;;;  SORT-DEFINITION
  