anchor.diff:    (make-annotated-variable 1 2 ':left-lcb ':right-lcb))
   
   ;;;  NOTE: We use normally use :NAME whereever the doc says :NAME,
  -;;;        but use :NON_KEYWORD_NAME instead for :SORT-NAME and :LOCAL-VARIABLE
  +;;;        but use :NON-KEYWORD-NAME instead for :SORT-NAME and :LOCAL-VARIABLE
   (define-sw-parser-rule :LOCAL-VARIABLE ()
  -  :NON_KEYWORD_NAME)
  +  :NON-KEYWORD-NAME)
   
   ;;; ------------------------------------------------------------------------
   ;;;   ANNOTATED-EXPRESSION
  
positive.code:    "_" "::" ":" "->" "|" "(" ")" "[" "]" "{" "}" "*" "." "/" ","
     ))
  
  (define-sw-parser-rule :NUMBER_AS_STRING ()
    (:tuple (1 :NUMBER))
    (format nil "~D" 1))
  
  
negative.code: 
  ;;; These simplify life...
  
  ;;; The rationale for :NON-KEYWORD-NAME --
  ;;;
  ;;; If we were to use :SYMBOL everywhere in a rule, e.g.
  ;;;
  