home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / src / constsym.d < prev    next >
Encoding:
Text File  |  1996-06-11  |  65.5 KB  |  1,450 lines
  1. # Liste aller dem C-Programm bekannten Symbole ("Programmkonstanten")
  2. # Bruno Haible 20.6.1995
  3.  
  4. # Der Macro LISPSYM deklariert ein LISP-Symbol.
  5. # LISPSYM(name,printname,package)
  6. # > name: C-Name des Symbols.
  7. # > printname: Printname des Symbols (ein C-String).
  8. # > package: Home-Package des Symbols, entweder lisp oder system oder keyword.
  9. # >          Aus der Package lisp wird es automatisch exportiert.
  10.  
  11. # Expander für die Deklaration der Symbol-Tabelle:
  12.   #define LISPSYM_A(name,printname,package)  \
  13.     symbol_ S_##name;
  14.  
  15. # Expander für die Initialisierung der Symbol-Tabelle:
  16.   #define LISPSYM_B(name,printname,package_)  \
  17.     ptr->header.GCself = S(name); \
  18.     ptr->symvalue = unbound;      \
  19.     ptr->symfunction = unbound;   \
  20.     ptr->proplist = NIL;          \
  21.     ptr->pname = NIL;             \
  22.     ptr->homepackage = NIL;       \
  23.     ptr++;
  24.   #define LISPSYM_C(name,printname,package)  \
  25.     { {S(name)}, unbound, unbound, NIL, NIL, NIL, },
  26.   #define LISPSYM_D(name,printname,package)  printname,
  27.   #define LISPSYM_E(name,printname,package)  (uintB)enum_##package##_index,
  28.  
  29. # Welcher Expander benutzt wird, muß vom Hauptfile aus eingestellt werden.
  30.  
  31.  
  32. LISPSYM(nil,"NIL",lisp)
  33. LISPSYM(t,"T",lisp)
  34.  
  35. # FSUBRs in CONTROL:
  36. LISPSYM(eval_when,"EVAL-WHEN",lisp)
  37. LISPSYM(quote,"QUOTE",lisp)
  38. LISPSYM(function,"FUNCTION",lisp)
  39. LISPSYM(setq,"SETQ",lisp)
  40. LISPSYM(psetq,"PSETQ",lisp)
  41. LISPSYM(progn,"PROGN",lisp)
  42. LISPSYM(prog1,"PROG1",lisp)
  43. LISPSYM(prog2,"PROG2",lisp)
  44. LISPSYM(let,"LET",lisp)
  45. LISPSYM(letstern,"LET*",lisp)
  46. LISPSYM(locally,"LOCALLY",lisp)
  47. LISPSYM(compiler_let,"COMPILER-LET",lisp)
  48. LISPSYM(progv,"PROGV",lisp)
  49. LISPSYM(flet,"FLET",lisp)
  50. LISPSYM(labels,"LABELS",lisp)
  51. LISPSYM(macrolet,"MACROLET",lisp)
  52. LISPSYM(symbol_macrolet,"SYMBOL-MACROLET",lisp)
  53. LISPSYM(if,"IF",lisp)
  54. LISPSYM(when,"WHEN",lisp)
  55. LISPSYM(unless,"UNLESS",lisp)
  56. LISPSYM(cond,"COND",lisp)
  57. LISPSYM(block,"BLOCK",lisp)
  58. LISPSYM(return_from,"RETURN-FROM",lisp)
  59. LISPSYM(tagbody,"TAGBODY",lisp)
  60. LISPSYM(go,"GO",lisp)
  61. LISPSYM(multiple_value_list,"MULTIPLE-VALUE-LIST",lisp)
  62. LISPSYM(multiple_value_call,"MULTIPLE-VALUE-CALL",lisp)
  63. LISPSYM(multiple_value_prog1,"MULTIPLE-VALUE-PROG1",lisp)
  64. LISPSYM(multiple_value_bind,"MULTIPLE-VALUE-BIND",lisp)
  65. LISPSYM(multiple_value_setq,"MULTIPLE-VALUE-SETQ",lisp)
  66. LISPSYM(catch,"CATCH",lisp)
  67. LISPSYM(unwind_protect,"UNWIND-PROTECT",lisp)
  68. LISPSYM(throw,"THROW",lisp)
  69. LISPSYM(declare,"DECLARE",lisp)
  70. LISPSYM(the,"THE",lisp)
  71. LISPSYM(load_time_value,"LOAD-TIME-VALUE",lisp)
  72. LISPSYM(and,"AND",lisp)
  73. LISPSYM(or,"OR",lisp)
  74.  
  75. # SUBRs:
  76. # ---------- SPVW ----------
  77. # keine SUBRs
  78. # ---------- EVAL ----------
  79. LISPSYM(funtabref,"%FUNTABREF",system)
  80. LISPSYM(subr_info,"SUBR-INFO",system)
  81. LISPSYM(find_subr,"%FIND-SUBR",system)
  82. #ifdef VCODE
  83. # ---------- VCODE ---------
  84. LISPSYM(vcode_compile,"VCODE-COMPILE",system)
  85. #endif
  86. # ---------- ARRAY ----------
  87. LISPSYM(vector,"VECTOR",lisp)
  88. LISPSYM(aref,"AREF",lisp)
  89. LISPSYM(store,"STORE",system)
  90. LISPSYM(svref,"SVREF",lisp)
  91. LISPSYM(svstore,"SVSTORE",system)
  92. LISPSYM(psvstore,"%SVSTORE",system)
  93. LISPSYM(row_major_aref,"ROW-MAJOR-AREF",lisp)
  94. LISPSYM(row_major_store,"ROW-MAJOR-STORE",system)
  95. LISPSYM(array_element_type,"ARRAY-ELEMENT-TYPE",lisp)
  96. LISPSYM(array_rank,"ARRAY-RANK",lisp)
  97. LISPSYM(array_dimension,"ARRAY-DIMENSION",lisp)
  98. LISPSYM(array_dimensions,"ARRAY-DIMENSIONS",lisp)
  99. LISPSYM(array_total_size,"ARRAY-TOTAL-SIZE",lisp)
  100. LISPSYM(array_in_bounds_p,"ARRAY-IN-BOUNDS-P",lisp)
  101. LISPSYM(array_row_major_index,"ARRAY-ROW-MAJOR-INDEX",lisp)
  102. LISPSYM(adjustable_array_p,"ADJUSTABLE-ARRAY-P",lisp)
  103. LISPSYM(bit,"BIT",lisp)
  104. LISPSYM(sbit,"SBIT",lisp)
  105. LISPSYM(bit_and,"BIT-AND",lisp)
  106. LISPSYM(bit_ior,"BIT-IOR",lisp)
  107. LISPSYM(bit_xor,"BIT-XOR",lisp)
  108. LISPSYM(bit_eqv,"BIT-EQV",lisp)
  109. LISPSYM(bit_nand,"BIT-NAND",lisp)
  110. LISPSYM(bit_nor,"BIT-NOR",lisp)
  111. LISPSYM(bit_andc1,"BIT-ANDC1",lisp)
  112. LISPSYM(bit_andc2,"BIT-ANDC2",lisp)
  113. LISPSYM(bit_orc1,"BIT-ORC1",lisp)
  114. LISPSYM(bit_orc2,"BIT-ORC2",lisp)
  115. LISPSYM(bit_not,"BIT-NOT",lisp)
  116. LISPSYM(array_has_fill_pointer_p,"ARRAY-HAS-FILL-POINTER-P",lisp)
  117. LISPSYM(fill_pointer,"FILL-POINTER",lisp)
  118. LISPSYM(set_fill_pointer,"SET-FILL-POINTER",system)
  119. LISPSYM(vector_push,"VECTOR-PUSH",lisp)
  120. LISPSYM(vector_pop,"VECTOR-POP",lisp)
  121. LISPSYM(vector_push_extend,"VECTOR-PUSH-EXTEND",lisp)
  122. LISPSYM(initial_contents_aux,"INITIAL-CONTENTS-AUX",system)
  123. LISPSYM(make_array,"MAKE-ARRAY",lisp)
  124. LISPSYM(adjust_array,"ADJUST-ARRAY",lisp)
  125. LISPSYM(vector_init,"VECTOR-INIT",system)
  126. LISPSYM(vector_upd,"VECTOR-UPD",system)
  127. LISPSYM(vector_endtest,"VECTOR-ENDTEST",system)
  128. LISPSYM(vector_fe_init,"VECTOR-FE-INIT",system)
  129. LISPSYM(vector_fe_upd,"VECTOR-FE-UPD",system)
  130. LISPSYM(vector_fe_endtest,"VECTOR-FE-ENDTEST",system)
  131. LISPSYM(vector_length,"VECTOR-LENGTH",system)
  132. LISPSYM(vector_init_start,"VECTOR-INIT-START",system)
  133. LISPSYM(vector_fe_init_end,"VECTOR-FE-INIT-END",system)
  134. LISPSYM(make_bit_vector,"MAKE-BIT-VECTOR",system)
  135. # ---------- CHARSTRG ----------
  136. LISPSYM(standard_char_p,"STANDARD-CHAR-P",lisp)
  137. LISPSYM(graphic_char_p,"GRAPHIC-CHAR-P",lisp)
  138. LISPSYM(string_char_p,"STRING-CHAR-P",lisp)
  139. LISPSYM(alpha_char_p,"ALPHA-CHAR-P",lisp)
  140. LISPSYM(upper_case_p,"UPPER-CASE-P",lisp)
  141. LISPSYM(lower_case_p,"LOWER-CASE-P",lisp)
  142. LISPSYM(both_case_p,"BOTH-CASE-P",lisp)
  143. LISPSYM(digit_char_p,"DIGIT-CHAR-P",lisp)
  144. LISPSYM(alphanumericp,"ALPHANUMERICP",lisp)
  145. LISPSYM(char_gleich,"CHAR=",lisp)
  146. LISPSYM(char_ungleich,"CHAR/=",lisp)
  147. LISPSYM(char_kleiner,"CHAR<",lisp)
  148. LISPSYM(char_groesser,"CHAR>",lisp)
  149. LISPSYM(char_klgleich,"CHAR<=",lisp)
  150. LISPSYM(char_grgleich,"CHAR>=",lisp)
  151. LISPSYM(char_equal,"CHAR-EQUAL",lisp)
  152. LISPSYM(char_not_equal,"CHAR-NOT-EQUAL",lisp)
  153. LISPSYM(char_lessp,"CHAR-LESSP",lisp)
  154. LISPSYM(char_greaterp,"CHAR-GREATERP",lisp)
  155. LISPSYM(char_not_greaterp,"CHAR-NOT-GREATERP",lisp)
  156. LISPSYM(char_not_lessp,"CHAR-NOT-LESSP",lisp)
  157. LISPSYM(char_code,"CHAR-CODE",lisp)
  158. LISPSYM(char_bits,"CHAR-BITS",lisp)
  159. LISPSYM(char_font,"CHAR-FONT",lisp)
  160. LISPSYM(code_char,"CODE-CHAR",lisp)
  161. LISPSYM(make_char,"MAKE-CHAR",lisp)
  162. LISPSYM(character,"CHARACTER",lisp)
  163. LISPSYM(char_upcase,"CHAR-UPCASE",lisp)
  164. LISPSYM(char_downcase,"CHAR-DOWNCASE",lisp)
  165. LISPSYM(digit_char,"DIGIT-CHAR",lisp)
  166. LISPSYM(char_int,"CHAR-INT",lisp)
  167. LISPSYM(int_char,"INT-CHAR",lisp)
  168. LISPSYM(char_name,"CHAR-NAME",lisp)
  169. LISPSYM(char_bit,"CHAR-BIT",lisp)
  170. LISPSYM(set_char_bit,"SET-CHAR-BIT",lisp)
  171. LISPSYM(char,"CHAR",lisp)
  172. LISPSYM(schar,"SCHAR",lisp)
  173. LISPSYM(store_char,"STORE-CHAR",system)
  174. LISPSYM(store_schar,"STORE-SCHAR",system)
  175. LISPSYM(string_gleich,"STRING=",lisp)
  176. LISPSYM(string_ungleich,"STRING/=",lisp)
  177. LISPSYM(string_kleiner,"STRING<",lisp)
  178. LISPSYM(string_groesser,"STRING>",lisp)
  179. LISPSYM(string_klgleich,"STRING<=",lisp)
  180. LISPSYM(string_grgleich,"STRING>=",lisp)
  181. LISPSYM(string_equal,"STRING-EQUAL",lisp)
  182. LISPSYM(string_not_equal,"STRING-NOT-EQUAL",lisp)
  183. LISPSYM(string_lessp,"STRING-LESSP",lisp)
  184. LISPSYM(string_greaterp,"STRING-GREATERP",lisp)
  185. LISPSYM(string_not_greaterp,"STRING-NOT-GREATERP",lisp)
  186. LISPSYM(string_not_lessp,"STRING-NOT-LESSP",lisp)
  187. LISPSYM(search_string_gleich,"SEARCH-STRING=",system)
  188. LISPSYM(search_string_equal,"SEARCH-STRING-EQUAL",system)
  189. LISPSYM(make_string,"MAKE-STRING",lisp)
  190. LISPSYM(string_both_trim,"STRING-BOTH-TRIM",system)
  191. LISPSYM(nstring_upcase,"NSTRING-UPCASE",lisp)
  192. LISPSYM(string_upcase,"STRING-UPCASE",lisp)
  193. LISPSYM(nstring_downcase,"NSTRING-DOWNCASE",lisp)
  194. LISPSYM(string_downcase,"STRING-DOWNCASE",lisp)
  195. LISPSYM(nstring_capitalize,"NSTRING-CAPITALIZE",lisp)
  196. LISPSYM(string_capitalize,"STRING-CAPITALIZE",lisp)
  197. LISPSYM(string,"STRING",lisp)
  198. LISPSYM(name_char,"NAME-CHAR",lisp)
  199. LISPSYM(substring,"SUBSTRING",lisp)
  200. LISPSYM(string_concat,"STRING-CONCAT",lisp)
  201. # ---------- CONTROL ----------
  202. LISPSYM(exit,"%EXIT",system)
  203. LISPSYM(psymbol_value,"%SYMBOL-VALUE",system)
  204. LISPSYM(symbol_value,"SYMBOL-VALUE",lisp)
  205. LISPSYM(symbol_function,"SYMBOL-FUNCTION",lisp)
  206. LISPSYM(fdefinition,"FDEFINITION",lisp)
  207. LISPSYM(boundp,"BOUNDP",lisp)
  208. LISPSYM(fboundp,"FBOUNDP",lisp)
  209. LISPSYM(special_form_p,"SPECIAL-FORM-P",lisp)
  210. LISPSYM(set,"SET",lisp)
  211. LISPSYM(makunbound,"MAKUNBOUND",lisp)
  212. LISPSYM(fmakunbound,"FMAKUNBOUND",lisp)
  213. LISPSYM(apply,"APPLY",lisp)
  214. LISPSYM(pfuncall,"%FUNCALL",system)
  215. LISPSYM(funcall,"FUNCALL",lisp)
  216. LISPSYM(mapcar,"MAPCAR",lisp)
  217. LISPSYM(maplist,"MAPLIST",lisp)
  218. LISPSYM(mapc,"MAPC",lisp)
  219. LISPSYM(mapl,"MAPL",lisp)
  220. LISPSYM(mapcan,"MAPCAN",lisp)
  221. LISPSYM(mapcon,"MAPCON",lisp)
  222. LISPSYM(values,"VALUES",lisp)
  223. LISPSYM(values_list,"VALUES-LIST",lisp)
  224. LISPSYM(driver,"DRIVER",system)
  225. LISPSYM(unwind_to_driver,"UNWIND-TO-DRIVER",system)
  226. LISPSYM(macro_function,"MACRO-FUNCTION",lisp)
  227. LISPSYM(macroexpand,"MACROEXPAND",lisp)
  228. LISPSYM(macroexpand_1,"MACROEXPAND-1",lisp)
  229. LISPSYM(proclaim,"PROCLAIM",lisp)
  230. LISPSYM(eval,"EVAL",lisp)
  231. LISPSYM(evalhook,"EVALHOOK",lisp)
  232. LISPSYM(applyhook,"APPLYHOOK",lisp)
  233. LISPSYM(constantp,"CONSTANTP",lisp)
  234. LISPSYM(function_name_p,"FUNCTION-NAME-P",system)
  235. LISPSYM(parse_body,"PARSE-BODY",system)
  236. LISPSYM(keyword_test,"KEYWORD-TEST",system)
  237. # ---------- DEBUG ----------
  238. LISPSYM(read_form,"READ-FORM",system)
  239. LISPSYM(read_eval_print,"READ-EVAL-PRINT",system)
  240. LISPSYM(load,"LOAD",lisp)
  241. LISPSYM(frame_up_1,"FRAME-UP-1",system)
  242. LISPSYM(frame_up,"FRAME-UP",system)
  243. LISPSYM(frame_down_1,"FRAME-DOWN-1",system)
  244. LISPSYM(frame_down,"FRAME-DOWN",system)
  245. LISPSYM(the_frame,"THE-FRAME",system)
  246. LISPSYM(same_env_as,"SAME-ENV-AS",system)
  247. LISPSYM(eval_at,"EVAL-AT",system)
  248. LISPSYM(eval_frame_p,"EVAL-FRAME-P",system)
  249. LISPSYM(driver_frame_p,"DRIVER-FRAME-P",system)
  250. LISPSYM(trap_eval_frame,"TRAP-EVAL-FRAME",system)
  251. LISPSYM(redo_eval_frame,"REDO-EVAL-FRAME",system)
  252. LISPSYM(return_from_eval_frame,"RETURN-FROM-EVAL-FRAME",system)
  253. LISPSYM(describe_frame,"DESCRIBE-FRAME",system)
  254. LISPSYM(show_stack,"SHOW-STACK",lisp)
  255. LISPSYM(debug,"DEBUG",system)
  256. LISPSYM(room,"ROOM",lisp)
  257. LISPSYM(gc,"GC",lisp)
  258. # ---------- ERROR ----------
  259. LISPSYM(error,"ERROR",lisp)
  260. LISPSYM(defclcs,"%DEFCLCS",system)
  261. LISPSYM(error_of_type,"ERROR-OF-TYPE",system)
  262. LISPSYM(invoke_debugger,"INVOKE-DEBUGGER",lisp)
  263. LISPSYM(clcs_signal,"SIGNAL",lisp)
  264. # ---------- HASHTABL ----------
  265. LISPSYM(make_hash_table,"MAKE-HASH-TABLE",lisp)
  266. LISPSYM(gethash,"GETHASH",lisp)
  267. LISPSYM(puthash,"PUTHASH",system)
  268. LISPSYM(remhash,"REMHASH",lisp)
  269. LISPSYM(maphash,"MAPHASH",lisp)
  270. LISPSYM(clrhash,"CLRHASH",lisp)
  271. LISPSYM(hash_table_count,"HASH-TABLE-COUNT",lisp)
  272. LISPSYM(hash_table_rehash_size,"HASH-TABLE-REHASH-SIZE",lisp)
  273. LISPSYM(hash_table_rehash_threshold,"HASH-TABLE-REHASH-THRESHOLD",lisp)
  274. LISPSYM(hash_table_size,"HASH-TABLE-SIZE",lisp)
  275. LISPSYM(hash_table_test,"HASH-TABLE-TEST",lisp)
  276. LISPSYM(hash_table_iterator,"HASH-TABLE-ITERATOR",system)
  277. LISPSYM(hash_table_iterate,"HASH-TABLE-ITERATE",system)
  278. LISPSYM(class_gethash,"CLASS-GETHASH",clos)
  279. LISPSYM(class_tuple_gethash,"CLASS-TUPLE-GETHASH",clos)
  280. LISPSYM(sxhash,"SXHASH",lisp)
  281. # ---------- IO ----------
  282. LISPSYM(copy_readtable,"COPY-READTABLE",lisp)
  283. LISPSYM(set_syntax_from_char,"SET-SYNTAX-FROM-CHAR",lisp)
  284. LISPSYM(set_macro_character,"SET-MACRO-CHARACTER",lisp)
  285. LISPSYM(get_macro_character,"GET-MACRO-CHARACTER",lisp)
  286. LISPSYM(make_dispatch_macro_character,"MAKE-DISPATCH-MACRO-CHARACTER",lisp)
  287. LISPSYM(set_dispatch_macro_character,"SET-DISPATCH-MACRO-CHARACTER",lisp)
  288. LISPSYM(get_dispatch_macro_character,"GET-DISPATCH-MACRO-CHARACTER",lisp)
  289. LISPSYM(readtable_case,"READTABLE-CASE",lisp)
  290. LISPSYM(set_readtable_case,"SET-READTABLE-CASE",system)
  291. LISPSYM(lpar_reader,"LPAR-READER",system)
  292. LISPSYM(rpar_reader,"RPAR-READER",system)
  293. LISPSYM(quote_reader,"QUOTE-READER",system)
  294. LISPSYM(function_reader,"FUNCTION-READER",system)
  295. LISPSYM(string_reader,"STRING-READER",system)
  296. LISPSYM(line_comment_reader,"LINE-COMMENT-READER",system)
  297. LISPSYM(comment_reader,"COMMENT-READER",system)
  298. LISPSYM(char_reader,"CHAR-READER",system)
  299. LISPSYM(binary_reader,"BINARY-READER",system)
  300. LISPSYM(octal_reader,"OCTAL-READER",system)
  301. LISPSYM(hexadecimal_reader,"HEXADECIMAL-READER",system)
  302. LISPSYM(radix_reader,"RADIX-READER",system)
  303. LISPSYM(complex_reader,"COMPLEX-READER",system)
  304. LISPSYM(uninterned_reader,"UNINTERNED-READER",system)
  305. LISPSYM(bit_vector_reader,"BIT-VECTOR-READER",system)
  306. LISPSYM(vector_reader,"VECTOR-READER",system)
  307. LISPSYM(array_reader,"ARRAY-READER",system)
  308. LISPSYM(read_eval_reader,"READ-EVAL-READER",system)
  309. LISPSYM(load_eval_reader,"LOAD-EVAL-READER",system)
  310. LISPSYM(label_definition_reader,"LABEL-DEFINIION-READER",system)
  311. LISPSYM(label_reference_reader,"LABEL-REFERENCE-READER",system)
  312. LISPSYM(not_readable_reader,"NOT-READABLE-READER",system)
  313. LISPSYM(syntax_error_reader,"SYNTAX-ERROR-READER",system)
  314. LISPSYM(feature_reader,"FEATURE-READER",system)
  315. LISPSYM(not_feature_reader,"NOT-FEATURE-READER",system)
  316. LISPSYM(structure_reader,"STRUCTURE-READER",system)
  317. LISPSYM(closure_reader,"CLOSURE-READER",system)
  318. LISPSYM(pathname_reader,"PATHNAME-READER",system)
  319. LISPSYM(read,"READ",lisp)
  320. LISPSYM(read_preserving_whitespace,"READ-PRESERVING-WHITESPACE",lisp)
  321. LISPSYM(read_delimited_list,"READ-DELIMITED-LIST",lisp)
  322. LISPSYM(read_line,"READ-LINE",lisp)
  323. LISPSYM(read_char,"READ-CHAR",lisp)
  324. LISPSYM(unread_char,"UNREAD-CHAR",lisp)
  325. LISPSYM(peek_char,"PEEK-CHAR",lisp)
  326. LISPSYM(listen,"LISTEN",lisp)
  327. LISPSYM(read_char_no_hang,"READ-CHAR-NO-HANG",lisp)
  328. LISPSYM(clear_input,"CLEAR-INPUT",lisp)
  329. LISPSYM(read_from_string,"READ-FROM-STRING",lisp)
  330. LISPSYM(parse_integer,"PARSE-INTEGER",lisp)
  331. LISPSYM(write,"WRITE",lisp)
  332. LISPSYM(prin1,"PRIN1",lisp)
  333. LISPSYM(print,"PRINT",lisp)
  334. LISPSYM(pprint,"PPRINT",lisp)
  335. LISPSYM(princ,"PRINC",lisp)
  336. LISPSYM(write_to_string,"WRITE-TO-STRING",lisp)
  337. LISPSYM(prin1_to_string,"PRIN1-TO-STRING",lisp)
  338. LISPSYM(princ_to_string,"PRINC-TO-STRING",lisp)
  339. LISPSYM(write_char,"WRITE-CHAR",lisp)
  340. LISPSYM(write_string,"WRITE-STRING",lisp)
  341. LISPSYM(write_line,"WRITE-LINE",lisp)
  342. LISPSYM(terpri,"TERPRI",lisp)
  343. LISPSYM(fresh_line,"FRESH-LINE",lisp)
  344. LISPSYM(finish_output,"FINISH-OUTPUT",lisp)
  345. LISPSYM(force_output,"FORCE-OUTPUT",lisp)
  346. LISPSYM(clear_output,"CLEAR-OUTPUT",lisp)
  347. LISPSYM(write_unreadable,"WRITE-UNREADABLE",system)
  348. LISPSYM(line_position,"LINE-POSITION",system)
  349. # ---------- LIST ----------
  350. LISPSYM(car,"CAR",lisp)
  351. LISPSYM(cdr,"CDR",lisp)
  352. LISPSYM(caar,"CAAR",lisp)
  353. LISPSYM(cadr,"CADR",lisp)
  354. LISPSYM(cdar,"CDAR",lisp)
  355. LISPSYM(cddr,"CDDR",lisp)
  356. LISPSYM(caaar,"CAAAR",lisp)
  357. LISPSYM(caadr,"CAADR",lisp)
  358. LISPSYM(cadar,"CADAR",lisp)
  359. LISPSYM(caddr,"CADDR",lisp)
  360. LISPSYM(cdaar,"CDAAR",lisp)
  361. LISPSYM(cdadr,"CDADR",lisp)
  362. LISPSYM(cddar,"CDDAR",lisp)
  363. LISPSYM(cdddr,"CDDDR",lisp)
  364. LISPSYM(caaaar,"CAAAAR",lisp)
  365. LISPSYM(caaadr,"CAAADR",lisp)
  366. LISPSYM(caadar,"CAADAR",lisp)
  367. LISPSYM(caaddr,"CAADDR",lisp)
  368. LISPSYM(cadaar,"CADAAR",lisp)
  369. LISPSYM(cadadr,"CADADR",lisp)
  370. LISPSYM(caddar,"CADDAR",lisp)
  371. LISPSYM(cadddr,"CADDDR",lisp)
  372. LISPSYM(cdaaar,"CDAAAR",lisp)
  373. LISPSYM(cdaadr,"CDAADR",lisp)
  374. LISPSYM(cdadar,"CDADAR",lisp)
  375. LISPSYM(cdaddr,"CDADDR",lisp)
  376. LISPSYM(cddaar,"CDDAAR",lisp)
  377. LISPSYM(cddadr,"CDDADR",lisp)
  378. LISPSYM(cdddar,"CDDDAR",lisp)
  379. LISPSYM(cddddr,"CDDDDR",lisp)
  380. LISPSYM(cons,"CONS",lisp)
  381. LISPSYM(tree_equal,"TREE-EQUAL",lisp)
  382. LISPSYM(endp,"ENDP",lisp)
  383. LISPSYM(list_length,"LIST-LENGTH",lisp)
  384. LISPSYM(nth,"NTH",lisp)
  385. LISPSYM(first,"FIRST",lisp)
  386. LISPSYM(second,"SECOND",lisp)
  387. LISPSYM(third,"THIRD",lisp)
  388. LISPSYM(fourth,"FOURTH",lisp)
  389. LISPSYM(fifth,"FIFTH",lisp)
  390. LISPSYM(sixth,"SIXTH",lisp)
  391. LISPSYM(seventh,"SEVENTH",lisp)
  392. LISPSYM(eighth,"EIGHTH",lisp)
  393. LISPSYM(ninth,"NINTH",lisp)
  394. LISPSYM(tenth,"TENTH",lisp)
  395. LISPSYM(rest,"REST",lisp)
  396. LISPSYM(nthcdr,"NTHCDR",lisp)
  397. LISPSYM(last,"LAST",lisp)
  398. LISPSYM(list,"LIST",lisp)
  399. LISPSYM(liststern,"LIST*",lisp)
  400. LISPSYM(make_list,"MAKE-LIST",lisp)
  401. LISPSYM(append,"APPEND",lisp)
  402. LISPSYM(copy_list,"COPY-LIST",lisp)
  403. LISPSYM(copy_alist,"COPY-ALIST",lisp)
  404. LISPSYM(copy_tree,"COPY-TREE",lisp)
  405. LISPSYM(revappend,"REVAPPEND",lisp)
  406. LISPSYM(nconc,"NCONC",lisp)
  407. LISPSYM(nreconc,"NRECONC",lisp)
  408. LISPSYM(list_nreverse,"LIST-NREVERSE",system)
  409. LISPSYM(butlast,"BUTLAST",lisp)
  410. LISPSYM(nbutlast,"NBUTLAST",lisp)
  411. LISPSYM(ldiff,"LDIFF",lisp)
  412. LISPSYM(rplaca,"RPLACA",lisp)
  413. LISPSYM(prplaca,"%RPLACA",system)
  414. LISPSYM(rplacd,"RPLACD",lisp)
  415. LISPSYM(prplacd,"%RPLACD",system)
  416. LISPSYM(subst,"SUBST",lisp)
  417. LISPSYM(subst_if,"SUBST-IF",lisp)
  418. LISPSYM(subst_if_not,"SUBST-IF-NOT",lisp)
  419. LISPSYM(nsubst,"NSUBST",lisp)
  420. LISPSYM(nsubst_if,"NSUBST-IF",lisp)
  421. LISPSYM(nsubst_if_not,"NSUBST-IF-NOT",lisp)
  422. LISPSYM(sublis,"SUBLIS",lisp)
  423. LISPSYM(nsublis,"NSUBLIS",lisp)
  424. LISPSYM(member,"MEMBER",lisp)
  425. LISPSYM(member_if,"MEMBER-IF",lisp)
  426. LISPSYM(member_if_not,"MEMBER-IF-NOT",lisp)
  427. LISPSYM(tailp,"TAILP",lisp)
  428. LISPSYM(adjoin,"ADJOIN",lisp)
  429. LISPSYM(acons,"ACONS",lisp)
  430. LISPSYM(pairlis,"PAIRLIS",lisp)
  431. LISPSYM(assoc,"ASSOC",lisp)
  432. LISPSYM(assoc_if,"ASSOC-IF",lisp)
  433. LISPSYM(assoc_if_not,"ASSOC-IF-NOT",lisp)
  434. LISPSYM(rassoc,"RASSOC",lisp)
  435. LISPSYM(rassoc_if,"RASSOC-IF",lisp)
  436. LISPSYM(rassoc_if_not,"RASSOC-IF-NOT",lisp)
  437. LISPSYM(list_upd,"LIST-UPD",system)
  438. LISPSYM(list_endtest,"LIST-ENDTEST",system)
  439. LISPSYM(list_fe_init,"LIST-FE-INIT",system)
  440. LISPSYM(list_access,"LIST-ACCESS",system)
  441. LISPSYM(list_access_set,"LIST-ACCESS-SET",system)
  442. LISPSYM(list_llength,"LIST-LLENGTH",system)
  443. LISPSYM(list_elt,"LIST-ELT",system)
  444. LISPSYM(list_set_elt,"LIST-SET-ELT",system)
  445. LISPSYM(list_init_start,"LIST-INIT-START",system)
  446. LISPSYM(list_fe_init_end,"LIST-FE-INIT-END",system)
  447. # ---------- MISC ----------
  448. LISPSYM(lisp_implementation_type,"LISP-IMPLEMENTATION-TYPE",lisp)
  449. LISPSYM(lisp_implementation_version,"LISP-IMPLEMENTATION-VERSION",lisp)
  450. LISPSYM(lisp_implementation_version_string,"LISP-IMPLEMENTATION-VERSION-STRING",system)
  451. LISPSYM(software_version_string,"SOFTWARE-VERSION-STRING",system)
  452. LISPSYM(version,"VERSION",system)
  453. #ifdef MACHINE_KNOWN
  454. LISPSYM(machinetype,"MACHINE-TYPE",lisp)
  455. LISPSYM(machine_version,"MACHINE-VERSION",lisp)
  456. LISPSYM(machine_instance,"MACHINE-INSTANCE",lisp)
  457. #endif
  458. #ifdef HAVE_ENVIRONMENT
  459. LISPSYM(get_env,"GETENV",system)
  460. #endif
  461. LISPSYM(software_type,"SOFTWARE-TYPE",lisp)
  462. LISPSYM(software_version,"SOFTWARE-VERSION",lisp)
  463. #ifdef ENABLE_NLS
  464. LISPSYM(gettext,"GETTEXT",system)
  465. #endif
  466. LISPSYM(language,"LANGUAGE",system)
  467. LISPSYM(identity,"IDENTITY",lisp)
  468. LISPSYM(address_of,"ADDRESS-OF",system)
  469. #ifdef HAVE_DISASSEMBLER
  470. LISPSYM(code_address_of,"CODE-ADDRESS-OF",system)
  471. LISPSYM(program_id,"PROGRAM-ID",system)
  472. #endif
  473. # ---------- TIME ----------
  474. LISPSYM(get_universal_time,"GET-UNIVERSAL-TIME",lisp)
  475. #if defined(UNIX) || defined(WIN32_UNIX)
  476. LISPSYM(default_time_zone,"DEFAULT-TIME-ZONE",system)
  477. #endif
  478. LISPSYM(get_internal_run_time,"GET-INTERNAL-RUN-TIME",lisp)
  479. LISPSYM(get_internal_real_time,"GET-INTERNAL-REAL-TIME",lisp)
  480. LISPSYM(sleep,"%SLEEP",system)
  481. LISPSYM(time,"%%TIME",system)
  482. # ---------- PACKAGE ----------
  483. LISPSYM(use_package_aux,"USE-PACKAGE-AUX",system)
  484. LISPSYM(make_symbol,"MAKE-SYMBOL",lisp)
  485. LISPSYM(find_package,"FIND-PACKAGE",lisp)
  486. LISPSYM(pfind_package,"%FIND-PACKAGE",system)
  487. LISPSYM(package_name,"PACKAGE-NAME",lisp)
  488. LISPSYM(package_nicknames,"PACKAGE-NICKNAMES",lisp)
  489. LISPSYM(rename_package,"RENAME-PACKAGE",lisp)
  490. LISPSYM(package_use_list,"PACKAGE-USE-LIST",lisp)
  491. LISPSYM(package_used_by_list,"PACKAGE-USED-BY-LIST",lisp)
  492. LISPSYM(package_shadowing_symbols,"PACKAGE-SHADOWING-SYMBOLS",lisp)
  493. LISPSYM(list_all_packages,"LIST-ALL-PACKAGES",lisp)
  494. LISPSYM(intern,"INTERN",lisp)
  495. LISPSYM(find_symbol,"FIND-SYMBOL",lisp)
  496. LISPSYM(unintern,"UNINTERN",lisp)
  497. LISPSYM(export,"EXPORT",lisp)
  498. LISPSYM(unexport,"UNEXPORT",lisp)
  499. LISPSYM(import,"IMPORT",lisp)
  500. LISPSYM(shadowing_import,"SHADOWING-IMPORT",lisp)
  501. LISPSYM(shadow,"SHADOW",lisp)
  502. LISPSYM(use_package,"USE-PACKAGE",lisp)
  503. LISPSYM(unuse_package,"UNUSE-PACKAGE",lisp)
  504. LISPSYM(make_package,"MAKE-PACKAGE",lisp)
  505. LISPSYM(pin_package,"%IN-PACKAGE",system)
  506. LISPSYM(in_package,"IN-PACKAGE",lisp)
  507. LISPSYM(delete_package,"DELETE-PACKAGE",lisp)
  508. LISPSYM(delete_package_aux,"DELETE-PACKAGE-AUX",system)
  509. LISPSYM(find_all_symbols,"FIND-ALL-SYMBOLS",lisp)
  510. LISPSYM(map_symbols,"MAP-SYMBOLS",system)
  511. LISPSYM(map_symbols_aux,"MAP-SYMBOLS-AUX",system)
  512. LISPSYM(map_external_symbols,"MAP-EXTERNAL-SYMBOLS",system)
  513. LISPSYM(map_all_symbols,"MAP-ALL-SYMBOLS",system)
  514. LISPSYM(package_iterator,"PACKAGE-ITERATOR",system)
  515. LISPSYM(package_iterate,"PACKAGE-ITERATE",system)
  516. # ---------- PATHNAME ----------
  517. LISPSYM(parse_namestring,"PARSE-NAMESTRING",lisp)
  518. LISPSYM(pathname,"PATHNAME",lisp)
  519. LISPSYM(pathnamehost,"PATHNAME-HOST",lisp)
  520. LISPSYM(pathnamedevice,"PATHNAME-DEVICE",lisp)
  521. LISPSYM(pathnamedirectory,"PATHNAME-DIRECTORY",lisp)
  522. LISPSYM(pathnamename,"PATHNAME-NAME",lisp)
  523. LISPSYM(pathnametype,"PATHNAME-TYPE",lisp)
  524. LISPSYM(pathnameversion,"PATHNAME-VERSION",lisp)
  525. #ifdef LOGICAL_PATHNAMES
  526. LISPSYM(logical_pathname,"LOGICAL-PATHNAME",lisp)
  527. LISPSYM(translate_logical_pathname,"TRANSLATE-LOGICAL-PATHNAME",lisp)
  528. #endif
  529. LISPSYM(file_namestring,"FILE-NAMESTRING",lisp)
  530. LISPSYM(directory_namestring,"DIRECTORY-NAMESTRING",lisp)
  531. LISPSYM(host_namestring,"HOST-NAMESTRING",lisp)
  532. LISPSYM(merge_pathnames,"MERGE-PATHNAMES",lisp)
  533. LISPSYM(enough_namestring,"ENOUGH-NAMESTRING",lisp)
  534. LISPSYM(make_pathname,"MAKE-PATHNAME",lisp)
  535. #ifdef LOGICAL_PATHNAMES
  536. LISPSYM(make_logical_pathname,"MAKE-LOGICAL-PATHNAME",system)
  537. #endif
  538. #ifdef USER_HOMEDIR
  539. LISPSYM(user_homedir_pathname,"USER-HOMEDIR-PATHNAME",lisp)
  540. #endif
  541. LISPSYM(wild_pathname_p,"WILD-PATHNAME-P",lisp)
  542. LISPSYM(pathname_match_p,"PATHNAME-MATCH-P",lisp)
  543. LISPSYM(translate_pathname,"TRANSLATE-PATHNAME",lisp)
  544. LISPSYM(namestring,"NAMESTRING",lisp)
  545. LISPSYM(truename,"TRUENAME",lisp)
  546. LISPSYM(probe_file,"PROBE-FILE",lisp)
  547. LISPSYM(delete_file,"DELETE-FILE",lisp)
  548. LISPSYM(rename_file,"RENAME-FILE",lisp)
  549. LISPSYM(open,"OPEN",lisp)
  550. LISPSYM(directory,"DIRECTORY",lisp)
  551. LISPSYM(cd,"CD",lisp)
  552. LISPSYM(make_dir,"MAKE-DIR",lisp)
  553. LISPSYM(delete_dir,"DELETE-DIR",lisp)
  554. LISPSYM(file_write_date,"FILE-WRITE-DATE",lisp)
  555. LISPSYM(file_author,"FILE-AUTHOR",lisp)
  556. #if defined(UNIX) || defined(MSDOS) || defined(AMIGAOS) || defined(RISCOS) || defined(WIN32_UNIX)
  557. LISPSYM(execute,"EXECUTE",lisp)
  558. #endif
  559. #ifdef HAVE_SHELL
  560. LISPSYM(shell,"SHELL",lisp)
  561. #endif
  562. LISPSYM(savemem,"SAVEMEM",lisp)
  563. #ifdef HAVE_DISASSEMBLER
  564. LISPSYM(program_name,"PROGRAM-NAME",system)
  565. #endif
  566. # ---------- PREDTYPE ----------
  567. LISPSYM(eq,"EQ",lisp)
  568. LISPSYM(eql,"EQL",lisp)
  569. LISPSYM(equal,"EQUAL",lisp)
  570. LISPSYM(equalp,"EQUALP",lisp)
  571. LISPSYM(consp,"CONSP",lisp)
  572. LISPSYM(atom,"ATOM",lisp)
  573. LISPSYM(symbolp,"SYMBOLP",lisp)
  574. LISPSYM(stringp,"STRINGP",lisp)
  575. LISPSYM(numberp,"NUMBERP",lisp)
  576. LISPSYM(compiled_function_p,"COMPILED-FUNCTION-P",lisp)
  577. LISPSYM(null,"NULL",lisp)
  578. LISPSYM(not,"NOT",lisp)
  579. LISPSYM(closurep,"CLOSUREP",system)
  580. LISPSYM(listp,"LISTP",lisp)
  581. LISPSYM(integerp,"INTEGERP",lisp)
  582. LISPSYM(fixnump,"FIXNUMP",system)
  583. LISPSYM(rationalp,"RATIONALP",lisp)
  584. LISPSYM(floatp,"FLOATP",lisp)
  585. LISPSYM(short_float_p,"SHORT-FLOAT-P",system)
  586. LISPSYM(single_float_p,"SINGLE-FLOAT-P",system)
  587. LISPSYM(double_float_p,"DOUBLE-FLOAT-P",system)
  588. LISPSYM(long_float_p,"LONG-FLOAT-P",system)
  589. LISPSYM(realp,"REALP",lisp)
  590. LISPSYM(complexp,"COMPLEXP",lisp)
  591. LISPSYM(streamp,"STREAMP",lisp)
  592. LISPSYM(random_state_p,"RANDOM-STATE-P",lisp)
  593. LISPSYM(readtablep,"READTABLEP",lisp)
  594. LISPSYM(hash_table_p,"HASH-TABLE-P",lisp)
  595. LISPSYM(pathnamep,"PATHNAMEP",lisp)
  596. LISPSYM(logical_pathname_p,"LOGICAL-PATHNAME-P",system)
  597. LISPSYM(characterp,"CHARACTERP",lisp)
  598. LISPSYM(functionp,"FUNCTIONP",lisp)
  599. LISPSYM(generic_function_p,"GENERIC-FUNCTION-P",clos)
  600. LISPSYM(packagep,"PACKAGEP",lisp)
  601. LISPSYM(arrayp,"ARRAYP",lisp)
  602. LISPSYM(simple_array_p,"SIMPLE-ARRAY-P",system)
  603. LISPSYM(bit_vector_p,"BIT-VECTOR-P",lisp)
  604. LISPSYM(vectorp,"VECTORP",lisp)
  605. LISPSYM(simple_vector_p,"SIMPLE-VECTOR-P",lisp)
  606. LISPSYM(simple_string_p,"SIMPLE-STRING-P",lisp)
  607. LISPSYM(simple_bit_vector_p,"SIMPLE-BIT-VECTOR-P",lisp)
  608. LISPSYM(commonp,"COMMONP",lisp)
  609. LISPSYM(type_of,"TYPE-OF",lisp)
  610. LISPSYM(defclos,"%DEFCLOS",clos)
  611. LISPSYM(class_p,"CLASS-P",clos)
  612. LISPSYM(class_of,"CLASS-OF",clos)
  613. LISPSYM(find_class,"FIND-CLASS",clos)
  614. LISPSYM(coerce,"COERCE",lisp)
  615. # ---------- RECORD ----------
  616. LISPSYM(record_ref,"%RECORD-REF",system)
  617. LISPSYM(record_store,"%RECORD-STORE",system)
  618. LISPSYM(record_length,"%RECORD-LENGTH",system)
  619. LISPSYM(structure_ref,"%STRUCTURE-REF",system)
  620. LISPSYM(structure_store,"%STRUCTURE-STORE",system)
  621. LISPSYM(make_structure,"%MAKE-STRUCTURE",system)
  622. LISPSYM(copy_structure,"%COPY-STRUCTURE",system)
  623. LISPSYM(structure_type_p,"%STRUCTURE-TYPE-P",system)
  624. LISPSYM(closure_name,"CLOSURE-NAME",system)
  625. LISPSYM(closure_codevec,"CLOSURE-CODEVEC",system)
  626. LISPSYM(closure_consts,"CLOSURE-CONSTS",system)
  627. LISPSYM(make_code_vector,"MAKE-CODE-VECTOR",system)
  628. LISPSYM(make_closure,"%MAKE-CLOSURE",system)
  629. LISPSYM(make_load_time_eval,"MAKE-LOAD-TIME-EVAL",system)
  630. LISPSYM(make_symbol_macro,"MAKE-SYMBOL-MACRO",system)
  631. LISPSYM(symbol_macro_p,"SYMBOL-MACRO-P",system)
  632. LISPSYM(symbol_macro_expand,"SYMBOL-MACRO-EXPAND",lisp)
  633. LISPSYM(finalize,"FINALIZE",lisp)
  634. LISPSYM(std_instance_p,"STD-INSTANCE-P",clos)
  635. LISPSYM(allocate_std_instance,"ALLOCATE-STD-INSTANCE",clos)
  636. LISPSYM(slot_value,"SLOT-VALUE",clos)
  637. LISPSYM(set_slot_value,"SET-SLOT-VALUE",clos)
  638. LISPSYM(slot_boundp,"SLOT-BOUNDP",clos)
  639. LISPSYM(slot_makunbound,"SLOT-MAKUNBOUND",clos)
  640. LISPSYM(slot_exists_p,"SLOT-EXISTS-P",clos)
  641. LISPSYM(shared_initialize,"%SHARED-INITIALIZE",clos)
  642. LISPSYM(reinitialize_instance,"%REINITIALIZE-INSTANCE",clos)
  643. LISPSYM(initialize_instance,"%INITIALIZE-INSTANCE",clos)
  644. LISPSYM(make_instance,"%MAKE-INSTANCE",clos)
  645. # ---------- SEQUENCE ----------
  646. LISPSYM(sequencep,"SEQUENCEP",system)
  647. LISPSYM(defseq,"%DEFSEQ",system)
  648. LISPSYM(elt,"ELT",lisp)
  649. LISPSYM(setelt,"%SETELT",system)
  650. LISPSYM(subseq,"SUBSEQ",lisp)
  651. LISPSYM(copy_seq,"COPY-SEQ",lisp)
  652. LISPSYM(length,"LENGTH",lisp)
  653. LISPSYM(reverse,"REVERSE",lisp)
  654. LISPSYM(nreverse,"NREVERSE",lisp)
  655. LISPSYM(make_sequence,"MAKE-SEQUENCE",lisp)
  656. LISPSYM(concatenate,"CONCATENATE",lisp)
  657. LISPSYM(map,"MAP",lisp)
  658. LISPSYM(map_into,"MAP-INTO",lisp)
  659. LISPSYM(some,"SOME",lisp)
  660. LISPSYM(every,"EVERY",lisp)
  661. LISPSYM(notany,"NOTANY",lisp)
  662. LISPSYM(notevery,"NOTEVERY",lisp)
  663. LISPSYM(reduce,"REDUCE",lisp)
  664. LISPSYM(fill,"FILL",lisp)
  665. LISPSYM(replace,"REPLACE",lisp)
  666. LISPSYM(remove,"REMOVE",lisp)
  667. LISPSYM(remove_if,"REMOVE-IF",lisp)
  668. LISPSYM(remove_if_not,"REMOVE-IF-NOT",lisp)
  669. LISPSYM(delete,"DELETE",lisp)
  670. LISPSYM(delete_if,"DELETE-IF",lisp)
  671. LISPSYM(delete_if_not,"DELETE-IF-NOT",lisp)
  672. LISPSYM(remove_duplicates,"REMOVE-DUPLICATES",lisp)
  673. LISPSYM(delete_duplicates,"DELETE-DUPLICATES",lisp)
  674. LISPSYM(substitute,"SUBSTITUTE",lisp)
  675. LISPSYM(substitute_if,"SUBSTITUTE-IF",lisp)
  676. LISPSYM(substitute_if_not,"SUBSTITUTE-IF-NOT",lisp)
  677. LISPSYM(nsubstitute,"NSUBSTITUTE",lisp)
  678. LISPSYM(nsubstitute_if,"NSUBSTITUTE-IF",lisp)
  679. LISPSYM(nsubstitute_if_not,"NSUBSTITUTE-IF-NOT",lisp)
  680. LISPSYM(find,"FIND",lisp)
  681. LISPSYM(find_if,"FIND-IF",lisp)
  682. LISPSYM(find_if_not,"FIND-IF-NOT",lisp)
  683. LISPSYM(position,"POSITION",lisp)
  684. LISPSYM(position_if,"POSITION-IF",lisp)
  685. LISPSYM(position_if_not,"POSITION-IF-NOT",lisp)
  686. LISPSYM(count,"COUNT",lisp)
  687. LISPSYM(count_if,"COUNT-IF",lisp)
  688. LISPSYM(count_if_not,"COUNT-IF-NOT",lisp)
  689. LISPSYM(mismatch,"MISMATCH",lisp)
  690. LISPSYM(search,"SEARCH",lisp)
  691. LISPSYM(sort,"SORT",lisp)
  692. LISPSYM(stable_sort,"STABLE-SORT",lisp)
  693. LISPSYM(merge,"MERGE",lisp)
  694. LISPSYM(read_char_sequence,"READ-CHAR-SEQUENCE",lisp)
  695. LISPSYM(write_char_sequence,"WRITE-CHAR-SEQUENCE",lisp)
  696. LISPSYM(read_byte_sequence,"READ-BYTE-SEQUENCE",lisp)
  697. LISPSYM(write_byte_sequence,"WRITE-BYTE-SEQUENCE",lisp)
  698. # ---------- STREAM ----------
  699. LISPSYM(symbol_stream,"SYMBOL-STREAM",system)
  700. LISPSYM(terminal_raw,"TERMINAL-RAW",system)
  701. #ifdef SCREEN
  702. LISPSYM(make_window,"MAKE-WINDOW",screen)
  703. LISPSYM(window_size,"WINDOW-SIZE",screen)
  704. LISPSYM(window_cursor_position,"WINDOW-CURSOR-POSITION",screen)
  705. LISPSYM(set_window_cursor_position,"SET-WINDOW-CURSOR-POSITION",screen)
  706. LISPSYM(clear_window,"CLEAR-WINDOW",screen)
  707. LISPSYM(clear_window_to_eot,"CLEAR-WINDOW-TO-EOT",screen)
  708. LISPSYM(clear_window_to_eol,"CLEAR-WINDOW-TO-EOL",screen)
  709. LISPSYM(delete_window_line,"DELETE-WINDOW-LINE",screen)
  710. LISPSYM(insert_window_line,"INSERT-WINDOW-LINE",screen)
  711. LISPSYM(highlight_on,"HIGHLIGHT-ON",screen)
  712. LISPSYM(highlight_off,"HIGHLIGHT-OFF",screen)
  713. LISPSYM(window_cursor_on,"WINDOW-CURSOR-ON",screen)
  714. LISPSYM(window_cursor_off,"WINDOW-CURSOR-OFF",screen)
  715. #endif
  716. LISPSYM(file_stream_p,"FILE-STREAM-P",system)
  717. LISPSYM(make_synonym_stream,"MAKE-SYNONYM-STREAM",lisp)
  718. LISPSYM(synonym_stream_p,"SYNONYM-STREAM-P",system)
  719. LISPSYM(synonym_stream_symbol,"SYNONYM-STREAM-SYMBOL",lisp)
  720. LISPSYM(make_broadcast_stream,"MAKE-BROADCAST-STREAM",lisp)
  721. LISPSYM(broadcast_stream_p,"BROADCAST-STREAM-P",system)
  722. LISPSYM(broadcast_stream_streams,"BROADCAST-STREAM-STREAMS",lisp)
  723. LISPSYM(make_concatenated_stream,"MAKE-CONCATENATED-STREAM",lisp)
  724. LISPSYM(concatenated_stream_p,"CONCATENATED-STREAM-P",system)
  725. LISPSYM(concatenated_stream_streams,"CONCATENATED-STREAM-STREAMS",lisp)
  726. LISPSYM(make_two_way_stream,"MAKE-TWO-WAY-STREAM",lisp)
  727. LISPSYM(two_way_stream_p,"TWO-WAY-STREAM-P",system)
  728. LISPSYM(two_way_stream_input_stream,"TWO-WAY-STREAM-INPUT-STREAM",lisp)
  729. LISPSYM(two_way_stream_output_stream,"TWO-WAY-STREAM-OUTPUT-STREAM",lisp)
  730. LISPSYM(make_echo_stream,"MAKE-ECHO-STREAM",lisp)
  731. LISPSYM(echo_stream_p,"ECHO-STREAM-P",system)
  732. LISPSYM(echo_stream_input_stream,"ECHO-STREAM-INPUT-STREAM",lisp)
  733. LISPSYM(echo_stream_output_stream,"ECHO-STREAM-OUTPUT-STREAM",lisp)
  734. LISPSYM(make_string_input_stream,"MAKE-STRING-INPUT-STREAM",lisp)
  735. LISPSYM(string_input_stream_index,"STRING-INPUT-STREAM-INDEX",system)
  736. LISPSYM(make_string_output_stream,"MAKE-STRING-OUTPUT-STREAM",lisp)
  737. LISPSYM(get_output_stream_string,"GET-OUTPUT-STREAM-STRING",lisp)
  738. LISPSYM(make_string_push_stream,"MAKE-STRING-PUSH-STREAM",system)
  739. LISPSYM(string_stream_p,"STRING-STREAM-P",system)
  740. LISPSYM(make_buffered_input_stream,"MAKE-BUFFERED-INPUT-STREAM",lisp)
  741. LISPSYM(buffered_input_stream_index,"BUFFERED-INPUT-STREAM-INDEX",system)
  742. LISPSYM(make_buffered_output_stream,"MAKE-BUFFERED-OUTPUT-STREAM",lisp)
  743. #ifdef PRINTER_AMIGAOS
  744. LISPSYM(make_printer_stream,"MAKE-PRINTER-STREAM",system)
  745. #endif
  746. #ifdef PIPES
  747. LISPSYM(make_pipe_input_stream,"MAKE-PIPE-INPUT-STREAM",lisp)
  748. LISPSYM(make_pipe_output_stream,"MAKE-PIPE-OUTPUT-STREAM",lisp)
  749. #ifdef PIPES2
  750. LISPSYM(make_pipe_io_stream,"MAKE-PIPE-IO-STREAM",lisp)
  751. #endif
  752. #endif
  753. #ifdef XSOCKETS
  754. LISPSYM(make_xsocket_stream,"MAKE-SOCKET-STREAM",system)
  755. LISPSYM(read_n_bytes,"READ-N-BYTES",system)
  756. LISPSYM(write_n_bytes,"WRITE-N-BYTES",system)
  757. #endif
  758. #ifdef GENERIC_STREAMS
  759. LISPSYM(generic_stream_controller,"GENERIC-STREAM-CONTROLLER",lisp)
  760. LISPSYM(make_generic_stream,"MAKE-GENERIC-STREAM",lisp)
  761. LISPSYM(generic_stream_p,"GENERIC-STREAM-P",lisp)
  762. #endif
  763. #ifdef SOCKET_STREAMS
  764. LISPSYM(socket_server,"SOCKET-SERVER",lisp)
  765. LISPSYM(socket_server_close,"SOCKET-SERVER-CLOSE",lisp)
  766. LISPSYM(socket_server_port,"SOCKET-SERVER-PORT",lisp)
  767. LISPSYM(socket_wait,"SOCKET-WAIT",lisp)
  768. LISPSYM(socket_accept,"SOCKET-ACCEPT",lisp)
  769. LISPSYM(socket_connect,"SOCKET-CONNECT",lisp)
  770. LISPSYM(socket_stream_host,"SOCKET-STREAM-HOST",lisp)
  771. LISPSYM(socket_stream_port,"SOCKET-STREAM-PORT",lisp)
  772. LISPSYM(socket_service_port,"SOCKET-SERVICE-PORT",lisp)
  773. LISPSYM(socket_stream_peer_host,"SOCKET-STREAM-PEER-HOST",lisp)
  774. LISPSYM(socket_stream_handle,"SOCKET-STREAM-HANDLE",lisp)
  775. #endif
  776. LISPSYM(open_stream_p,"OPEN-STREAM-P",lisp)
  777. LISPSYM(input_stream_p,"INPUT-STREAM-P",lisp)
  778. LISPSYM(output_stream_p,"OUTPUT-STREAM-P",lisp)
  779. LISPSYM(stream_element_type,"STREAM-ELEMENT-TYPE",lisp)
  780. LISPSYM(interactive_stream_p,"INTERACTIVE-STREAM-P",lisp)
  781. LISPSYM(close,"CLOSE",lisp)
  782. LISPSYM(read_byte,"READ-BYTE",lisp)
  783. LISPSYM(write_byte,"WRITE-BYTE",lisp)
  784. LISPSYM(file_position,"FILE-POSITION",lisp)
  785. LISPSYM(file_length,"FILE-LENGTH",lisp)
  786. LISPSYM(line_number,"LINE-NUMBER",system)
  787. # ---------- SYMBOL ----------
  788. LISPSYM(putd,"%PUTD",system)
  789. LISPSYM(proclaim_constant,"%PROCLAIM-CONSTANT",system)
  790. LISPSYM(get,"GET",lisp)
  791. LISPSYM(getf,"GETF",lisp)
  792. LISPSYM(get_properties,"GET-PROPERTIES",lisp)
  793. LISPSYM(putplist,"%PUTPLIST",system)
  794. LISPSYM(put,"%PUT",system)
  795. LISPSYM(remprop,"REMPROP",lisp)
  796. LISPSYM(symbol_package,"SYMBOL-PACKAGE",lisp)
  797. LISPSYM(symbol_plist,"SYMBOL-PLIST",lisp)
  798. LISPSYM(symbol_name,"SYMBOL-NAME",lisp)
  799. LISPSYM(keywordp,"KEYWORDP",lisp)
  800. LISPSYM(special_variable_p,"SPECIAL-VARIABLE-P",system)
  801. LISPSYM(gensym,"GENSYM",lisp)
  802. #ifdef DYNBIND_LIST
  803. LISPSYM(dynamic_bindings,"*DYNAMIC-BINDINGS*",system)
  804. LISPSYM(special_bindings,"*SPECIAL-BINDINGS*",system)
  805. LISPSYM(dynamic_and_special_frames,"*DYNAMIC-AND-SPECIAL-FRAMES*",system)
  806. LISPSYM(last_binding_type,"*LAST-BINDING-TYPE*",system)
  807. LISPSYM(transitions_to_dynamic_bindings,"*TRANSITIONS-TO-DYNAMIC-BINDINGS*",system)
  808. LISPSYM(transitions_to_special_bindings,"*TRANSITIONS-TO-SPECIAL-BINDINGS*",system)
  809. LISPSYM(Kdynamic,"DYNAMIC",keyword)
  810. LISPSYM(Kspecial,"SPECIAL",keyword)
  811. #endif
  812. # ---------- LISPARIT ----------
  813. LISPSYM(decimal_string,"DECIMAL-STRING",system)
  814. LISPSYM(zerop,"ZEROP",lisp)
  815. LISPSYM(plusp,"PLUSP",lisp)
  816. LISPSYM(minusp,"MINUSP",lisp)
  817. LISPSYM(oddp,"ODDP",lisp)
  818. LISPSYM(evenp,"EVENP",lisp)
  819. LISPSYM(gleich,"=",lisp)
  820. LISPSYM(ungleich,"/=",lisp)
  821. LISPSYM(kleiner,"<",lisp)
  822. LISPSYM(groesser,">",lisp)
  823. LISPSYM(klgleich,"<=",lisp)
  824. LISPSYM(grgleich,">=",lisp)
  825. LISPSYM(max,"MAX",lisp)
  826. LISPSYM(min,"MIN",lisp)
  827. LISPSYM(plus,"+",lisp)
  828. LISPSYM(minus,"-",lisp)
  829. LISPSYM(mal,"*",lisp)
  830. LISPSYM(durch,"/",lisp)
  831. LISPSYM(einsplus,"1+",lisp)
  832. LISPSYM(einsminus,"1-",lisp)
  833. LISPSYM(conjugate,"CONJUGATE",lisp)
  834. LISPSYM(gcd,"GCD",lisp)
  835. LISPSYM(xgcd,"XGCD",lisp)
  836. LISPSYM(lcm,"LCM",lisp)
  837. LISPSYM(exp,"EXP",lisp)
  838. LISPSYM(expt,"EXPT",lisp)
  839. LISPSYM(log,"LOG",lisp)
  840. LISPSYM(sqrt,"SQRT",lisp)
  841. LISPSYM(isqrt,"ISQRT",lisp)
  842. LISPSYM(abs,"ABS",lisp)
  843. LISPSYM(phase,"PHASE",lisp)
  844. LISPSYM(signum,"SIGNUM",lisp)
  845. LISPSYM(sin,"SIN",lisp)
  846. LISPSYM(cos,"COS",lisp)
  847. LISPSYM(tan,"TAN",lisp)
  848. LISPSYM(cis,"CIS",lisp)
  849. LISPSYM(asin,"ASIN",lisp)
  850. LISPSYM(acos,"ACOS",lisp)
  851. LISPSYM(atan,"ATAN",lisp)
  852. LISPSYM(sinh,"SINH",lisp)
  853. LISPSYM(cosh,"COSH",lisp)
  854. LISPSYM(tanh,"TANH",lisp)
  855. LISPSYM(asinh,"ASINH",lisp)
  856. LISPSYM(acosh,"ACOSH",lisp)
  857. LISPSYM(atanh,"ATANH",lisp)
  858. LISPSYM(float,"FLOAT",lisp)
  859. LISPSYM(rational,"RATIONAL",lisp)
  860. LISPSYM(rationalize,"RATIONALIZE",lisp)
  861. LISPSYM(numerator,"NUMERATOR",lisp)
  862. LISPSYM(denominator,"DENOMINATOR",lisp)
  863. LISPSYM(floor,"FLOOR",lisp)
  864. LISPSYM(ceiling,"CEILING",lisp)
  865. LISPSYM(truncate,"TRUNCATE",lisp)
  866. LISPSYM(round,"ROUND",lisp)
  867. LISPSYM(mod,"MOD",lisp)
  868. LISPSYM(rem,"REM",lisp)
  869. LISPSYM(ffloor,"FFLOOR",lisp)
  870. LISPSYM(fceiling,"FCEILING",lisp)
  871. LISPSYM(ftruncate,"FTRUNCATE",lisp)
  872. LISPSYM(fround,"FROUND",lisp)
  873. LISPSYM(decode_float,"DECODE-FLOAT",lisp)
  874. LISPSYM(scale_float,"SCALE-FLOAT",lisp)
  875. LISPSYM(float_radix,"FLOAT-RADIX",lisp)
  876. LISPSYM(float_sign,"FLOAT-SIGN",lisp)
  877. LISPSYM(float_digits,"FLOAT-DIGITS",lisp)
  878. LISPSYM(float_precision,"FLOAT-PRECISION",lisp)
  879. LISPSYM(integer_decode_float,"INTEGER-DECODE-FLOAT",lisp)
  880. LISPSYM(complex,"COMPLEX",lisp)
  881. LISPSYM(realpart,"REALPART",lisp)
  882. LISPSYM(imagpart,"IMAGPART",lisp)
  883. LISPSYM(logior,"LOGIOR",lisp)
  884. LISPSYM(logxor,"LOGXOR",lisp)
  885. LISPSYM(logand,"LOGAND",lisp)
  886. LISPSYM(logeqv,"LOGEQV",lisp)
  887. LISPSYM(lognand,"LOGNAND",lisp)
  888. LISPSYM(lognor,"LOGNOR",lisp)
  889. LISPSYM(logandc1,"LOGANDC1",lisp)
  890. LISPSYM(logandc2,"LOGANDC2",lisp)
  891. LISPSYM(logorc1,"LOGORC1",lisp)
  892. LISPSYM(logorc2,"LOGORC2",lisp)
  893. LISPSYM(boole,"BOOLE",lisp)
  894. LISPSYM(lognot,"LOGNOT",lisp)
  895. LISPSYM(logtest,"LOGTEST",lisp)
  896. LISPSYM(logbitp,"LOGBITP",lisp)
  897. LISPSYM(ash,"ASH",lisp)
  898. LISPSYM(logcount,"LOGCOUNT",lisp)
  899. LISPSYM(integer_length,"INTEGER-LENGTH",lisp)
  900. LISPSYM(byte,"BYTE",lisp)
  901. LISPSYM(bytesize,"BYTE-SIZE",lisp)
  902. LISPSYM(byteposition,"BYTE-POSITION",lisp)
  903. LISPSYM(ldb,"LDB",lisp)
  904. LISPSYM(ldb_test,"LDB-TEST",lisp)
  905. LISPSYM(mask_field,"MASK-FIELD",lisp)
  906. LISPSYM(dpb,"DPB",lisp)
  907. LISPSYM(deposit_field,"DEPOSIT-FIELD",lisp)
  908. LISPSYM(random,"RANDOM",lisp)
  909. LISPSYM(make_random_state,"MAKE-RANDOM-STATE",lisp)
  910. LISPSYM(fakultaet,"!",lisp)
  911. LISPSYM(exquo,"EXQUO",lisp)
  912. LISPSYM(long_float_digits,"LONG-FLOAT-DIGITS",lisp)
  913. LISPSYM(set_long_float_digits,"%SET-LONG-FLOAT-DIGITS",system)
  914. LISPSYM(log2,"LOG2",system)
  915. LISPSYM(log10,"LOG10",system)
  916. # ---------- REXX ----------
  917. #ifdef REXX
  918. LISPSYM(rexx_put,"%REXX-PUT",system)
  919. LISPSYM(rexx_wait_input,"%REXX-WAIT-INPUT",system)
  920. LISPSYM(rexx_get,"%REXX-GET",system)
  921. LISPSYM(rexx_reply,"%REXX-REPLY",system)
  922. #endif
  923. # ---------- GRAPH ----------
  924. #ifdef GRAPHICS
  925. LISPSYM(gr_init,"GRAPH-INIT",system)
  926. LISPSYM(gr_show,"GRAPH-SHOW",system)
  927. LISPSYM(gr_clear,"GRAPH-CLEAR",system)
  928. LISPSYM(gr_dims,"GRAPH-DIMS",system)
  929. LISPSYM(gr_dot,"GRAPH-DOT",system)
  930. LISPSYM(gr_box,"GRAPH-BOX",system)
  931. LISPSYM(gr_line,"GRAPH-LINE",system)
  932. LISPSYM(gr_text,"GRAPH-TEXT",system)
  933. #endif
  934. # ---------- FOREIGN ----------
  935. #ifdef DYNAMIC_FFI
  936. LISPSYM(validp,"VALIDP",ffi)
  937. LISPSYM(sizeof,"%SIZEOF",ffi)
  938. LISPSYM(bitsizeof,"%BITSIZEOF",ffi)
  939. LISPSYM(lookup_foreign_variable,"LOOKUP-FOREIGN-VARIABLE",ffi)
  940. LISPSYM(foreign_value,"FOREIGN-VALUE",ffi)
  941. LISPSYM(set_foreign_value,"SET-FOREIGN-VALUE",ffi)
  942. LISPSYM(foreign_type,"FOREIGN-TYPE",ffi)
  943. LISPSYM(foreign_size,"FOREIGN-SIZE",ffi)
  944. LISPSYM(element,"%ELEMENT",ffi)
  945. LISPSYM(deref,"%DEREF",ffi)
  946. LISPSYM(slot,"%SLOT",ffi)
  947. LISPSYM(cast,"%CAST",ffi)
  948. LISPSYM(lookup_foreign_function,"LOOKUP-FOREIGN-FUNCTION",ffi)
  949. LISPSYM(foreign_call_out,"FOREIGN-CALL-OUT",ffi)
  950. #ifdef AMIGAOS
  951. LISPSYM(foreign_library,"FOREIGN-LIBRARY",ffi)
  952. LISPSYM(foreign_library_variable,"FOREIGN-ADDRESS-VARIABLE",ffi)
  953. LISPSYM(foreign_library_function,"FOREIGN-LIBRARY-FUNCTION",ffi)
  954. #endif
  955. #endif
  956. # ---------- STDWIN ----------
  957. #ifdef STDWIN
  958. LISPSYM(stdwin_init,"INIT",stdwin)
  959. LISPSYM(stdwin_done,"DONE",stdwin)
  960. LISPSYM(stdwin_drawproc_alist,"DRAWPROC-ALIST",stdwin)
  961. LISPSYM(stdwin_wopen,"WOPEN",stdwin)
  962. LISPSYM(stdwin_wclose,"WCLOSE",stdwin)
  963. LISPSYM(stdwin_scrollbar_p,"SCROLLBAR-P",stdwin)
  964. LISPSYM(stdwin_set_scrollbar_p,"SET-SCROLLBAR-P",stdwin)
  965. LISPSYM(stdwin_default_window_size,"DEFAULT-WINDOW-SIZE",stdwin)
  966. LISPSYM(stdwin_set_default_window_size,"SET-DEFAULT-WINDOW-SIZE",stdwin)
  967. LISPSYM(stdwin_default_window_position,"DEFAULT-WINDOW-POSITION",stdwin)
  968. LISPSYM(stdwin_set_default_window_position,"SET-DEFAULT-WINDOW-POSITION",stdwin)
  969. LISPSYM(stdwin_screen_size,"SCREEN-SIZE",stdwin)
  970. LISPSYM(stdwin_window_size,"WINDOW-SIZE",stdwin)
  971. LISPSYM(stdwin_window_position,"WINDOW-POSITION",stdwin)
  972. LISPSYM(stdwin_window_document_size,"WINDOW-DOCUMENT-SIZE",stdwin)
  973. LISPSYM(stdwin_set_window_document_size,"SET-WINDOW-DOCUMENT-SIZE",stdwin)
  974. LISPSYM(stdwin_window_title,"WINDOW-TITLE",stdwin)
  975. LISPSYM(stdwin_set_window_title,"SET-WINDOW-TITLE",stdwin)
  976. LISPSYM(stdwin_set_window_cursor,"SET-WINDOW-CURSOR",stdwin)
  977. LISPSYM(stdwin_window_show,"WINDOW-SHOW",stdwin)
  978. LISPSYM(stdwin_window_origin,"WINDOW-ORIGIN",stdwin)
  979. LISPSYM(stdwin_set_window_origin,"SET-WINDOW-ORIGIN",stdwin)
  980. LISPSYM(stdwin_window_change,"WINDOW-CHANGE",stdwin)
  981. LISPSYM(stdwin_window_update,"WINDOW-UPDATE",stdwin)
  982. LISPSYM(stdwin_begin_drawing,"BEGIN-DRAWING",stdwin)
  983. LISPSYM(stdwin_end_drawing,"END-DRAWING",stdwin)
  984. LISPSYM(stdwin_draw_line,"DRAW-LINE",stdwin)
  985. LISPSYM(stdwin_xor_line,"XOR-LINE",stdwin)
  986. LISPSYM(stdwin_draw_box,"DRAW-BOX",stdwin)
  987. LISPSYM(stdwin_paint,"PAINT",stdwin)
  988. LISPSYM(stdwin_invert,"INVERT",stdwin)
  989. LISPSYM(stdwin_erase,"ERASE",stdwin)
  990. LISPSYM(stdwin_shade,"SHADE",stdwin)
  991. LISPSYM(stdwin_draw_circle,"DRAW-CIRCLE",stdwin)
  992. LISPSYM(stdwin_xor_circle,"XOR-CIRCLE",stdwin)
  993. LISPSYM(stdwin_fill_circle,"FILL-CIRCLE",stdwin)
  994. LISPSYM(stdwin_draw_arc,"DRAW-ARC",stdwin)
  995. LISPSYM(stdwin_xor_arc,"XOR-ARC",stdwin)
  996. LISPSYM(stdwin_fill_arc,"FILL-ARC",stdwin)
  997. LISPSYM(stdwin_draw_char,"DRAW-CHAR",stdwin)
  998. LISPSYM(stdwin_draw_text,"DRAW-TEXT",stdwin)
  999. LISPSYM(stdwin_line_height,"LINE-HEIGHT",stdwin)
  1000. LISPSYM(stdwin_char_width,"CHAR-WIDTH",stdwin)
  1001. LISPSYM(stdwin_text_width,"TEXT-WIDTH",stdwin)
  1002. LISPSYM(stdwin_text_break,"TEXT-BREAK",stdwin)
  1003. LISPSYM(stdwin_set_text_font,"SET-TEXT-FONT",stdwin)
  1004. LISPSYM(stdwin_window_set_timer,"WINDOW-SET-TIMER",stdwin)
  1005. LISPSYM(stdwin_get_event,"GET-EVENT",stdwin)
  1006. LISPSYM(stdwin_get_event_no_hang,"GET-EVENT-NO-HANG",stdwin)
  1007. LISPSYM(stdwin_active_window,"ACTIVE-WINDOW",stdwin)
  1008. LISPSYM(stdwin_set_active_window,"SET-ACTIVE-WINDOW",stdwin)
  1009. LISPSYM(stdwin_menu_create,"MENU-CREATE",stdwin)
  1010. LISPSYM(stdwin_menu_delete,"MENU-DELETE",stdwin)
  1011. LISPSYM(stdwin_menu_attach,"MENU-ATTACH",stdwin)
  1012. LISPSYM(stdwin_menu_detach,"MENU-DETACH",stdwin)
  1013. LISPSYM(stdwin_menu_size,"MENU-SIZE",stdwin)
  1014. LISPSYM(stdwin_menu_add_item,"MENU-ADD-ITEM",stdwin)
  1015. LISPSYM(stdwin_set_menu_item_label,"SET-MENU-ITEM-LABEL",stdwin)
  1016. LISPSYM(stdwin_menu_item_enable,"MENU-ITEM-ENABLE",stdwin)
  1017. LISPSYM(stdwin_menu_item_disable,"MENU-ITEM-DISABLE",stdwin)
  1018. LISPSYM(stdwin_set_menu_item_checkmark,"SET-MENU-ITEM-CHECKMARK",stdwin)
  1019. LISPSYM(stdwin_window_set_caret,"WINDOW-SET-CARET",stdwin)
  1020. LISPSYM(stdwin_window_no_caret,"WINDOW-NO-CARET",stdwin)
  1021. LISPSYM(stdwin_user_message,"USER-MESSAGE",stdwin)
  1022. LISPSYM(stdwin_user_ask,"USER-ASK",stdwin)
  1023. #endif
  1024.  
  1025. # Keywords:
  1026. LISPSYM(Kallow_other_keys,"ALLOW-OTHER-KEYS",keyword)
  1027. LISPSYM(Kadjustable,"ADJUSTABLE",keyword)
  1028. LISPSYM(Kelement_type,"ELEMENT-TYPE",keyword)
  1029. LISPSYM(Kinitial_element,"INITIAL-ELEMENT",keyword)
  1030. LISPSYM(Kinitial_contents,"INITIAL-CONTENTS",keyword)
  1031. LISPSYM(Kfill_pointer,"FILL-POINTER",keyword)
  1032. LISPSYM(Kdisplaced_to,"DISPLACED-TO",keyword)
  1033. LISPSYM(Kdisplaced_index_offset,"DISPLACED-INDEX-OFFSET",keyword)
  1034. LISPSYM(Kstart1,"START1",keyword)
  1035. LISPSYM(Kend1,"END1",keyword)
  1036. LISPSYM(Kstart2,"START2",keyword)
  1037. LISPSYM(Kend2,"END2",keyword)
  1038. LISPSYM(Kstart,"START",keyword)
  1039. LISPSYM(Kend,"END",keyword)
  1040. LISPSYM(Kpreserve_whitespace,"PRESERVE-WHITESPACE",keyword)
  1041. LISPSYM(Kradix,"RADIX",keyword)
  1042. LISPSYM(Kjunk_allowed,"JUNK-ALLOWED",keyword)
  1043. LISPSYM(Kcase,"CASE",keyword)
  1044. LISPSYM(Klevel,"LEVEL",keyword)
  1045. LISPSYM(Klength,"LENGTH",keyword)
  1046. LISPSYM(Kgensym,"GENSYM",keyword)
  1047. LISPSYM(Kescape,"ESCAPE",keyword)
  1048. LISPSYM(Kbase,"BASE",keyword)
  1049. LISPSYM(Karray,"ARRAY",keyword)
  1050. LISPSYM(Kcircle,"CIRCLE",keyword)
  1051. LISPSYM(Kpretty,"PRETTY",keyword)
  1052. LISPSYM(Kclosure,"CLOSURE",keyword)
  1053. LISPSYM(Kreadably,"READABLY",keyword)
  1054. LISPSYM(Kstream,"STREAM",keyword)
  1055. LISPSYM(Kidentity,"IDENTITY",keyword)
  1056. LISPSYM(Ktest,"TEST",keyword)
  1057. LISPSYM(Ktest_not,"TEST-NOT",keyword)
  1058. LISPSYM(Kkey,"KEY",keyword)
  1059. LISPSYM(Knicknames,"NICKNAMES",keyword)
  1060. LISPSYM(Kuse,"USE",keyword)
  1061. LISPSYM(Kupdate,"UPDATE",keyword)
  1062. LISPSYM(Kfrom_end,"FROM-END",keyword)
  1063. LISPSYM(Kinitial_value,"INITIAL-VALUE",keyword)
  1064. LISPSYM(Kcount,"COUNT",keyword)
  1065. LISPSYM(Ksize,"SIZE",keyword)
  1066. LISPSYM(Krehash_size,"REHASH-SIZE",keyword)
  1067. LISPSYM(Krehash_threshold,"REHASH-THRESHOLD",keyword)
  1068. LISPSYM(Kdefaults,"DEFAULTS",keyword)
  1069. LISPSYM(Kdevice,"DEVICE",keyword)
  1070. LISPSYM(Kdirectory,"DIRECTORY",keyword)
  1071. LISPSYM(Kname,"NAME",keyword)
  1072. LISPSYM(Ktype,"TYPE",keyword)
  1073. LISPSYM(Kversion,"VERSION",keyword)
  1074. LISPSYM(Khost,"HOST",keyword)
  1075. LISPSYM(Kall,"ALL",keyword)
  1076. LISPSYM(Kmerge,"MERGE",keyword)
  1077. LISPSYM(Kdirection,"DIRECTION",keyword)
  1078. LISPSYM(Kif_exists,"IF-EXISTS",keyword)
  1079. LISPSYM(Kif_does_not_exist,"IF-DOES-NOT-EXIST",keyword)
  1080. LISPSYM(Kfull,"FULL",keyword)
  1081. LISPSYM(Kabort,"ABORT",keyword)
  1082. #ifdef REXX
  1083. LISPSYM(Kresult,"RESULT",keyword)
  1084. LISPSYM(Kstring,"STRING",keyword)
  1085. LISPSYM(Ktoken,"TOKEN",keyword)
  1086. LISPSYM(Kasync,"ASYNC",keyword)
  1087. LISPSYM(Kreturn,"RETURN",keyword)
  1088. #endif
  1089.  
  1090. # sonstige Symbole:
  1091. LISPSYM(string_char,"STRING-CHAR",lisp) # als Typ in ARRAY
  1092. LISPSYM(array_rank_limit,"ARRAY-RANK-LIMIT",lisp) # als Konstante in ARRAY
  1093. LISPSYM(array_dimension_limit,"ARRAY-DIMENSION-LIMIT",lisp) # als Konstante in ARRAY
  1094. LISPSYM(array_total_size_limit,"ARRAY-TOTAL-SIZE-LIMIT",lisp) # als Konstante in ARRAY
  1095. LISPSYM(subtype_integer,"SUBTYPE-INTEGER",system) # als Funktion für ARRAY
  1096. LISPSYM(structure,"STRUCTURE",lisp) # als Typ für RECORD
  1097. LISPSYM(slot_missing,"SLOT-MISSING",clos) # als Funktion für RECORD
  1098. LISPSYM(slot_unbound,"SLOT-UNBOUND",clos) # als Funktion für RECORD
  1099. LISPSYM(reinitialize_instance_table,"*REINITIALIZE-INSTANCE-TABLE*",clos) # als Variable für RECORD
  1100. LISPSYM(make_instance_table,"*MAKE-INSTANCE-TABLE*",clos) # als Variable für RECORD
  1101. LISPSYM(initial_reinitialize_instance,"INITIAL-REINITIALIZE-INSTANCE",clos) # als Funktion für RECORD
  1102. LISPSYM(initial_initialize_instance,"INITIAL-INITIALIZE-INSTANCE",clos) # als Funktion für RECORD
  1103. LISPSYM(initial_make_instance,"INITIAL-MAKE-INSTANCE",clos) # als Funktion für RECORD
  1104. LISPSYM(simple_vector,"SIMPLE-VECTOR",lisp) # als Typ in SEQUENCE, PREDTYPE
  1105. LISPSYM(simple_string,"SIMPLE-STRING",lisp) # als Typ in SEQUENCE, PREDTYPE
  1106. LISPSYM(bit_vector,"BIT-VECTOR",lisp) # als Typ in SEQUENCE, PREDTYPE
  1107. LISPSYM(simple_bit_vector,"SIMPLE-BIT-VECTOR",lisp) # als Typ in SEQUENCE, PREDTYPE
  1108. LISPSYM(array,"ARRAY",lisp) # als Typ in SEQUENCE, PREDTYPE
  1109. LISPSYM(simple_array,"SIMPLE-ARRAY",lisp) # als Typ in SEQUENCE, PREDTYPE
  1110. LISPSYM(sequence,"SEQUENCE",lisp) # als Typ für SEQUENCE
  1111. LISPSYM(cerror,"CERROR",lisp) # als Funktion für PACKAGE
  1112. LISPSYM(Kinternal,"INTERNAL",keyword) # als INTERN-Ergebnis in PACKAGE
  1113. LISPSYM(Kexternal,"EXTERNAL",keyword) # als INTERN-Ergebnis in PACKAGE
  1114. LISPSYM(Kinherited,"INHERITED",keyword) # als INTERN-Ergebnis in PACKAGE
  1115. LISPSYM(do_symbols,"DO-SYMBOLS",lisp) # als Fehlermelder in PACKAGE
  1116. LISPSYM(do_external_symbols,"DO-EXTERNAL-SYMBOLS",lisp) # als Fehlermelder in PACKAGE
  1117. LISPSYM(packagestern,"*PACKAGE*",lisp) # als Variable in PACKAGE
  1118. LISPSYM(internal_time_units_per_second,"INTERNAL-TIME-UNITS-PER-SECOND",lisp) # als Konstante in TIME
  1119. LISPSYM(encode_universal_time,"ENCODE-UNIVERSAL-TIME",lisp) # als Funktion in TIME
  1120. LISPSYM(use_clcs,"*USE-CLCS*",system) # als Variable in ERROR
  1121. LISPSYM(recursive_error_count,"*RECURSIVE-ERROR-COUNT*",system) # als Variable in ERROR
  1122. LISPSYM(error_handler,"*ERROR-HANDLER*",lisp) # als Variable in ERROR
  1123. LISPSYM(simple_condition,"SIMPLE-CONDITION",lisp) # als Typ für ERROR                                 --+
  1124. LISPSYM(simple_serious_condition,"SIMPLE-SERIOUS-CONDITION",system) # als Typ für ERROR                 |
  1125. LISPSYM(simple_error,"SIMPLE-ERROR",lisp) # als Typ für ERROR                                           |
  1126. LISPSYM(simple_program_error,"SIMPLE-PROGRAM-ERROR",system) # als Typ für ERROR                         |
  1127. LISPSYM(simple_control_error,"SIMPLE-CONTROL-ERROR",system) # als Typ für ERROR                         |
  1128. LISPSYM(simple_arithmetic_error,"SIMPLE-ARITHMETIC-ERROR",system) # als Typ für ERROR                   |
  1129. LISPSYM(simple_division_by_zero,"SIMPLE-DIVISION-BY-ZERO",system) # als Typ für ERROR                   |
  1130. LISPSYM(simple_floating_point_overflow,"SIMPLE-FLOATING-POINT-OVERFLOW",system) # als Typ für ERROR     | Reihenfolge
  1131. LISPSYM(simple_floating_point_underflow,"SIMPLE-FLOATING-POINT-UNDERFLOW",system) # als Typ für ERROR   | mit ERROR.D,
  1132. LISPSYM(simple_cell_error,"SIMPLE-CELL-ERROR",system) # als Typ für ERROR                               | LISPBIBL.D,
  1133. LISPSYM(simple_unbound_variable,"SIMPLE-UNBOUND-VARIABLE",system) # als Typ für ERROR                   | CONDITION.LSP
  1134. LISPSYM(simple_undefined_function,"SIMPLE-UNDEFINED-FUNCTION",system) # als Typ für ERROR               | abgestimmt!
  1135. LISPSYM(simple_type_error,"SIMPLE-TYPE-ERROR",lisp) # als Typ für ERROR                                 |
  1136. LISPSYM(simple_package_error,"SIMPLE-PACKAGE-ERROR",system) # als Typ für ERROR                         |
  1137. LISPSYM(simple_print_not_readable,"SIMPLE-PRINT-NOT-READABLE",system) # als Typ für ERROR                      |
  1138. LISPSYM(simple_stream_error,"SIMPLE-STREAM-ERROR",system) # als Typ für ERROR                           |
  1139. LISPSYM(simple_end_of_file,"SIMPLE-END-OF-FILE",system) # als Typ für ERROR                             |
  1140. LISPSYM(simple_file_error,"SIMPLE-FILE-ERROR",system) # als Typ für ERROR                               |
  1141. LISPSYM(simple_storage_condition,"SIMPLE-STORAGE-CONDITION",system) # als Typ für ERROR                 |
  1142. LISPSYM(simple_warning,"SIMPLE-WARNING",lisp) # als Typ für ERROR                                     --+
  1143. LISPSYM(Kdatum,"DATUM",keyword) # als make-condition-Argument für ERROR
  1144. LISPSYM(Kexpected_type,"EXPECTED-TYPE",keyword) # als make-condition-Argument für ERROR
  1145. LISPSYM(Kpackage,"PACKAGE",keyword) # als make-condition-Argument für ERROR
  1146. LISPSYM(Kobject,"OBJECT",keyword) # als make-condition-Argument für ERROR
  1147. LISPSYM(Kpathname,"PATHNAME",keyword) # als make-condition-Argument für ERROR
  1148. LISPSYM(format,"FORMAT",lisp) # als Funktion in ERROR
  1149. LISPSYM(debugger_hook,"*DEBUGGER-HOOK*",lisp) # als Variable in ERROR
  1150. LISPSYM(coerce_to_condition,"COERCE-TO-CONDITION",system) # als Funktion für ERROR
  1151. LISPSYM(break_on_signals,"*BREAK-ON-SIGNALS*",lisp) # als Variable für ERROR
  1152. LISPSYM(safe_typep,"SAFE-TYPEP",system) # als Funktion für ERROR
  1153. LISPSYM(completion,"COMPLETION",system) # als Funktion in STREAM, für den Fall, daß GNU_READLINE benutzt wird
  1154. #ifdef KEYBOARD
  1155. LISPSYM(keyboard_input,"*KEYBOARD-INPUT*",lisp) # als Variable in STREAM
  1156. #endif
  1157. LISPSYM(terminal_io,"*TERMINAL-IO*",lisp) # als Variable in STREAM
  1158. LISPSYM(key_bindings,"*KEY-BINDINGS*",system) # als Variable in STREAM
  1159. LISPSYM(query_io,"*QUERY-IO*",lisp) # als Variable in STREAM
  1160. LISPSYM(debug_io,"*DEBUG-IO*",lisp) # als Variable in STREAM
  1161. LISPSYM(standard_input,"*STANDARD-INPUT*",lisp) # als Variable in STREAM
  1162. LISPSYM(standard_output,"*STANDARD-OUTPUT*",lisp) # als Variable in STREAM
  1163. LISPSYM(error_output,"*ERROR-OUTPUT*",lisp) # als Variable in STREAM
  1164. LISPSYM(trace_output,"*TRACE-OUTPUT*",lisp) # als Variable in STREAM
  1165. #ifdef GENERIC_STREAMS
  1166. LISPSYM(generic_stream_rdch,"GENERIC-STREAM-READ-CHAR",lisp) # als Funktion für STREAM
  1167. LISPSYM(generic_stream_listen,"GENERIC-STREAM-LISTEN",lisp) # als Funktion für STREAM
  1168. LISPSYM(generic_stream_clear_input,"GENERIC-STREAM-CLEAR-INPUT",lisp) # als Funktion für STREAM
  1169. LISPSYM(generic_stream_wrch,"GENERIC-STREAM-WRITE-CHAR",lisp) # als Funktion für STREAM
  1170. LISPSYM(generic_stream_wrss,"GENERIC-STREAM-WRITE-STRING",lisp) # als Funktion für STREAM
  1171. LISPSYM(generic_stream_finish_output,"GENERIC-STREAM-FINISH-OUTPUT",lisp) # als Funktion für STREAM
  1172. LISPSYM(generic_stream_force_output,"GENERIC-STREAM-FORCE-OUTPUT",lisp) # als Funktion für STREAM
  1173. LISPSYM(generic_stream_clear_output,"GENERIC-STREAM-CLEAR-OUTPUT",lisp) # als Funktion für STREAM
  1174. LISPSYM(generic_stream_rdby,"GENERIC-STREAM-READ-BYTE",lisp) # als Funktion für STREAM
  1175. LISPSYM(generic_stream_wrby,"GENERIC-STREAM-WRITE-BYTE",lisp) # als Funktion für STREAM
  1176. LISPSYM(generic_stream_close,"GENERIC-STREAM-CLOSE",lisp) # als Funktion für STREAM
  1177. #endif
  1178. LISPSYM(default_pathname_defaults,"*DEFAULT-PATHNAME-DEFAULTS*",lisp) # als Variable in PATHNAME
  1179. LISPSYM(read_pathname_p,"*READ-PATHNAME-P*",lisp)
  1180. #ifdef LOGICAL_PATHNAMES
  1181. LISPSYM(logpathname_translations,"*LOGICAL-PATHNAME-TRANSLATIONS*",system) # als Variable in PATHNAME
  1182. #endif
  1183. LISPSYM(Kwild,"WILD",keyword) # als Pathname-Komponente in PATHNAME
  1184. LISPSYM(Kwild_inferiors,"WILD-INFERIORS",keyword) # als Pathname-Komponente in PATHNAME
  1185. LISPSYM(Krelative,"RELATIVE",keyword) # als Pathname-Komponente in PATHNAME
  1186. LISPSYM(Kabsolute,"ABSOLUTE",keyword) # als Pathname-Komponente in PATHNAME
  1187. #if defined(PATHNAME_MSDOS)
  1188. LISPSYM(Kcurrent,"CURRENT",keyword) # als Pathname-Komponente in PATHNAME
  1189. #endif
  1190. #if defined(PATHNAME_MSDOS) || defined(PATHNAME_AMIGAOS) || defined(PATHNAME_RISCOS)
  1191. LISPSYM(Kparent,"PARENT",keyword) # als Pathname-Komponente in PATHNAME
  1192. #endif
  1193. #ifdef PATHNAME_RISCOS
  1194. LISPSYM(Kroot,"ROOT",keyword) # als Pathname-Komponente in PATHNAME
  1195. LISPSYM(Khome,"HOME",keyword) # als Pathname-Komponente in PATHNAME
  1196. LISPSYM(Kcurrent,"CURRENT",keyword) # als Pathname-Komponente in PATHNAME
  1197. LISPSYM(Klibrary,"LIBRARY",keyword) # als Pathname-Komponente in PATHNAME
  1198. LISPSYM(Kprevious,"PREVIOUS",keyword) # als Pathname-Komponente in PATHNAME
  1199. #endif
  1200. LISPSYM(Knewest,"NEWEST",keyword) # als Pathname-Komponente in PATHNAME
  1201. LISPSYM(Kcommon,"COMMON",keyword) # als Argument in PATHNAME
  1202. # LISPSYM(Klocal,"LOCAL",keyword) # als Argument in PATHNAME
  1203. LISPSYM(Kinput,"INPUT",keyword) # als Argument in PATHNAME
  1204. LISPSYM(Kinput_immutable,"INPUT-IMMUTABLE",keyword) # als Argument in PATHNAME
  1205. LISPSYM(Koutput,"OUTPUT",keyword) # als Argument in PATHNAME
  1206. LISPSYM(Kio,"IO",keyword) # als Argument in PATHNAME
  1207. LISPSYM(Kprobe,"PROBE",keyword) # als Argument in PATHNAME
  1208. LISPSYM(unsigned_byte,"UNSIGNED-BYTE",lisp) # als Argument in PATHNAME
  1209. LISPSYM(signed_byte,"SIGNED-BYTE",lisp) # als Argument in PATHNAME
  1210. LISPSYM(Kdefault,"DEFAULT",keyword) # als Argument in PATHNAME
  1211. LISPSYM(Kerror,"ERROR",keyword) # als Argument in PATHNAME
  1212. LISPSYM(Knew_version,"NEW-VERSION",keyword) # als Argument in PATHNAME
  1213. LISPSYM(Krename,"RENAME",keyword) # als Argument in PATHNAME
  1214. LISPSYM(Krename_and_delete,"RENAME-AND-DELETE",keyword) # als Argument in PATHNAME
  1215. LISPSYM(Koverwrite,"OVERWRITE",keyword) # als Argument in PATHNAME
  1216. LISPSYM(Kappend,"APPEND",keyword) # als Argument in PATHNAME
  1217. LISPSYM(Ksupersede,"SUPERSEDE",keyword) # als Argument in PATHNAME
  1218. LISPSYM(Kcreate,"CREATE",keyword) # als Argument in PATHNAME
  1219. LISPSYM(warn,"WARN",lisp) # als Funktion in STREAM, PATHNAME
  1220. LISPSYM(with_output_to_string,"WITH-OUTPUT-TO-STRING",lisp) # als Fehlermelder in STREAM
  1221. LISPSYM(integer,"INTEGER",lisp) # als Typ in STREAM
  1222. LISPSYM(hash_table,"HASH-TABLE",lisp) # als Typ in IO, PREDTYPE
  1223. LISPSYM(random_state,"RANDOM-STATE",lisp) # als Typ in IO, PREDTYPE
  1224. LISPSYM(read_base,"*READ-BASE*",lisp) # als Variable in IO
  1225. LISPSYM(read_suppress,"*READ-SUPPRESS*",lisp) # als Variable in IO
  1226. LISPSYM(readtablestern,"*READTABLE*",lisp) # als Variable in IO
  1227. LISPSYM(features,"*FEATURES*",lisp) # als Variable in IO
  1228. LISPSYM(read_preserve_whitespace,"*READ-PRESERVE-WHITESPACE*",system) # als Variable in IO
  1229. LISPSYM(read_line_number,"*READ-LINE-NUMBER*",system) # als Variable in IO
  1230. LISPSYM(read_recursive_p,"*READ-RECURSIVE-P*",system) # als Variable in IO
  1231. LISPSYM(read_reference_table,"*READ-REFERENCE-TABLE*",system) # als Variable in IO
  1232. LISPSYM(backquote_level,"*BACKQUOTE-LEVEL*",system) # als Variable in IO
  1233. LISPSYM(backquote_reader,"`-READER",system) # als Funktion für IO
  1234. LISPSYM(comma_reader,",-READER",system) # als Funktion für IO
  1235. LISPSYM(compiling,"*COMPILING*",system) # als Variable in IO
  1236. LISPSYM(make_byte,"MAKE-BYTE",system) # als Funktion für IO
  1237. LISPSYM(Kupcase,"UPCASE",keyword) # als *PRINT-CASE* - Wert in IO
  1238. LISPSYM(Kdowncase,"DOWNCASE",keyword) # als *PRINT-CASE* - Wert in IO
  1239. LISPSYM(Kcapitalize,"CAPITALIZE",keyword) # als *PRINT-CASE* - Wert in IO
  1240. LISPSYM(print_case,"*PRINT-CASE*",lisp) # als Variable in IO         --+
  1241. LISPSYM(print_level,"*PRINT-LEVEL*",lisp) # als Variable in IO         |
  1242. LISPSYM(print_length,"*PRINT-LENGTH*",lisp) # als Variable in IO       |
  1243. LISPSYM(print_gensym,"*PRINT-GENSYM*",lisp) # als Variable in IO       |
  1244. LISPSYM(print_escape,"*PRINT-ESCAPE*",lisp) # als Variable in IO       |
  1245. LISPSYM(print_radix,"*PRINT-RADIX*",lisp) # als Variable in IO         | Reihenfolge
  1246. LISPSYM(print_base,"*PRINT-BASE*",lisp) # als Variable in IO           | mit IO.D abgestimmt!
  1247. LISPSYM(print_array,"*PRINT-ARRAY*",lisp) # als Variable in IO         |
  1248. LISPSYM(print_circle,"*PRINT-CIRCLE*",lisp) # als Variable in IO       |
  1249. LISPSYM(print_pretty,"*PRINT-PRETTY*",lisp) # als Variable in IO       |
  1250. LISPSYM(print_closure,"*PRINT-CLOSURE*",lisp) # als Variable in IO     |
  1251. LISPSYM(print_readably,"*PRINT-READABLY*",lisp) # als Variable in IO --+
  1252. LISPSYM(print_rpars,"*PRINT-RPARS*",lisp) # als Variable in IO
  1253. LISPSYM(print_indent_lists,"*PRINT-INDENT-LISTS*",lisp) # als Variable in IO
  1254. LISPSYM(print_circle_table,"*PRINT-CIRCLE-TABLE*",system) # als Variable in IO
  1255. LISPSYM(prin_level,"*PRIN-LEVEL*",system) # als Variable in IO
  1256. LISPSYM(prin_bqlevel,"*PRIN-BQLEVEL*",system) # als Variable in IO
  1257. LISPSYM(prin_stream,"*PRIN-STREAM*",system) # als Variable in IO
  1258. LISPSYM(prin_linelength,"*PRIN-LINELENGTH*",system) # als Variable in IO
  1259. LISPSYM(prin_l1,"*PRIN-L1*",system) # als Variable in IO
  1260. LISPSYM(prin_lm,"*PRIN-LM*",system) # als Variable in IO
  1261. LISPSYM(prin_rpar,"*PRIN-RPAR*",system) # als Variable in IO
  1262. LISPSYM(prin_jblocks,"*PRIN-JBLOCKS*",system) # als Variable in IO
  1263. LISPSYM(prin_jbstrings,"*PRIN-JBSTRINGS*",system) # als Variable in IO
  1264. LISPSYM(prin_jbmodus,"*PRIN-JBMODUS*",system) # als Variable in IO
  1265. LISPSYM(prin_jblpos,"*PRIN-JBLPOS*",system) # als Variable in IO
  1266. LISPSYM(backquote,"BACKQUOTE",system) # als Marker in IO
  1267. LISPSYM(splice,"SPLICE",system) # als Marker in IO
  1268. LISPSYM(nsplice,"NSPLICE",system) # als Marker in IO
  1269. LISPSYM(unquote,"UNQUOTE",system) # als Marker in IO
  1270. LISPSYM(structure_print,"STRUCTURE-PRINT",system) # als Property in IO
  1271. LISPSYM(defstruct_description,"DEFSTRUCT-DESCRIPTION",system) # als Property in IO
  1272. LISPSYM(print_object,"PRINT-OBJECT",clos) # als Funktion für IO
  1273. LISPSYM(trace_values,"*TRACE-VALUES*",lisp) # als Variable in EVAL
  1274. LISPSYM(setf_function,"SETF-FUNCTION",system) # als Property in EVAL
  1275. LISPSYM(lambda,"LAMBDA",lisp) # als Marker in EVAL
  1276. LISPSYM(LLoptional,"&OPTIONAL",lisp) # als Lambdalisten-Marker in EVAL
  1277. LISPSYM(LLkey,"&KEY",lisp) # als Lambdalisten-Marker in EVAL
  1278. LISPSYM(LLallow_other_keys,"&ALLOW-OTHER-KEYS",lisp) # als Lambdalisten-Marker in EVAL
  1279. LISPSYM(LLrest,"&REST",lisp) # als Lambdalisten-Marker in EVAL
  1280. LISPSYM(LLaux,"&AUX",lisp) # als Lambdalisten-Marker in EVAL
  1281. LISPSYM(macro,"MACRO",system) # als Marker in EVAL
  1282. LISPSYM(special,"SPECIAL",lisp) # als Declaration-Specifier in EVAL
  1283. LISPSYM(source,"SOURCE",system) # als Declaration-Specifier in EVAL
  1284. LISPSYM(optimize,"OPTIMIZE",lisp) # als Declaration-Specifier in EVAL
  1285. LISPSYM(declaration,"DECLARATION",lisp) # als Declaration-Specifier in EVAL
  1286. LISPSYM(compile_lambda,"COMPILE-LAMBDA",system) # als Funktion für EVAL
  1287. LISPSYM(expand_lambdabody_main,"%EXPAND-LAMBDABODY-MAIN",system) # als Funktion für EVAL
  1288. LISPSYM(compile,"COMPILE",lisp) # als Declaration-Specifier und Funktion für EVAL
  1289. #ifdef DEBUG_EVAL
  1290. LISPSYM(funcall_trace_output,"*FUNCALL-TRACE-OUTPUT*",system) # als Variable in EVAL
  1291. #endif
  1292. LISPSYM(evalhookstern,"*EVALHOOK*",lisp) # als Variable in EVAL
  1293. LISPSYM(applyhookstern,"*APPLYHOOK*",lisp) # als Variable in EVAL
  1294. LISPSYM(macroexpand_hook,"*MACROEXPAND-HOOK*",lisp) # als Variable in EVAL
  1295. LISPSYM(lambda_parameters_limit,"LAMBDA-PARAMETERS-LIMIT",lisp) # als Konstante in EVAL
  1296. LISPSYM(call_arguments_limit,"CALL-ARGUMENTS-LIMIT",lisp) # als Konstante in EVAL
  1297. LISPSYM(multiple_values_limit,"MULTIPLE-VALUES-LIMIT",lisp) # als Konstante in EVAL
  1298. LISPSYM(jmpbuf_size,"*JMPBUF-SIZE*",system) # als Konstante in EVAL für COMPILER
  1299. LISPSYM(big_endian,"*BIG-ENDIAN*",system) # als Konstante in EVAL für COMPILER
  1300. LISPSYM(Klambda,"LAMBDA",keyword) # als Marker in EVAL
  1301. LISPSYM(keyword,"KEYWORD",lisp) # als Typ für EVAL
  1302. LISPSYM(plus2,"++",lisp) # als Variable in DEBUG
  1303. LISPSYM(plus3,"+++",lisp) # als Variable in DEBUG
  1304. LISPSYM(mal2,"**",lisp) # als Variable in DEBUG
  1305. LISPSYM(mal3,"***",lisp) # als Variable in DEBUG
  1306. LISPSYM(durch2,"//",lisp) # als Variable in DEBUG
  1307. LISPSYM(durch3,"///",lisp) # als Variable in DEBUG
  1308. LISPSYM(driverstern,"*DRIVER*",lisp) # als Variable in DEBUG
  1309. LISPSYM(break_driver,"*BREAK-DRIVER*",lisp) # als Variable in DEBUG
  1310. LISPSYM(break_count,"*BREAK-COUNT*",system) # als Variable in DEBUG
  1311. LISPSYM(recurse_count_standard_output,"*RECURSE-COUNT-STANDARD-OUTPUT*",system) # als Variable in DEBUG
  1312. LISPSYM(frame_limit1,"*FRAME-LIMIT1*",system) # als Variable in DEBUG
  1313. LISPSYM(frame_limit2,"*FRAME-LIMIT2*",system) # als Variable in DEBUG
  1314. LISPSYM(load_input_stream,"*LOAD-INPUT-STREAM*",system) # in DEBUG
  1315. LISPSYM(setf,"SETF",lisp) # als Marker in CONTROL
  1316. LISPSYM(psetf,"PSETF",lisp) # als Marker in CONTROL
  1317. LISPSYM(multiple_value_setf,"MULTIPLE-VALUE-SETF",system) # als Marker in CONTROL
  1318. LISPSYM(make_macro_expandercons,"MAKE-MACRO-EXPANDERCONS",system) # als Funktion für CONTROL
  1319. LISPSYM(pthe,"%THE",system) # als Funktion für CONTROL
  1320. LISPSYM(compile_form,"COMPILE-FORM",system) # als Funktion für CONTROL
  1321. LISPSYM(inline,"INLINE",lisp) # als Declaration-Specifier in CONTROL
  1322. LISPSYM(notinline,"NOTINLINE",lisp) # als Declaration-Specifier in CONTROL
  1323. LISPSYM(get_funname_symbol,"GET-FUNNAME-SYMBOL",system) # als Funktion für CONTROL
  1324. LISPSYM(inlinable,"INLINABLE",system) # als Property in CONTROL
  1325. LISPSYM(symbol,"SYMBOL",lisp) # als Typ in PREDTYPE
  1326. LISPSYM(address,"ADDRESS",lisp) # als Typ in PREDTYPE
  1327. LISPSYM(file_stream,"FILE-STREAM",lisp) # als Typ in PREDTYPE
  1328. LISPSYM(synonym_stream,"SYNONYM-STREAM",lisp) # als Typ in PREDTYPE
  1329. LISPSYM(broadcast_stream,"BROADCAST-STREAM",lisp) # als Typ in PREDTYPE
  1330. LISPSYM(concatenated_stream,"CONCATENATED-STREAM",lisp) # als Typ in PREDTYPE
  1331. LISPSYM(two_way_stream,"TWO-WAY-STREAM",lisp) # als Typ in PREDTYPE
  1332. LISPSYM(echo_stream,"ECHO-STREAM",lisp) # als Typ in PREDTYPE
  1333. LISPSYM(string_stream,"STRING-STREAM",lisp) # als Typ in PREDTYPE
  1334. LISPSYM(stream,"STREAM",lisp) # als Typ in PREDTYPE
  1335. LISPSYM(package,"PACKAGE",lisp) # als Typ in PREDTYPE
  1336. LISPSYM(readtable,"READTABLE",lisp) # als Typ in PREDTYPE
  1337. LISPSYM(load_time_eval,"LOAD-TIME-EVAL",lisp) # als Typ in PREDTYPE
  1338. LISPSYM(symbol_macro,"SYMBOL-MACRO",lisp) # als Typ in PREDTYPE
  1339. #ifdef FOREIGN
  1340. LISPSYM(foreign_pointer,"FOREIGN-POINTER",lisp) # als Typ in PREDTYPE
  1341. #endif
  1342. #ifdef DYNAMIC_FFI
  1343. LISPSYM(foreign_address,"FOREIGN-ADDRESS",lisp) # als Typ in PREDTYPE
  1344. LISPSYM(foreign_variable,"FOREIGN-VARIABLE",lisp) # als Typ in PREDTYPE
  1345. LISPSYM(foreign_function,"FOREIGN-FUNCTION",lisp) # als Typ in PREDTYPE
  1346. #endif
  1347. LISPSYM(finalizer,"FINALIZER",lisp) # als Typ in PREDTYPE
  1348. #ifdef YET_ANOTHER_RECORD
  1349. LISPSYM(yet_another,"YET-ANOTHER",lisp) # als Typ in PREDTYPE
  1350. #endif
  1351. LISPSYM(compiled_function,"COMPILED-FUNCTION",lisp) # als Typ in PREDTYPE
  1352. LISPSYM(frame_pointer,"FRAME-POINTER",lisp) # als Typ in PREDTYPE
  1353. LISPSYM(read_label,"READ-LABEL",lisp) # als Typ in PREDTYPE
  1354. LISPSYM(system_internal,"SYSTEM-INTERNAL",lisp) # als Typ in PREDTYPE
  1355. LISPSYM(fixnum,"FIXNUM",lisp) # als Typ in PREDTYPE
  1356. LISPSYM(bignum,"BIGNUM",lisp) # als Typ in PREDTYPE
  1357. LISPSYM(ratio,"RATIO",lisp) # als Typ in PREDTYPE
  1358. LISPSYM(short_float,"SHORT-FLOAT",lisp) # als Typ in PREDTYPE
  1359. LISPSYM(single_float,"SINGLE-FLOAT",lisp) # als Typ in PREDTYPE
  1360. LISPSYM(double_float,"DOUBLE-FLOAT",lisp) # als Typ in PREDTYPE
  1361. LISPSYM(long_float,"LONG-FLOAT",lisp) # als Typ in PREDTYPE
  1362. LISPSYM(standard_generic_function,"STANDARD-GENERIC-FUNCTION",clos) # als Typ in PREDTYPE
  1363. LISPSYM(closclass,"CLASS",clos) # als Marker in PREDTYPE
  1364. LISPSYM(typep,"TYPEP",lisp) # als Funktion für PREDTYPE
  1365. LISPSYM(deftype_expander,"DEFTYPE-EXPANDER",system) # als Property in PREDTYPE
  1366. LISPSYM(gensym_counter,"*GENSYM-COUNTER*",lisp) # als Variable in SYMBOL
  1367. LISPSYM(inhibit_floating_point_underflow,"*INHIBIT-FLOATING-POINT-UNDERFLOW*",system) # als Variable in LISPARIT
  1368. LISPSYM(pi,"PI",lisp) # als Variable in LISPARIT
  1369. LISPSYM(number,"NUMBER",lisp) # als Typ für LISPARIT
  1370. LISPSYM(real,"REAL",lisp) # als Typ für LISPARIT
  1371. LISPSYM(most_positive_fixnum,"MOST-POSITIVE-FIXNUM",lisp) # als Konstante in LISPARIT
  1372. LISPSYM(most_negative_fixnum,"MOST-NEGATIVE-FIXNUM",lisp) # als Konstante in LISPARIT
  1373. LISPSYM(most_positive_short_float,"MOST-POSITIVE-SHORT-FLOAT",lisp) # als Konstante in LISPARIT
  1374. LISPSYM(least_positive_short_float,"LEAST-POSITIVE-SHORT-FLOAT",lisp) # als Konstante in LISPARIT
  1375. LISPSYM(least_negative_short_float,"LEAST-NEGATIVE-SHORT-FLOAT",lisp) # als Konstante in LISPARIT
  1376. LISPSYM(most_negative_short_float,"MOST-NEGATIVE-SHORT-FLOAT",lisp) # als Konstante in LISPARIT
  1377. LISPSYM(most_positive_single_float,"MOST-POSITIVE-SINGLE-FLOAT",lisp) # als Konstante in LISPARIT
  1378. LISPSYM(least_positive_single_float,"LEAST-POSITIVE-SINGLE-FLOAT",lisp) # als Konstante in LISPARIT
  1379. LISPSYM(least_negative_single_float,"LEAST-NEGATIVE-SINGLE-FLOAT",lisp) # als Konstante in LISPARIT
  1380. LISPSYM(most_negative_single_float,"MOST-NEGATIVE-SINGLE-FLOAT",lisp) # als Konstante in LISPARIT
  1381. LISPSYM(most_positive_double_float,"MOST-POSITIVE-DOUBLE-FLOAT",lisp) # als Konstante in LISPARIT
  1382. LISPSYM(least_positive_double_float,"LEAST-POSITIVE-DOUBLE-FLOAT",lisp) # als Konstante in LISPARIT
  1383. LISPSYM(least_negative_double_float,"LEAST-NEGATIVE-DOUBLE-FLOAT",lisp) # als Konstante in LISPARIT
  1384. LISPSYM(most_negative_double_float,"MOST-NEGATIVE-DOUBLE-FLOAT",lisp) # als Konstante in LISPARIT
  1385. LISPSYM(most_positive_long_float,"MOST-POSITIVE-LONG-FLOAT",lisp) # als Variable in LISPARIT
  1386. LISPSYM(least_positive_long_float,"LEAST-POSITIVE-LONG-FLOAT",lisp) # als Variable in LISPARIT
  1387. LISPSYM(least_negative_long_float,"LEAST-NEGATIVE-LONG-FLOAT",lisp) # als Variable in LISPARIT
  1388. LISPSYM(most_negative_long_float,"MOST-NEGATIVE-LONG-FLOAT",lisp) # als Variable in LISPARIT
  1389. LISPSYM(short_float_epsilon,"SHORT-FLOAT-EPSILON",lisp) # als Konstante in LISPARIT
  1390. LISPSYM(single_float_epsilon,"SINGLE-FLOAT-EPSILON",lisp) # als Konstante in LISPARIT
  1391. LISPSYM(double_float_epsilon,"DOUBLE-FLOAT-EPSILON",lisp) # als Konstante in LISPARIT
  1392. LISPSYM(long_float_epsilon,"LONG-FLOAT-EPSILON",lisp) # als Variable in LISPARIT
  1393. LISPSYM(short_float_negative_epsilon,"SHORT-FLOAT-NEGATIVE-EPSILON",lisp) # als Konstante in LISPARIT
  1394. LISPSYM(single_float_negative_epsilon,"SINGLE-FLOAT-NEGATIVE-EPSILON",lisp) # als Konstante in LISPARIT
  1395. LISPSYM(double_float_negative_epsilon,"DOUBLE-FLOAT-NEGATIVE-EPSILON",lisp) # als Konstante in LISPARIT
  1396. LISPSYM(long_float_negative_epsilon,"LONG-FLOAT-NEGATIVE-EPSILON",lisp) # als Variable in LISPARIT
  1397. LISPSYM(default_float_format,"*DEFAULT-FLOAT-FORMAT*",lisp) # als Variable in LISPARIT
  1398. LISPSYM(read_default_float_format,"*READ-DEFAULT-FLOAT-FORMAT*",lisp) # als Variable in LISPARIT
  1399. LISPSYM(write_float,"WRITE-FLOAT",system) # als Funktion für LISPARIT
  1400. LISPSYM(random_state_stern,"*RANDOM-STATE*",lisp) # als Variable in LISPARIT
  1401. LISPSYM(init_hooks,"*INIT-HOOKS*",system) # als Variable für SPVW
  1402. LISPSYM(quiet,"*QUIET*",system) # als Variable für SPVW
  1403. LISPSYM(Klisting,"LISTING",keyword) # als Argument für SPVW
  1404. LISPSYM(Koutput_file,"OUTPUT-FILE",keyword) # als Argument für SPVW
  1405. LISPSYM(compile_file,"COMPILE-FILE",lisp) # als Funktion für SPVW
  1406. LISPSYM(batchmode_errors,"BATCHMODE-ERRORS",system) # als Macro für SPVW
  1407. LISPSYM(image_pathname,"*IMAGE-PATHNAME*",lisp)
  1408. # ---------- FFI ----------
  1409. #ifdef DYNAMIC_FFI
  1410. LISPSYM(boolean,"BOOLEAN",ffi)
  1411. # LISPSYM(char,"CHAR",ffi)
  1412. LISPSYM(uchar,"UCHAR",ffi)
  1413. LISPSYM(short,"SHORT",ffi)
  1414. LISPSYM(ushort,"USHORT",ffi)
  1415. LISPSYM(int,"INT",ffi)
  1416. LISPSYM(uint,"UINT",ffi)
  1417. LISPSYM(long,"LONG",ffi)
  1418. LISPSYM(ulong,"ULONG",ffi)
  1419. LISPSYM(uint8,"UINT8",ffi)
  1420. LISPSYM(sint8,"SINT8",ffi)
  1421. LISPSYM(uint16,"UINT16",ffi)
  1422. LISPSYM(sint16,"SINT16",ffi)
  1423. LISPSYM(uint32,"UINT32",ffi)
  1424. LISPSYM(sint32,"SINT32",ffi)
  1425. LISPSYM(uint64,"UINT64",ffi)
  1426. LISPSYM(sint64,"SINT64",ffi)
  1427. # LISPSYM(single_float,"SINGLE-FLOAT",ffi)
  1428. # LISPSYM(double_float,"DOUBLE-FLOAT",ffi)
  1429. LISPSYM(c_pointer,"C-POINTER",ffi)
  1430. LISPSYM(c_string,"C-STRING",ffi)
  1431. LISPSYM(c_struct,"C-STRUCT",ffi)
  1432. LISPSYM(c_union,"C-UNION",ffi)
  1433. LISPSYM(c_array,"C-ARRAY",ffi)
  1434. LISPSYM(c_array_max,"C-ARRAY-MAX",ffi)
  1435. LISPSYM(c_function,"C-FUNCTION",ffi)
  1436. LISPSYM(c_ptr,"C-PTR",ffi)
  1437. LISPSYM(c_ptr_null,"C-PTR-NULL",ffi)
  1438. LISPSYM(c_array_ptr,"C-ARRAY-PTR",ffi)
  1439. LISPSYM(fv_flag_readonly,"FV-FLAG-READONLY",ffi) # als Konstante in FFI
  1440. LISPSYM(fv_flag_malloc_free,"FV-FLAG-MALLOC-FREE",ffi) # als Konstante in FFI
  1441. LISPSYM(ff_flag_alloca,"FF-FLAG-ALLOCA",ffi) # als Konstante in FFI
  1442. LISPSYM(ff_flag_malloc_free,"FF-FLAG-MALLOC-FREE",ffi) # als Konstante in FFI
  1443. LISPSYM(ff_flag_out,"FF-FLAG-OUT",ffi) # als Konstante in FFI
  1444. LISPSYM(ff_flag_in_out,"FF-FLAG-IN-OUT",ffi) # als Konstante in FFI
  1445. LISPSYM(ff_language_asm,"FF-LANGUAGE-ASM",ffi) # als Konstante in FFI
  1446. LISPSYM(ff_language_c,"FF-LANGUAGE-C",ffi) # als Konstante in FFI
  1447. LISPSYM(ff_language_ansi_c,"FF-LANGUAGE-ANSI-C",ffi) # als Konstante in FFI
  1448. LISPSYM(foreign_call_in,"FOREIGN-CALL-IN",ffi) # für Fehlermeldung in FFI
  1449. #endif
  1450.