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

    "HINTS:"
    "initial:" "INTERSECTION:" "IMPLEMENT-STRUCTS:"
    "MACRO:" "MACRO::" "MATH:"
    "MEMO:" "MEMO:" "METHOD:"
    "PRIVATE>" "PROTOCOL:" "PROVIDE:"
    "read-only" "REQUIRE:"  "REQUIRES:"
    "SINGLETONS:" "SLOT:"

  (regexp-opt factor-declaration-words 'symbols))

(defconst factor-integer-regex
  "\\_<-?\\(0[xob][0-9a-fA-F]+\\|[0-9][0-9,]*\\)\\_>")

(defconst factor-raw-float-regex
  "[0-9]*\\.[0-9]*\\([eEpP][+-]?[0-9]+\\)?")
