"ABOUT:" "ARTICLE:"
"B"
"CONSULT:" "call-next-method"
- "EBNF:" ";EBNF"
+ ";EBNF"
"FOREIGN-ATOMIC-TYPE:" "FOREIGN-ENUM-TYPE:" "FOREIGN-RECORD-TYPE:" "FUNCTION-ALIAS:"
+ ";FUNCTOR"
"GIR:"
"GLSL-SHADER:" "GLSL-PROGRAM:"
"HINTS:"
(concat
(one-symbol (regexp-opt
'(":" "::" "GENERIC:" "GENERIC#" "DEFER:" "HOOK:"
- "MACRO:" "MACRO::" "MATH:" "MEMO:" "MEMO::"
+ "IDENTITY-MEMO:" "MACRO:" "MACRO::" "MATH:" "MEMO:" "MEMO::"
"POSTPONE:" "PRIMITIVE:" "SYNTAX:" "TYPED:" "TYPED::")))
ws+ symbol))
;; [parsing-word] [symbol-word]
(defconst factor-symbol-definition-regex
(syntax-and-1-symbol
- '("&" "CONSTANT" "DESTRUCTOR" "FORGET" "GAME" "HELP" "LIBRARY"
- "MAIN" "MAIN-WINDOW" "SLOT" "STRING" "SYMBOL" "VAR")))
+ '("&" "CONSTANT" "DESTRUCTOR" "EBNF" "FORGET" "FUNCTOR"
+ "GAME" "HELP" "LIBRARY" "MAIN" "MAIN-WINDOW" "SLOT" "STRING"
+ "SYMBOL" "VAR")))
;; [parsing-word] [symbol-word]* ;
(defconst factor-symbols-lines-regex
"COM-INTERFACE" "CONSULT"
"ENUM" "ERROR"
"FROM" "FUNCTION:" "FUNCTION-ALIAS:"
+ "IDENTITY-MEMO"
"INTERSECTION:"
"M" "M:" "MACRO" "MACRO:"
"MAIN-WINDOW" "MEMO" "MEMO:" "METHOD"