 (defconst factor-symbol-definition-regex
   (syntax-and-1-symbol
    '("&" "CONSTANT" "DESTRUCTOR" "FORGET" "GAME" "HELP" "LIBRARY"
-     "MAIN" "MAIN-WINDOW" "STRING" "SYMBOL" "VAR")))
+     "MAIN" "MAIN-WINDOW" "SLOT" "STRING" "SYMBOL" "VAR")))
 
 ;; [parsing-word] [symbol-word]* ;
 (defconst factor-symbols-lines-regex

    "METHOD:"
    "PRIVATE>" "PROTOCOL:" "PROVIDE:"
    "read-only"
    "SLOT:"
    "STRING:" "SYNTAX:"
    "UNIFORM-TUPLE:"
    "VARIANT:" "VERTEX-FORMAT:"))

    (modify-syntax-entry ?# "_" table)
    (modify-syntax-entry ?! "_" table)
    (modify-syntax-entry ?\n ">   " table)
    (modify-syntax-entry ?\\ "_" table)
    (modify-syntax-entry ?$ "_" table)
    (modify-syntax-entry ?@ "_" table)
    (modify-syntax-entry ?? "_" table)
