   (regexp-opt factor-declaration-words 'symbols))
 
 (defconst factor-integer-regex
-  "\\_<-?\\(0[xob][0-9a-fA-F]+\\|[0-9]+\\)\\_>")
+  "\\_<-?\\(0[xob][0-9a-fA-F]+\\|[0-9][0-9,]*\\)\\_>")
 
 (defconst factor-raw-float-regex
   "[0-9]*\\.[0-9]*\\([eEpP][+-]?[0-9]+\\)?")


(defconst factor-declaration-words
  '("deprecated"
    "flushable"
    "foldable"
    "inline"


(defconst factor-type-definition-regex
  (syntax-and-1-symbol
   '("COM-INTERFACE" "C-TYPE" "MIXIN" "SINGLETON" "SPECIALIZED-ARRAY"
     "TUPLE-ARRAY")))

(defconst factor-constructor-regex
  (one-symbol "<[^ >]+>"))
