anchor.diff:             "READ-CPP-TOKENS"
              "CPP-E"
              "*WHITESPACES*" "WHITESPACEP"
  +           "STRING-VALUE" "CHARACTER-VALUE" "INTEGER-VALUE"
              ))
   
   ;;;; THE END ;;;;
  
positive.code:            "TOKEN" "TOKEN-LINE" "TOKEN-COLUMN" "TOKEN-FILE"
             "TOKEN-TEXT" "IDENTIFIER-TOKEN" "NUMBER-TOKEN" "PUNCTUATION-TOKEN"
             "OTHER-TOKEN"
             "ENVIRONMENT-MACRO-DEFINITION"
             "ENVIRONMENT-MACRO-DEFINEDP"
             "ENVIRONMENT-MACRO-UNDEFINE"
  
negative.code:   (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STREAM"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
          "COM.INFORMATIMAGO.COMMON-LISP.PARSER.SCANNER")
    (:shadow "IMPORT" "INCLUDE")
    (:shadowing-import-from "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING"
                            "STRING-DESIGNATOR")
  