/src/constsym.d
D | 2067 lines | 1993 code | 10 blank | 64 comment | 31 complexity | 62b1e72f077913832076fb7d0bab100d MD5 | raw file
Possible License(s): LGPL-2.0, GPL-2.0, BSD-3-Clause
Large files files are truncated, but you can click here to view the full file
- /*
- * List of all symbols known to the C-program ("program constants")
- * Bruno Haible 1990-2006
- * Sam Steingold 1998-2008
- */
- /* The macro LISPSYM declares a LISP symbol.
- LISPSYM(name,printname,package)
- > name: C-name of the symbol.
- > printname: the printname of the symbol (a C string),
- if the string is not an ASCII string, the first character must be a space
- (thus no symbol name can start with a space -- see init_symbol_tab_*())
- > package: home-package of the symbol, either lisp or system or keyword.
- > it is exported automatically from package lisp. */
- /* expander for the declaration of the symbol table: */
- #define LISPSYM_A(name,printname,package) \
- symbol_ S_##name;
- /* expander for the initialization of the symbol table: */
- #ifdef TYPECODES
- #ifdef DEBUG_GCSAFETY
- #define LISPSYM_B(name,printname,package) \
- { S(name), unbound, unbound, unbound, NIL, NIL, NIL, },
- #else
- #define LISPSYM_B(name,printname,package) \
- { {S(name)}, unbound, unbound, unbound, NIL, NIL, NIL, },
- #endif
- #else
- #if defined(LINUX_NOEXEC_HEAPCODES) && 0
- #define LISPSYM_B(name,printname,package) \
- { S(name), xrecord_tfl(Rectype_Symbol,0,symbol_length,0), \
- unbound, unbound, unbound, NIL, NIL, NIL, unbound, },
- #else
- #define LISPSYM_B(name,printname,package) \
- { S(name), xrecord_tfl(Rectype_Symbol,0,symbol_length,0), \
- unbound, unbound, unbound, NIL, NIL, NIL, },
- #endif
- #endif
- #define LISPSYM_C(name,printname,package) printname,
- #define LISPSYM_D(name,printname,package) (uintB)enum_##package##_index,
- /* which expander is used must be specified in the main file. */
- /* The marker 'ABI' means that although the symbol is not exported from one
- of the public packages (COMMON-LISP, CLOS, EXT, FFI), it can be referred
- to from user compiled .fas files, because it occurs as part of macro
- expansions. */
- LISPSYM(nil,"NIL",lisp)
- LISPSYM(t,"T",lisp)
- /* FSUBRs in CONTROL: */
- LISPSYM(eval_when,"EVAL-WHEN",lisp)
- LISPSYM(quote,"QUOTE",lisp)
- LISPSYM(function,"FUNCTION",lisp)
- LISPSYM(setq,"SETQ",lisp)
- LISPSYM(psetq,"PSETQ",lisp)
- LISPSYM(progn,"PROGN",lisp)
- LISPSYM(prog1,"PROG1",lisp)
- LISPSYM(prog2,"PROG2",lisp)
- LISPSYM(let,"LET",lisp)
- LISPSYM(letstern,"LET*",lisp)
- LISPSYM(locally,"LOCALLY",lisp)
- LISPSYM(compiler_let,"COMPILER-LET",ext)
- LISPSYM(progv,"PROGV",lisp)
- LISPSYM(flet,"FLET",lisp)
- LISPSYM(labels,"LABELS",lisp)
- LISPSYM(macrolet,"MACROLET",lisp)
- LISPSYM(function_macro_let,"FUNCTION-MACRO-LET",system)
- LISPSYM(symbol_macrolet,"SYMBOL-MACROLET",lisp)
- LISPSYM(if,"IF",lisp)
- LISPSYM(when,"WHEN",lisp)
- LISPSYM(unless,"UNLESS",lisp)
- LISPSYM(cond,"COND",lisp)
- LISPSYM(case ,"CASE",lisp)
- LISPSYM(block,"BLOCK",lisp)
- LISPSYM(return_from,"RETURN-FROM",lisp)
- LISPSYM(tagbody,"TAGBODY",lisp)
- LISPSYM(go,"GO",lisp)
- LISPSYM(multiple_value_list,"MULTIPLE-VALUE-LIST",lisp)
- LISPSYM(multiple_value_call,"MULTIPLE-VALUE-CALL",lisp)
- LISPSYM(multiple_value_prog1,"MULTIPLE-VALUE-PROG1",lisp)
- LISPSYM(multiple_value_bind,"MULTIPLE-VALUE-BIND",lisp)
- LISPSYM(multiple_value_setq,"MULTIPLE-VALUE-SETQ",lisp)
- LISPSYM(catch,"CATCH",lisp)
- LISPSYM(unwind_protect,"UNWIND-PROTECT",lisp)
- LISPSYM(throw,"THROW",lisp)
- LISPSYM(declare,"DECLARE",lisp)
- LISPSYM(the,"THE",lisp)
- LISPSYM(load_time_value,"LOAD-TIME-VALUE",lisp)
- LISPSYM(and,"AND",lisp)
- LISPSYM(or,"OR",lisp)
- /* SUBRs: */
- /* ---------- SPVW ---------- */
- /* no SUBRs */
- /* ---------- EVAL ---------- */
- LISPSYM(funtabref,"%FUNTABREF",system)
- LISPSYM(subr_info,"SUBR-INFO",system)
- LISPSYM(add_implicit_block,"ADD-IMPLICIT-BLOCK",system)
- LISPSYM(function_block_name,"FUNCTION-BLOCK-NAME",system)
- /* ---------- ARRAY ---------- */
- LISPSYM(copy_simple_vector,"%COPY-SIMPLE-VECTOR",system) /* ABI */
- LISPSYM(vector,"VECTOR",lisp)
- LISPSYM(aref,"AREF",lisp)
- LISPSYM(store,"STORE",system) /* ABI */
- LISPSYM(svref,"SVREF",lisp)
- LISPSYM(svstore,"SVSTORE",system) /* ABI */
- LISPSYM(psvstore,"%SVSTORE",system) /* ABI */
- LISPSYM(row_major_aref,"ROW-MAJOR-AREF",lisp)
- LISPSYM(row_major_store,"ROW-MAJOR-STORE",system) /* ABI */
- LISPSYM(array_element_type,"ARRAY-ELEMENT-TYPE",lisp)
- LISPSYM(array_rank,"ARRAY-RANK",lisp)
- LISPSYM(array_dimension,"ARRAY-DIMENSION",lisp)
- LISPSYM(array_dimensions,"ARRAY-DIMENSIONS",lisp)
- LISPSYM(array_total_size,"ARRAY-TOTAL-SIZE",lisp)
- LISPSYM(array_in_bounds_p,"ARRAY-IN-BOUNDS-P",lisp)
- LISPSYM(array_row_major_index,"ARRAY-ROW-MAJOR-INDEX",lisp)
- LISPSYM(adjustable_array_p,"ADJUSTABLE-ARRAY-P",lisp)
- LISPSYM(array_displacement,"ARRAY-DISPLACEMENT",lisp)
- LISPSYM(bit,"BIT",lisp)
- LISPSYM(sbit,"SBIT",lisp)
- LISPSYM(bit_and,"BIT-AND",lisp)
- LISPSYM(bit_ior,"BIT-IOR",lisp)
- LISPSYM(bit_xor,"BIT-XOR",lisp)
- LISPSYM(bit_eqv,"BIT-EQV",lisp)
- LISPSYM(bit_nand,"BIT-NAND",lisp)
- LISPSYM(bit_nor,"BIT-NOR",lisp)
- LISPSYM(bit_andc1,"BIT-ANDC1",lisp)
- LISPSYM(bit_andc2,"BIT-ANDC2",lisp)
- LISPSYM(bit_orc1,"BIT-ORC1",lisp)
- LISPSYM(bit_orc2,"BIT-ORC2",lisp)
- LISPSYM(bit_not,"BIT-NOT",lisp)
- LISPSYM(array_has_fill_pointer_p,"ARRAY-HAS-FILL-POINTER-P",lisp)
- LISPSYM(fill_pointer,"FILL-POINTER",lisp)
- LISPSYM(set_fill_pointer,"SET-FILL-POINTER",system) /* ABI */
- LISPSYM(vector_push,"VECTOR-PUSH",lisp)
- LISPSYM(vector_pop,"VECTOR-POP",lisp)
- LISPSYM(vector_push_extend,"VECTOR-PUSH-EXTEND",lisp)
- LISPSYM(make_array,"MAKE-ARRAY",lisp)
- LISPSYM(adjust_array,"ADJUST-ARRAY",lisp)
- LISPSYM(vector_init,"VECTOR-INIT",system)
- LISPSYM(vector_upd,"VECTOR-UPD",system)
- LISPSYM(vector_endtest,"VECTOR-ENDTEST",system)
- LISPSYM(vector_fe_init,"VECTOR-FE-INIT",system)
- LISPSYM(vector_fe_upd,"VECTOR-FE-UPD",system)
- LISPSYM(vector_fe_endtest,"VECTOR-FE-ENDTEST",system)
- LISPSYM(vector_length,"VECTOR-LENGTH",system)
- LISPSYM(vector_init_start,"VECTOR-INIT-START",system)
- LISPSYM(vector_fe_init_end,"VECTOR-FE-INIT-END",system)
- LISPSYM(make_bit_vector,"MAKE-BIT-VECTOR",system)
- /* ---------- CHARSTRG ---------- */
- LISPSYM(string_info,"STRING-INFO",system)
- LISPSYM(standard_char_p,"STANDARD-CHAR-P",lisp)
- LISPSYM(graphic_char_p,"GRAPHIC-CHAR-P",lisp)
- LISPSYM(char_width,"CHAR-WIDTH",ext)
- LISPSYM(string_char_p,"STRING-CHAR-P",ext)
- #if (base_char_code_limit < char_code_limit)
- LISPSYM(base_char_p,"BASE-CHAR-P",system) /* ABI */
- #endif
- LISPSYM(alpha_char_p,"ALPHA-CHAR-P",lisp)
- LISPSYM(upper_case_p,"UPPER-CASE-P",lisp)
- LISPSYM(lower_case_p,"LOWER-CASE-P",lisp)
- LISPSYM(both_case_p,"BOTH-CASE-P",lisp)
- LISPSYM(digit_char_p,"DIGIT-CHAR-P",lisp)
- LISPSYM(alphanumericp,"ALPHANUMERICP",lisp)
- LISPSYM(char_eq,"CHAR=",lisp)
- LISPSYM(char_noteq,"CHAR/=",lisp)
- LISPSYM(char_less,"CHAR<",lisp)
- LISPSYM(char_greater,"CHAR>",lisp)
- LISPSYM(char_ltequal,"CHAR<=",lisp)
- LISPSYM(char_gtequal,"CHAR>=",lisp)
- LISPSYM(char_equal,"CHAR-EQUAL",lisp)
- LISPSYM(char_not_equal,"CHAR-NOT-EQUAL",lisp)
- LISPSYM(char_lessp,"CHAR-LESSP",lisp)
- LISPSYM(char_greaterp,"CHAR-GREATERP",lisp)
- LISPSYM(char_not_greaterp,"CHAR-NOT-GREATERP",lisp)
- LISPSYM(char_not_lessp,"CHAR-NOT-LESSP",lisp)
- LISPSYM(char_code,"CHAR-CODE",lisp)
- LISPSYM(code_char,"CODE-CHAR",lisp)
- LISPSYM(character,"CHARACTER",lisp)
- LISPSYM(char_upcase,"CHAR-UPCASE",lisp)
- LISPSYM(char_downcase,"CHAR-DOWNCASE",lisp)
- LISPSYM(digit_char,"DIGIT-CHAR",lisp)
- LISPSYM(char_int,"CHAR-INT",lisp)
- LISPSYM(int_char,"INT-CHAR",ext)
- LISPSYM(char_name,"CHAR-NAME",lisp)
- LISPSYM(char_invertcase,"CHAR-INVERTCASE",ext)
- LISPSYM(string_invertcase,"STRING-INVERTCASE",ext)
- LISPSYM(nstring_invertcase,"NSTRING-INVERTCASE",ext)
- LISPSYM(char,"CHAR",lisp)
- LISPSYM(schar,"SCHAR",lisp)
- LISPSYM(store_char,"STORE-CHAR",system) /* ABI */
- LISPSYM(store_schar,"STORE-SCHAR",system) /* ABI */
- LISPSYM(string_eq,"STRING=",lisp)
- LISPSYM(cs_string_eq,"STRING=",cs_lisp)
- LISPSYM(string_noteq,"STRING/=",lisp)
- LISPSYM(cs_string_noteq,"STRING/=",cs_lisp)
- LISPSYM(string_less,"STRING<",lisp)
- LISPSYM(cs_string_less,"STRING<",cs_lisp)
- LISPSYM(string_greater,"STRING>",lisp)
- LISPSYM(cs_string_greater,"STRING>",cs_lisp)
- LISPSYM(string_ltequal,"STRING<=",lisp)
- LISPSYM(cs_string_ltequal,"STRING<=",cs_lisp)
- LISPSYM(string_gtequal,"STRING>=",lisp)
- LISPSYM(cs_string_gtequal,"STRING>=",cs_lisp)
- LISPSYM(string_equal,"STRING-EQUAL",lisp)
- LISPSYM(string_not_equal,"STRING-NOT-EQUAL",lisp)
- LISPSYM(string_lessp,"STRING-LESSP",lisp)
- LISPSYM(string_greaterp,"STRING-GREATERP",lisp)
- LISPSYM(string_not_greaterp,"STRING-NOT-GREATERP",lisp)
- LISPSYM(string_not_lessp,"STRING-NOT-LESSP",lisp)
- LISPSYM(search_string_eq,"SEARCH-STRING=",system)
- LISPSYM(search_string_equal,"SEARCH-STRING-EQUAL",system)
- LISPSYM(make_string,"MAKE-STRING",lisp)
- LISPSYM(string_both_trim,"STRING-BOTH-TRIM",system)
- LISPSYM(string_width,"STRING-WIDTH",ext)
- LISPSYM(nstring_upcase,"NSTRING-UPCASE",lisp)
- LISPSYM(string_upcase,"STRING-UPCASE",lisp)
- LISPSYM(nstring_downcase,"NSTRING-DOWNCASE",lisp)
- LISPSYM(string_downcase,"STRING-DOWNCASE",lisp)
- LISPSYM(nstring_capitalize,"NSTRING-CAPITALIZE",lisp)
- LISPSYM(string_capitalize,"STRING-CAPITALIZE",lisp)
- LISPSYM(string,"STRING",lisp)
- LISPSYM(cs_string,"STRING",cs_lisp)
- LISPSYM(name_char,"NAME-CHAR",lisp)
- LISPSYM(substring,"SUBSTRING",ext)
- LISPSYM(string_concat,"STRING-CONCAT",ext)
- /* ---------- CONTROL ---------- */
- LISPSYM(exit,"%EXIT",system)
- LISPSYM(symbol_value,"SYMBOL-VALUE",lisp)
- LISPSYM(symbol_function,"SYMBOL-FUNCTION",lisp)
- LISPSYM(fdefinition,"FDEFINITION",lisp)
- LISPSYM(boundp,"BOUNDP",lisp)
- LISPSYM(fboundp,"FBOUNDP",lisp)
- LISPSYM(special_operator_p,"SPECIAL-OPERATOR-P",lisp)
- LISPSYM(set,"SET-SYMBOL-VALUE",system) /* ABI */
- LISPSYM(makunbound,"MAKUNBOUND",lisp)
- LISPSYM(fmakunbound,"FMAKUNBOUND",lisp)
- LISPSYM(apply,"APPLY",lisp)
- LISPSYM(funcall,"FUNCALL",lisp)
- LISPSYM(mapcar,"MAPCAR",lisp)
- LISPSYM(maplist,"MAPLIST",lisp)
- LISPSYM(mapc,"MAPC",lisp)
- LISPSYM(mapl,"MAPL",lisp)
- LISPSYM(mapcan,"MAPCAN",lisp)
- LISPSYM(mapcon,"MAPCON",lisp)
- LISPSYM(mapcap,"MAPCAP",ext)
- LISPSYM(maplap,"MAPLAP",ext)
- LISPSYM(values,"VALUES",lisp)
- LISPSYM(values_list,"VALUES-LIST",lisp)
- LISPSYM(driver,"DRIVER",system)
- LISPSYM(unwind_to_driver,"UNWIND-TO-DRIVER",system)
- LISPSYM(macro_function,"MACRO-FUNCTION",lisp)
- LISPSYM(macroexpand,"MACROEXPAND",lisp)
- LISPSYM(macroexpand_1,"MACROEXPAND-1",lisp)
- LISPSYM(proclaim,"PROCLAIM",lisp)
- LISPSYM(eval,"EVAL",lisp)
- LISPSYM(evalhook,"EVALHOOK",ext)
- LISPSYM(applyhook,"APPLYHOOK",ext)
- LISPSYM(constantp,"CONSTANTP",lisp)
- LISPSYM(global_symbol_macro_p,"GLOBAL-SYMBOL-MACRO-P",system)
- LISPSYM(function_side_effect,"FUNCTION-SIDE-EFFECT",system)
- LISPSYM(function_name_p,"FUNCTION-NAME-P",system)
- LISPSYM(check_function_name,"CHECK-FUNCTION-NAME",system)
- LISPSYM(check_symbol,"CHECK-SYMBOL",system)
- LISPSYM(parse_body,"PARSE-BODY",system)
- LISPSYM(keyword_test,"KEYWORD-TEST",system) /* ABI */
- LISPSYM(xor,"XOR",ext)
- /* ---------- DEBUG ---------- */
- LISPSYM(read_form,"READ-FORM",system)
- LISPSYM(read_eval_print,"READ-EVAL-PRINT",system)
- LISPSYM(initial_break_driver,"INITIAL-BREAK-DRIVER",system)
- LISPSYM(load,"LOAD",lisp)
- LISPSYM(frame_up,"FRAME-UP",system)
- LISPSYM(frame_down,"FRAME-DOWN",system)
- LISPSYM(the_frame,"THE-FRAME",system)
- LISPSYM(same_env_as,"SAME-ENV-AS",system)
- LISPSYM(eval_at,"EVAL-AT",system)
- LISPSYM(eval_frame_p,"EVAL-FRAME-P",system)
- LISPSYM(driver_frame_p,"DRIVER-FRAME-P",system)
- LISPSYM(trap_eval_frame,"TRAP-EVAL-FRAME",system)
- LISPSYM(redo_eval_frame,"REDO-EVAL-FRAME",system)
- LISPSYM(return_from_eval_frame,"RETURN-FROM-EVAL-FRAME",system)
- LISPSYM(describe_frame,"DESCRIBE-FRAME",system)
- LISPSYM(show_stack,"SHOW-STACK",ext)
- LISPSYM(crash,"CRASH",system)
- LISPSYM(proom,"%ROOM",system)
- LISPSYM(gc,"GC",ext)
- /* ---------- ENCODING ---------- */
- LISPSYM(make_encoding,"MAKE-ENCODING",ext)
- LISPSYM(encodingp,"ENCODINGP",system) /* ABI */
- LISPSYM(charset_typep,"CHARSET-TYPEP",system)
- LISPSYM(encoding_line_terminator,"ENCODING-LINE-TERMINATOR",ext)
- #ifdef UNICODE
- LISPSYM(encoding_charset,"ENCODING-CHARSET",ext)
- LISPSYM(charset_range,"CHARSET-RANGE",system)
- #endif
- LISPSYM(default_file_encoding,"DEFAULT-FILE-ENCODING",system) /* ABI */
- LISPSYM(set_default_file_encoding,"SET-DEFAULT-FILE-ENCODING",system) /* ABI */
- #ifdef UNICODE
- LISPSYM(pathname_encoding,"PATHNAME-ENCODING",system) /* ABI */
- LISPSYM(set_pathname_encoding,"SET-PATHNAME-ENCODING",system) /* ABI */
- LISPSYM(terminal_encoding,"TERMINAL-ENCODING",system) /* ABI */
- LISPSYM(set_terminal_encoding,"SET-TERMINAL-ENCODING",system) /* ABI */
- #if defined(HAVE_FFI)
- LISPSYM(foreign_encoding,"FOREIGN-ENCODING",system) /* ABI */
- LISPSYM(set_foreign_encoding,"SET-FOREIGN-ENCODING",system) /* ABI */
- #endif
- LISPSYM(misc_encoding,"MISC-ENCODING",system) /* ABI */
- LISPSYM(set_misc_encoding,"SET-MISC-ENCODING",system) /* ABI */
- #endif
- LISPSYM(convert_string_from_bytes,"CONVERT-STRING-FROM-BYTES",ext)
- LISPSYM(convert_string_to_bytes,"CONVERT-STRING-TO-BYTES",ext)
- /* ---------- ERROR ---------- */
- LISPSYM(error,"ERROR",lisp)
- LISPSYM(defclcs,"%DEFCLCS",system)
- LISPSYM(cerror_of_type,"CERROR-OF-TYPE",system)
- LISPSYM(error_of_type,"ERROR-OF-TYPE",system) /* ABI */
- LISPSYM(invoke_debugger,"INVOKE-DEBUGGER",lisp)
- LISPSYM(clcs_signal,"SIGNAL",lisp)
- /* ---------- HASHTABL ---------- */
- LISPSYM(make_hash_table,"MAKE-HASH-TABLE",lisp)
- LISPSYM(gethash,"GETHASH",lisp)
- LISPSYM(puthash,"PUTHASH",system) /* ABI */
- LISPSYM(remhash,"REMHASH",lisp)
- LISPSYM(maphash,"MAPHASH",lisp)
- LISPSYM(clrhash,"CLRHASH",lisp)
- LISPSYM(hash_table_count,"HASH-TABLE-COUNT",lisp)
- LISPSYM(hash_table_rehash_size,"HASH-TABLE-REHASH-SIZE",lisp)
- LISPSYM(hash_table_rehash_threshold,"HASH-TABLE-REHASH-THRESHOLD",lisp)
- LISPSYM(hash_table_size,"HASH-TABLE-SIZE",lisp)
- LISPSYM(hash_table_test,"HASH-TABLE-TEST",lisp)
- LISPSYM(fasthash_stable_p,"FASTHASH-STABLE-P",system)
- LISPSYM(stablehash_stable_p,"STABLEHASH-STABLE-P",system)
- LISPSYM(hash_table_iterator,"HASH-TABLE-ITERATOR",system) /* ABI */
- LISPSYM(hash_table_iterate,"HASH-TABLE-ITERATE",system) /* ABI */
- LISPSYM(hash_table_weak_p,"HASH-TABLE-WEAK-P",ext)
- LISPSYM(set_hash_table_weak_p,"(SETF HASH-TABLE-WEAK-P)",system) /* ABI */
- LISPSYM(hash_table_warn_if_needs_rehash_after_gc,"HASH-TABLE-WARN-IF-NEEDS-REHASH-AFTER-GC",ext)
- LISPSYM(set_hash_table_warn_if_needs_rehash_after_gc,"(SETF HASH-TABLE-WARN-IF-NEEDS-REHASH-AFTER-GC)",system) /* ABI */
- LISPSYM(class_gethash,"CLASS-GETHASH",clos)
- LISPSYM(class_tuple_gethash,"CLASS-TUPLE-GETHASH",clos)
- LISPSYM(sxhash,"SXHASH",lisp)
- /* ---------- IO ---------- */
- LISPSYM(defio,"%DEFIO",system)
- LISPSYM(copy_readtable,"COPY-READTABLE",lisp)
- LISPSYM(set_syntax_from_char,"SET-SYNTAX-FROM-CHAR",lisp)
- LISPSYM(set_macro_character,"SET-MACRO-CHARACTER",lisp)
- LISPSYM(get_macro_character,"GET-MACRO-CHARACTER",lisp)
- LISPSYM(make_dispatch_macro_character,"MAKE-DISPATCH-MACRO-CHARACTER",lisp)
- LISPSYM(set_dispatch_macro_character,"SET-DISPATCH-MACRO-CHARACTER",lisp)
- LISPSYM(get_dispatch_macro_character,"GET-DISPATCH-MACRO-CHARACTER",lisp)
- LISPSYM(readtable_case,"READTABLE-CASE",lisp)
- LISPSYM(set_readtable_case,"SET-READTABLE-CASE",system) /* ABI */
- LISPSYM(lpar_reader,"LPAR-READER",system)
- LISPSYM(rpar_reader,"RPAR-READER",system)
- LISPSYM(quote_reader,"QUOTE-READER",system)
- LISPSYM(function_reader,"FUNCTION-READER",system)
- LISPSYM(string_reader,"STRING-READER",system)
- LISPSYM(line_comment_reader,"LINE-COMMENT-READER",system)
- LISPSYM(comment_reader,"COMMENT-READER",system)
- LISPSYM(char_reader,"CHAR-READER",system)
- LISPSYM(binary_reader,"BINARY-READER",system)
- LISPSYM(octal_reader,"OCTAL-READER",system)
- LISPSYM(hexadecimal_reader,"HEXADECIMAL-READER",system)
- LISPSYM(radix_reader,"RADIX-READER",system)
- LISPSYM(complex_reader,"COMPLEX-READER",system)
- LISPSYM(uninterned_reader,"UNINTERNED-READER",system)
- LISPSYM(bit_vector_reader,"BIT-VECTOR-READER",system)
- LISPSYM(vector_reader,"VECTOR-READER",system)
- LISPSYM(array_reader,"ARRAY-READER",system)
- LISPSYM(read_eval_reader,"READ-EVAL-READER",system)
- LISPSYM(load_eval_reader,"LOAD-EVAL-READER",system)
- LISPSYM(label_definition_reader,"LABEL-DEFINIION-READER",system)
- LISPSYM(label_reference_reader,"LABEL-REFERENCE-READER",system)
- LISPSYM(not_readable_reader,"NOT-READABLE-READER",system)
- LISPSYM(syntax_error_reader,"SYNTAX-ERROR-READER",system)
- LISPSYM(featurep,"FEATUREP",ext)
- LISPSYM(feature_reader,"FEATURE-READER",system)
- LISPSYM(not_feature_reader,"NOT-FEATURE-READER",system)
- LISPSYM(structure_reader,"STRUCTURE-READER",system)
- LISPSYM(closure_reader,"CLOSURE-READER",system)
- LISPSYM(clisp_pathname_reader,"CLISP-PATHNAME-READER",system)
- LISPSYM(ansi_pathname_reader,"ANSI-PATHNAME-READER",system)
- #if defined(UNIX) || defined(WIN32_NATIVE)
- LISPSYM(unix_executable_reader,"UNIX-EXECUTABLE-READER",system)
- #endif
- LISPSYM(read,"READ",lisp)
- LISPSYM(read_preserving_whitespace,"READ-PRESERVING-WHITESPACE",lisp)
- LISPSYM(read_delimited_list,"READ-DELIMITED-LIST",lisp)
- LISPSYM(read_line,"READ-LINE",lisp)
- LISPSYM(read_char,"READ-CHAR",lisp)
- LISPSYM(unread_char,"UNREAD-CHAR",lisp)
- LISPSYM(peek_char,"PEEK-CHAR",lisp)
- LISPSYM(listen,"LISTEN",lisp)
- LISPSYM(read_char_will_hang_p,"READ-CHAR-WILL-HANG-P",ext)
- LISPSYM(read_char_no_hang,"READ-CHAR-NO-HANG",lisp)
- LISPSYM(clear_input,"CLEAR-INPUT",lisp)
- LISPSYM(read_from_string,"READ-FROM-STRING",lisp)
- LISPSYM(parse_integer,"PARSE-INTEGER",lisp)
- LISPSYM(print_structure,"PRINT-STRUCTURE",system) /* ABI */
- LISPSYM(write,"WRITE",lisp)
- LISPSYM(prin1,"PRIN1",lisp)
- LISPSYM(print,"PRINT",lisp)
- LISPSYM(pprint,"PPRINT",lisp)
- LISPSYM(pprint_dispatch,"PPRINT-DISPATCH",lisp) /* used in io.d */
- LISPSYM(pprint_indent,"PPRINT-INDENT",lisp)
- LISPSYM(pprint_newline,"PPRINT-NEWLINE",lisp)
- LISPSYM(ppprint_logical_block,"%PPRINT-LOGICAL-BLOCK",system) /* ABI */
- LISPSYM(pcirclep,"%CIRCLEP",system) /* for PPRINT-POP */
- LISPSYM(princ,"PRINC",lisp)
- LISPSYM(write_to_string,"WRITE-TO-STRING",lisp)
- LISPSYM(prin1_to_string,"PRIN1-TO-STRING",lisp)
- LISPSYM(princ_to_string,"PRINC-TO-STRING",lisp)
- LISPSYM(write_char,"WRITE-CHAR",lisp)
- LISPSYM(write_string,"WRITE-STRING",lisp)
- LISPSYM(write_line,"WRITE-LINE",lisp)
- LISPSYM(terpri,"TERPRI",lisp)
- LISPSYM(fresh_line,"FRESH-LINE",lisp)
- LISPSYM(elastic_newline,"ELASTIC-NEWLINE",ext)
- LISPSYM(finish_output,"FINISH-OUTPUT",lisp)
- LISPSYM(force_output,"FORCE-OUTPUT",lisp)
- LISPSYM(clear_output,"CLEAR-OUTPUT",lisp)
- LISPSYM(write_unreadable,"WRITE-UNREADABLE",system) /* ABI */
- LISPSYM(line_position,"LINE-POSITION",system) /* ABI */
- LISPSYM(whitespacep,"WHITESPACEP",system)
- LISPSYM(write_spaces,"WRITE-SPACES",system)
- /* ---------- LIST ---------- */
- LISPSYM(car,"CAR",lisp)
- LISPSYM(cdr,"CDR",lisp)
- LISPSYM(caar,"CAAR",lisp)
- LISPSYM(cadr,"CADR",lisp)
- LISPSYM(cdar,"CDAR",lisp)
- LISPSYM(cddr,"CDDR",lisp)
- LISPSYM(caaar,"CAAAR",lisp)
- LISPSYM(caadr,"CAADR",lisp)
- LISPSYM(cadar,"CADAR",lisp)
- LISPSYM(caddr,"CADDR",lisp)
- LISPSYM(cdaar,"CDAAR",lisp)
- LISPSYM(cdadr,"CDADR",lisp)
- LISPSYM(cddar,"CDDAR",lisp)
- LISPSYM(cdddr,"CDDDR",lisp)
- LISPSYM(caaaar,"CAAAAR",lisp)
- LISPSYM(caaadr,"CAAADR",lisp)
- LISPSYM(caadar,"CAADAR",lisp)
- LISPSYM(caaddr,"CAADDR",lisp)
- LISPSYM(cadaar,"CADAAR",lisp)
- LISPSYM(cadadr,"CADADR",lisp)
- LISPSYM(caddar,"CADDAR",lisp)
- LISPSYM(cadddr,"CADDDR",lisp)
- LISPSYM(cdaaar,"CDAAAR",lisp)
- LISPSYM(cdaadr,"CDAADR",lisp)
- LISPSYM(cdadar,"CDADAR",lisp)
- LISPSYM(cdaddr,"CDADDR",lisp)
- LISPSYM(cddaar,"CDDAAR",lisp)
- LISPSYM(cddadr,"CDDADR",lisp)
- LISPSYM(cdddar,"CDDDAR",lisp)
- LISPSYM(cddddr,"CDDDDR",lisp)
- LISPSYM(cons,"CONS",lisp)
- LISPSYM(tree_equal,"TREE-EQUAL",lisp)
- LISPSYM(endp,"ENDP",lisp)
- LISPSYM(list_length,"LIST-LENGTH",lisp)
- LISPSYM(list_length_dotted,"LIST-LENGTH-DOTTED",ext)
- LISPSYM(list_length_proper,"LIST-LENGTH-PROPER",ext)
- LISPSYM(list_length_in_bounds_p,"LIST-LENGTH-IN-BOUNDS-P",system)
- LISPSYM(proper_list_length_in_bounds_p,"PROPER-LIST-LENGTH-IN-BOUNDS-P",system)
- LISPSYM(nth,"NTH",lisp)
- LISPSYM(first,"FIRST",lisp)
- LISPSYM(second,"SECOND",lisp)
- LISPSYM(third,"THIRD",lisp)
- LISPSYM(fourth,"FOURTH",lisp)
- LISPSYM(fifth,"FIFTH",lisp)
- LISPSYM(sixth,"SIXTH",lisp)
- LISPSYM(seventh,"SEVENTH",lisp)
- LISPSYM(eighth,"EIGHTH",lisp)
- LISPSYM(ninth,"NINTH",lisp)
- LISPSYM(tenth,"TENTH",lisp)
- LISPSYM(rest,"REST",lisp)
- LISPSYM(nthcdr,"NTHCDR",lisp)
- LISPSYM(conses_p,"CONSES-P",system) /* ABI */
- LISPSYM(last,"LAST",lisp)
- LISPSYM(list,"LIST",lisp)
- LISPSYM(liststar,"LIST*",lisp)
- LISPSYM(make_list,"MAKE-LIST",lisp)
- LISPSYM(append,"APPEND",lisp)
- LISPSYM(copy_list,"COPY-LIST",lisp)
- LISPSYM(copy_alist,"COPY-ALIST",lisp)
- LISPSYM(copy_tree,"COPY-TREE",lisp)
- LISPSYM(revappend,"REVAPPEND",lisp)
- LISPSYM(nconc,"NCONC",lisp)
- LISPSYM(nreconc,"NRECONC",lisp)
- LISPSYM(list_nreverse,"LIST-NREVERSE",system) /* ABI */
- LISPSYM(butlast,"BUTLAST",lisp)
- LISPSYM(nbutlast,"NBUTLAST",lisp)
- LISPSYM(ldiff,"LDIFF",lisp)
- LISPSYM(rplaca,"RPLACA",lisp)
- LISPSYM(prplaca,"%RPLACA",system) /* ABI */
- LISPSYM(rplacd,"RPLACD",lisp)
- LISPSYM(prplacd,"%RPLACD",system) /* ABI */
- LISPSYM(subst,"SUBST",lisp)
- LISPSYM(subst_if,"SUBST-IF",lisp)
- LISPSYM(subst_if_not,"SUBST-IF-NOT",lisp)
- LISPSYM(nsubst,"NSUBST",lisp)
- LISPSYM(nsubst_if,"NSUBST-IF",lisp)
- LISPSYM(nsubst_if_not,"NSUBST-IF-NOT",lisp)
- LISPSYM(sublis,"SUBLIS",lisp)
- LISPSYM(nsublis,"NSUBLIS",lisp)
- LISPSYM(memq,"MEMQ",system) /* ABI */
- LISPSYM(member,"MEMBER",lisp)
- LISPSYM(member_if,"MEMBER-IF",lisp)
- LISPSYM(member_if_not,"MEMBER-IF-NOT",lisp)
- LISPSYM(tailp,"TAILP",lisp)
- LISPSYM(adjoin,"ADJOIN",lisp)
- LISPSYM(acons,"ACONS",lisp)
- LISPSYM(pairlis,"PAIRLIS",lisp)
- LISPSYM(assoc,"ASSOC",lisp)
- LISPSYM(assoc_if,"ASSOC-IF",lisp)
- LISPSYM(assoc_if_not,"ASSOC-IF-NOT",lisp)
- LISPSYM(rassoc,"RASSOC",lisp)
- LISPSYM(rassoc_if,"RASSOC-IF",lisp)
- LISPSYM(rassoc_if_not,"RASSOC-IF-NOT",lisp)
- LISPSYM(list_upd,"LIST-UPD",system)
- LISPSYM(list_endtest,"LIST-ENDTEST",system)
- LISPSYM(list_fe_init,"LIST-FE-INIT",system)
- LISPSYM(list_access,"LIST-ACCESS",system)
- LISPSYM(list_access_set,"LIST-ACCESS-SET",system)
- LISPSYM(list_elt,"LIST-ELT",system)
- LISPSYM(list_set_elt,"LIST-SET-ELT",system)
- LISPSYM(list_init_start,"LIST-INIT-START",system)
- LISPSYM(list_fe_init_end,"LIST-FE-INIT-END",system)
- /* ---------- MISC ---------- */
- LISPSYM(lisp_implementation_type,"LISP-IMPLEMENTATION-TYPE",lisp)
- LISPSYM(lisp_implementation_version,"LISP-IMPLEMENTATION-VERSION",lisp)
- LISPSYM(version,"VERSION",system)
- #ifdef MACHINE_KNOWN
- LISPSYM(machinetype,"MACHINE-TYPE",lisp)
- LISPSYM(machine_version,"MACHINE-VERSION",lisp)
- #endif
- #ifdef HAVE_ENVIRONMENT
- LISPSYM(get_env,"GETENV",ext)
- LISPSYM(set_env,"SETENV",system)
- #endif
- #ifdef WIN32_NATIVE
- LISPSYM(registry,"REGISTRY",system)
- #endif
- LISPSYM(software_type,"SOFTWARE-TYPE",lisp)
- LISPSYM(software_version,"SOFTWARE-VERSION",lisp)
- LISPSYM(identity,"IDENTITY",lisp)
- LISPSYM(address_of,"ADDRESS-OF",system)
- LISPSYM(code_address_of,"CODE-ADDRESS-OF",system)
- LISPSYM(process_id,"PROCESS-ID",system)
- LISPSYM(ansi,"ANSI",system) /* ABI */
- LISPSYM(set_ansi,"SET-ANSI",system) /* ABI */
- LISPSYM(module_info,"MODULE-INFO",ext)
- #if defined(DYNAMIC_FFI) && (defined(WIN32_NATIVE) || defined(HAVE_DLOPEN))
- LISPSYM(Kffi,"FFI",keyword)
- #endif
- LISPSYM(argv,"ARGV",ext)
- /* ---------- I18N ---------- */
- LISPSYM(current_language,"CURRENT-LANGUAGE",system) /* ABI */
- LISPSYM(set_current_language,"SET-CURRENT-LANGUAGE",system) /* ABI */
- LISPSYM(text,"TEXT",system)
- /* ---------- SOCKET ---------- */
- #ifdef MACHINE_KNOWN
- LISPSYM(machine_instance,"MACHINE-INSTANCE",lisp)
- #endif
- /* ---------- TIME ---------- */
- LISPSYM(get_internal_real_time,"GET-INTERNAL-REAL-TIME",lisp)
- LISPSYM(get_internal_run_time,"GET-INTERNAL-RUN-TIME",lisp)
- LISPSYM(get_universal_time,"GET-UNIVERSAL-TIME",lisp)
- #if defined(UNIX) || defined(WIN32)
- LISPSYM(default_time_zone,"DEFAULT-TIME-ZONE",system)
- #endif
- LISPSYM(sleep,"%SLEEP",system)
- LISPSYM(time,"%%TIME",system) /* ABI */
- LISPSYM(delta4,"DELTA4",system)
- /* ---------- PACKAGE ---------- */
- LISPSYM(make_symbol,"MAKE-SYMBOL",lisp)
- LISPSYM(find_package,"FIND-PACKAGE",lisp)
- LISPSYM(pfind_package,"%FIND-PACKAGE",system) /* ABI */
- LISPSYM(package_name,"PACKAGE-NAME",lisp)
- LISPSYM(package_nicknames,"PACKAGE-NICKNAMES",lisp)
- LISPSYM(rename_package,"RENAME-PACKAGE",lisp)
- LISPSYM(package_use_list,"PACKAGE-USE-LIST",lisp)
- LISPSYM(package_used_by_list,"PACKAGE-USED-BY-LIST",lisp)
- LISPSYM(package_shadowing_symbols,"PACKAGE-SHADOWING-SYMBOLS",lisp)
- LISPSYM(package_lock,"PACKAGE-LOCK",ext)
- LISPSYM(package_shortest_name,"PACKAGE-SHORTEST-NAME",ext)
- LISPSYM(package_case_sensitive_p,"PACKAGE-CASE-SENSITIVE-P",ext)
- LISPSYM(package_case_inverted_p,"PACKAGE-CASE-INVERTED-P",ext)
- LISPSYM(package_documentation,"PACKAGE-DOCUMENTATION",system) /* ABI */
- LISPSYM(set_package_documentation,"(SETF PACKAGE-DOCUMENTATION)",system) /* ABI */
- LISPSYM(set_package_lock,"(SETF PACKAGE-LOCK)",system) /* ABI */
- LISPSYM(set_package_case_inverted_p,"(SETF PACKAGE-CASE-INVERTED-P)",system)
- LISPSYM(set_package_case_sensitive_p,"(SETF PACKAGE-CASE-SENSITIVE-P)",system)
- LISPSYM(symbol_value_lock,"SYMBOL-VALUE-LOCK",system)
- LISPSYM(check_package_lock,"CHECK-PACKAGE-LOCK",system)
- LISPSYM(list_all_packages,"LIST-ALL-PACKAGES",lisp)
- LISPSYM(intern,"INTERN",lisp)
- LISPSYM(cs_intern,"INTERN",cs_lisp)
- LISPSYM(find_symbol,"FIND-SYMBOL",lisp)
- LISPSYM(cs_find_symbol,"FIND-SYMBOL",cs_lisp)
- LISPSYM(unintern,"UNINTERN",lisp)
- LISPSYM(export,"EXPORT",lisp)
- LISPSYM(unexport,"UNEXPORT",lisp)
- LISPSYM(re_export,"RE-EXPORT",ext)
- LISPSYM(import,"IMPORT",lisp)
- LISPSYM(shadowing_import,"SHADOWING-IMPORT",lisp)
- LISPSYM(shadow,"SHADOW",lisp)
- LISPSYM(cs_shadow,"SHADOW",cs_lisp)
- LISPSYM(use_package,"USE-PACKAGE",lisp)
- LISPSYM(unuse_package,"UNUSE-PACKAGE",lisp)
- LISPSYM(make_package,"MAKE-PACKAGE",lisp)
- LISPSYM(cs_make_package,"MAKE-PACKAGE",cs_lisp)
- LISPSYM(pin_package,"%IN-PACKAGE",system) /* ABI */
- /* LISPSYM(in_package,"IN-PACKAGE",lisp) */
- LISPSYM(delete_package,"DELETE-PACKAGE",lisp)
- LISPSYM(find_all_symbols,"FIND-ALL-SYMBOLS",lisp)
- LISPSYM(cs_find_all_symbols,"FIND-ALL-SYMBOLS",cs_lisp)
- LISPSYM(map_symbols,"MAP-SYMBOLS",system) /* ABI */
- LISPSYM(map_external_symbols,"MAP-EXTERNAL-SYMBOLS",system) /* ABI */
- LISPSYM(map_all_symbols,"MAP-ALL-SYMBOLS",system) /* ABI */
- LISPSYM(package_iterator,"PACKAGE-ITERATOR",system) /* ABI */
- LISPSYM(package_iterate,"PACKAGE-ITERATE",system) /* ABI */
- /* ---------- PATHNAME ---------- */
- LISPSYM(parse_namestring,"PARSE-NAMESTRING",lisp)
- LISPSYM(pathname,"PATHNAME",lisp)
- LISPSYM(pathnamehost,"PATHNAME-HOST",lisp)
- LISPSYM(pathnamedevice,"PATHNAME-DEVICE",lisp)
- LISPSYM(pathnamedirectory,"PATHNAME-DIRECTORY",lisp)
- LISPSYM(pathnamename,"PATHNAME-NAME",lisp)
- LISPSYM(pathnametype,"PATHNAME-TYPE",lisp)
- LISPSYM(pathnameversion,"PATHNAME-VERSION",lisp)
- #ifdef LOGICAL_PATHNAMES
- LISPSYM(logical_pathname,"LOGICAL-PATHNAME",lisp)
- LISPSYM(translate_logical_pathname,"TRANSLATE-LOGICAL-PATHNAME",lisp)
- #endif
- LISPSYM(file_namestring,"FILE-NAMESTRING",lisp)
- LISPSYM(directory_namestring,"DIRECTORY-NAMESTRING",lisp)
- LISPSYM(host_namestring,"HOST-NAMESTRING",lisp)
- LISPSYM(merge_pathnames,"MERGE-PATHNAMES",lisp)
- LISPSYM(enough_namestring,"ENOUGH-NAMESTRING",lisp)
- LISPSYM(make_pathname,"MAKE-PATHNAME",lisp)
- #ifdef LOGICAL_PATHNAMES
- LISPSYM(make_logical_pathname,"MAKE-LOGICAL-PATHNAME",system)
- #endif
- #ifdef USER_HOMEDIR
- LISPSYM(user_homedir_pathname,"USER-HOMEDIR-PATHNAME",lisp)
- #endif
- LISPSYM(wild_pathname_p,"WILD-PATHNAME-P",lisp)
- LISPSYM(pathname_match_p,"PATHNAME-MATCH-P",lisp)
- LISPSYM(translate_pathname,"TRANSLATE-PATHNAME",lisp)
- LISPSYM(absolute_pathname,"ABSOLUTE-PATHNAME",ext)
- LISPSYM(namestring,"NAMESTRING",lisp)
- LISPSYM(truename,"TRUENAME",lisp)
- LISPSYM(probe_file,"PROBE-FILE",lisp)
- LISPSYM(probe_directory,"PROBE-DIRECTORY",ext)
- LISPSYM(delete_file,"DELETE-FILE",lisp)
- LISPSYM(rename_file,"RENAME-FILE",lisp)
- LISPSYM(file_error,"FILE-ERROR",lisp)
- LISPSYM(open,"OPEN",lisp)
- LISPSYM(directory,"DIRECTORY",lisp)
- LISPSYM(cd,"CD",ext)
- LISPSYM(make_directory,"MAKE-DIRECTORY",ext)
- LISPSYM(delete_directory,"DELETE-DIRECTORY",ext)
- LISPSYM(rename_directory,"RENAME-DIRECTORY",ext)
- LISPSYM(ensure_directories_exist,"ENSURE-DIRECTORIES-EXIST",lisp)
- LISPSYM(file_write_date,"FILE-WRITE-DATE",lisp)
- LISPSYM(file_author,"FILE-AUTHOR",lisp)
- #ifdef UNIX
- LISPSYM(execute,"EXECUTE",ext)
- #endif
- #ifdef HAVE_SHELL
- #ifdef WIN32_NATIVE
- LISPSYM(shell_name,"SHELL-NAME",system)
- #endif
- LISPSYM(shell,"SHELL",ext)
- #endif
- #if defined(UNIX) || defined(WIN32_NATIVE)
- LISPSYM(launch,"LAUNCH",ext)
- #endif
- #if defined(WIN32_NATIVE)
- LISPSYM(shell_execute,"SHELL-EXECUTE",ext)
- #endif
- LISPSYM(savemem,"SAVEMEM",system)
- #if defined(WIN32_NATIVE) || defined(UNIX_CYGWIN32)
- LISPSYM(device_prefix,"*DEVICE-PREFIX*",custom)
- #endif
- #ifdef DYNAMIC_MODULES
- LISPSYM(dynload_modules,"DYNLOAD-MODULES",system)
- #endif
- LISPSYM(program_name,"PROGRAM-NAME",system)
- LISPSYM(lib_directory,"LIB-DIRECTORY",system) /* ABI */
- LISPSYM(set_lib_directory,"SET-LIB-DIRECTORY",system) /* ABI */
- /* ---------- PREDTYPE ---------- */
- LISPSYM(eq,"EQ",lisp)
- LISPSYM(eql,"EQL",lisp)
- LISPSYM(equal,"EQUAL",lisp)
- LISPSYM(equalp,"EQUALP",lisp)
- LISPSYM(consp,"CONSP",lisp)
- LISPSYM(atom,"ATOM",lisp)
- LISPSYM(symbolp,"SYMBOLP",lisp)
- LISPSYM(stringp,"STRINGP",lisp)
- LISPSYM(numberp,"NUMBERP",lisp)
- LISPSYM(compiled_function_p,"COMPILED-FUNCTION-P",lisp)
- LISPSYM(pcompiled_function_p,"%COMPILED-FUNCTION-P",system)
- LISPSYM(null,"NULL",lisp)
- LISPSYM(not,"NOT",lisp)
- LISPSYM(closurep,"CLOSUREP",system)
- LISPSYM(listp,"LISTP",lisp)
- LISPSYM(proper_list_p,"PROPER-LIST-P",ext)
- LISPSYM(bytep,"BYTEP",system) /* ABI */
- LISPSYM(integerp,"INTEGERP",lisp)
- LISPSYM(fixnump,"FIXNUMP",system) /* ABI */
- LISPSYM(rationalp,"RATIONALP",lisp)
- LISPSYM(floatp,"FLOATP",lisp)
- LISPSYM(short_float_p,"SHORT-FLOAT-P",system) /* ABI */
- LISPSYM(single_float_p,"SINGLE-FLOAT-P",system) /* ABI */
- LISPSYM(double_float_p,"DOUBLE-FLOAT-P",system) /* ABI */
- LISPSYM(long_float_p,"LONG-FLOAT-P",system) /* ABI */
- LISPSYM(realp,"REALP",lisp)
- LISPSYM(complexp,"COMPLEXP",lisp)
- LISPSYM(streamp,"STREAMP",lisp)
- LISPSYM(built_in_stream_p,"BUILT-IN-STREAM-P",system)
- LISPSYM(random_state_p,"RANDOM-STATE-P",lisp)
- LISPSYM(readtablep,"READTABLEP",lisp)
- LISPSYM(hash_table_p,"HASH-TABLE-P",lisp)
- LISPSYM(pathnamep,"PATHNAMEP",lisp)
- LISPSYM(logical_pathname_p,"LOGICAL-PATHNAME-P",system) /* ABI */
- LISPSYM(characterp,"CHARACTERP",lisp)
- LISPSYM(functionp,"FUNCTIONP",lisp)
- LISPSYM(packagep,"PACKAGEP",lisp)
- LISPSYM(arrayp,"ARRAYP",lisp)
- LISPSYM(simple_array_p,"SIMPLE-ARRAY-P",system) /* ABI */
- LISPSYM(bit_vector_p,"BIT-VECTOR-P",lisp)
- LISPSYM(vectorp,"VECTORP",lisp)
- LISPSYM(simple_vector_p,"SIMPLE-VECTOR-P",lisp)
- LISPSYM(simple_string_p,"SIMPLE-STRING-P",lisp)
- LISPSYM(simple_bit_vector_p,"SIMPLE-BIT-VECTOR-P",lisp)
- LISPSYM(type_of,"TYPE-OF",lisp)
- LISPSYM(defclos,"%DEFCLOS",clos)
- LISPSYM(potential_class_p,"POTENTIAL-CLASS-P",clos) /* ABI */
- LISPSYM(defined_class_p,"DEFINED-CLASS-P",clos) /* ABI */
- LISPSYM(class_of,"CLASS-OF",clos)
- LISPSYM(find_class,"FIND-CLASS",clos)
- LISPSYM(typep_class,"TYPEP-CLASS",clos) /* ABI */
- LISPSYM(expand_deftype,"EXPAND-DEFTYPE",system)
- LISPSYM(coerce,"COERCE",lisp)
- LISPSYM(note_new_structure_class,"NOTE-NEW-STRUCTURE-CLASS",system)
- LISPSYM(note_new_standard_class,"NOTE-NEW-STANDARD-CLASS",system)
- LISPSYM(heap_statistics,"HEAP-STATISTICS",system)
- LISPSYM(gc_statistics,"GC-STATISTICS",system) /* ABI */
- LISPSYM(list_statistics,"LIST-STATISTICS",system)
- LISPSYM(heap_statistics_statistics,"HEAP-STATISTICS-STATISTICS",system)
- LISPSYM(gc_statistics_statistics,"GC-STATISTICS-STATISTICS",system)
- /* ---------- RECORD ---------- */
- LISPSYM(record_ref,"%RECORD-REF",system)
- LISPSYM(record_store,"%RECORD-STORE",system)
- LISPSYM(record_length,"%RECORD-LENGTH",system)
- LISPSYM(pstructure_ref,"%%STRUCTURE-REF",system)
- LISPSYM(structure_ref,"%STRUCTURE-REF",system) /* ABI */
- LISPSYM(structure_store,"%STRUCTURE-STORE",system) /* ABI */
- LISPSYM(make_structure,"%MAKE-STRUCTURE",system) /* ABI */
- LISPSYM(copy_structure,"COPY-STRUCTURE",lisp)
- LISPSYM(structure_type_p,"%STRUCTURE-TYPE-P",system) /* ABI */
- LISPSYM(closure_name,"CLOSURE-NAME",system)
- LISPSYM(set_closure_name,"(SETF CLOSURE-NAME)",system)
- LISPSYM(closure_codevec,"CLOSURE-CODEVEC",system)
- LISPSYM(closure_consts,"CLOSURE-CONSTS",system)
- LISPSYM(closure_const,"CLOSURE-CONST",system)
- LISPSYM(set_closure_const,"SET-CLOSURE-CONST",system)
- LISPSYM(make_closure,"MAKE-CLOSURE",system) /* ABI */
- LISPSYM(make_constant_initfunction,"MAKE-CONSTANT-INITFUNCTION",system) /* ABI */
- LISPSYM(constant_initfunction_p,"CONSTANT-INITFUNCTION-P",system)
- LISPSYM(closure_set_seclass,"CLOSURE-SET-SECLASS",system)
- LISPSYM(closure_documentation,"CLOSURE-DOCUMENTATION",system)
- LISPSYM(closure_set_documentation,"CLOSURE-SET-DOCUMENTATION",system)
- LISPSYM(closure_lambda_list,"CLOSURE-LAMBDA-LIST",system)
- LISPSYM(set_funcallable_instance_function,"SET-FUNCALLABLE-INSTANCE-FUNCTION",clos)
- LISPSYM(copy_generic_function,"%COPY-GENERIC-FUNCTION",system) /* ABI */
- LISPSYM(generic_function_effective_method_function,"GENERIC-FUNCTION-EFFECTIVE-METHOD-FUNCTION",system)
- LISPSYM(make_load_time_eval,"MAKE-LOAD-TIME-EVAL",system)
- LISPSYM(make_symbol_macro,"MAKE-SYMBOL-MACRO",system) /* ABI */
- LISPSYM(symbol_macro_p,"SYMBOL-MACRO-P",system)
- LISPSYM(symbol_macro_expand,"SYMBOL-MACRO-EXPAND",ext)
- LISPSYM(make_global_symbol_macro,"MAKE-GLOBAL-SYMBOL-MACRO",system)
- LISPSYM(global_symbol_macro_definition,"GLOBAL-SYMBOL-MACRO-DEFINITION",system)
- LISPSYM(make_macro,"MAKE-MACRO",system) /* ABI */
- LISPSYM(macrop,"MACROP",system)
- LISPSYM(macro_expander,"MACRO-EXPANDER",system)
- LISPSYM(macro_lambda_list,"MACRO-LAMBDA-LIST",system)
- LISPSYM(make_function_macro,"MAKE-FUNCTION-MACRO",system)
- LISPSYM(function_macro_p,"FUNCTION-MACRO-P",system)
- LISPSYM(function_macro_function,"FUNCTION-MACRO-FUNCTION",system) /* ABI */
- LISPSYM(function_macro_expander,"FUNCTION-MACRO-EXPANDER",system)
- LISPSYM(finalize,"FINALIZE",ext)
- LISPSYM(structure_object_p,"STRUCTURE-OBJECT-P",clos) /* ABI */
- LISPSYM(std_instance_p,"STD-INSTANCE-P",clos) /* ABI */
- LISPSYM(funcallable_instance_p,"FUNCALLABLE-INSTANCE-P",clos)
- LISPSYM(allocate_metaobject_instance,"ALLOCATE-METAOBJECT-INSTANCE",clos)
- LISPSYM(allocate_std_instance,"ALLOCATE-STD-INSTANCE",clos)
- LISPSYM(allocate_funcallable_instance,"ALLOCATE-FUNCALLABLE-INSTANCE",clos)
- LISPSYM(pallocate_instance,"%ALLOCATE-INSTANCE",clos)
- LISPSYM(pslot_value_using_class,"%SLOT-VALUE-USING-CLASS",clos)
- LISPSYM(pset_slot_value_using_class,"%SET-SLOT-VALUE-USING-CLASS",clos)
- LISPSYM(pslot_boundp_using_class,"%SLOT-BOUNDP-USING-CLASS",clos)
- LISPSYM(pslot_makunbound_using_class,"%SLOT-MAKUNBOUND-USING-CLASS",clos)
- LISPSYM(slot_value,"SLOT-VALUE",clos)
- LISPSYM(set_slot_value,"SET-SLOT-VALUE",clos)
- LISPSYM(slot_boundp,"SLOT-BOUNDP",clos)
- LISPSYM(slot_makunbound,"SLOT-MAKUNBOUND",clos)
- LISPSYM(slot_exists_p,"SLOT-EXISTS-P",clos)
- LISPSYM(standard_instance_access,"STANDARD-INSTANCE-ACCESS",clos)
- LISPSYM(set_standard_instance_access,"(SETF STANDARD-INSTANCE-ACCESS)",clos)
- LISPSYM(punbound,"%UNBOUND",system)
- LISPSYM(pshared_initialize,"%SHARED-INITIALIZE",clos)
- LISPSYM(preinitialize_instance,"%REINITIALIZE-INSTANCE",clos)
- LISPSYM(pinitialize_instance,"%INITIALIZE-INSTANCE",clos)
- LISPSYM(pmake_instance,"%MAKE-INSTANCE",clos)
- LISPSYM(pchange_class,"%CHANGE-CLASS",clos)
- /* ---------- WEAK ---------- */
- LISPSYM(make_weak_pointer,"MAKE-WEAK-POINTER",ext)
- LISPSYM(weak_pointer_p,"WEAK-POINTER-P",ext)
- LISPSYM(weak_pointer_value,"WEAK-POINTER-VALUE",ext)
- LISPSYM(set_weak_pointer_value,"(SETF WEAK-POINTER-VALUE)",system) /* ABI */
- LISPSYM(make_weak_list,"MAKE-WEAK-LIST",ext)
- LISPSYM(weak_list_p,"WEAK-LIST-P",ext)
- LISPSYM(weak_list_list,"WEAK-LIST-LIST",ext)
- LISPSYM(set_weak_list_list,"(SETF WEAK-LIST-LIST)",system) /* ABI */
- LISPSYM(make_weak_and_relation,"MAKE-WEAK-AND-RELATION",ext)
- LISPSYM(weak_and_relation_p,"WEAK-AND-RELATION-P",ext)
- LISPSYM(weak_and_relation_list,"WEAK-AND-RELATION-LIST",ext)
- LISPSYM(make_weak_or_relation,"MAKE-WEAK-OR-RELATION",ext)
- LISPSYM(weak_or_relation_p,"WEAK-OR-RELATION-P",ext)
- LISPSYM(weak_or_relation_list,"WEAK-OR-RELATION-LIST",ext)
- LISPSYM(make_weak_mapping,"MAKE-WEAK-MAPPING",ext)
- LISPSYM(weak_mapping_p,"WEAK-MAPPING-P",ext)
- LISPSYM(weak_mapping_pair,"WEAK-MAPPING-PAIR",ext)
- LISPSYM(weak_mapping_value,"WEAK-MAPPING-VALUE",ext)
- LISPSYM(set_weak_mapping_value,"(SETF WEAK-MAPPING-VALUE)",system) /* ABI */
- LISPSYM(make_weak_and_mapping,"MAKE-WEAK-AND-MAPPING",ext)
- LISPSYM(weak_and_mapping_p,"WEAK-AND-MAPPING-P",ext)
- LISPSYM(weak_and_mapping_pair,"WEAK-AND-MAPPING-PAIR",ext)
- LISPSYM(weak_and_mapping_value,"WEAK-AND-MAPPING-VALUE",ext)
- LISPSYM(set_weak_and_mapping_value,"(SETF WEAK-AND-MAPPING-VALUE)",system) /* ABI */
- LISPSYM(make_weak_or_mapping,"MAKE-WEAK-OR-MAPPING",ext)
- LISPSYM(weak_or_mapping_p,"WEAK-OR-MAPPING-P",ext)
- LISPSYM(weak_or_mapping_pair,"WEAK-OR-MAPPING-PAIR",ext)
- LISPSYM(weak_or_mapping_value,"WEAK-OR-MAPPING-VALUE",ext)
- LISPSYM(set_weak_or_mapping_value,"(SETF WEAK-OR-MAPPING-VALUE)",system) /* ABI */
- LISPSYM(make_weak_alist,"MAKE-WEAK-ALIST",ext)
- LISPSYM(weak_alist_p,"WEAK-ALIST-P",ext)
- LISPSYM(weak_alist_type,"WEAK-ALIST-TYPE",ext)
- LISPSYM(weak_alist_contents,"WEAK-ALIST-CONTENTS",ext)
- LISPSYM(set_weak_alist_contents,"(SETF WEAK-ALIST-CONTENTS)",system) /* ABI */
- LISPSYM(weak_alist_assoc,"WEAK-ALIST-ASSOC",ext)
- LISPSYM(weak_alist_rassoc,"WEAK-ALIST-RASSOC",ext)
- LISPSYM(weak_alist_value,"WEAK-ALIST-VALUE",ext)
- LISPSYM(set_weak_alist_value,"(SETF WEAK-ALIST-VALUE)",system) /* ABI */
- /* ---------- SEQUENCE ---------- */
- LISPSYM(sequencep,"SEQUENCEP",system) /* ABI */
- LISPSYM(defseq,"%DEFSEQ",system)
- LISPSYM(elt,"ELT",lisp)
- LISPSYM(setelt,"(SETF ELT)",system) /* ABI */
- LISPSYM(subseq,"SUBSEQ",lisp)
- LISPSYM(copy_seq,"COPY-SEQ",lisp)
- LISPSYM(length,"LENGTH",lisp)
- LISPSYM(reverse,"REVERSE",lisp)
- LISPSYM(nreverse,"NREVERSE",lisp)
- LISPSYM(make_sequence,"MAKE-SEQUENCE",lisp)
- LISPSYM(coerced_subseq,"COERCED-SUBSEQ",system)
- LISPSYM(concatenate,"CONCATENATE",lisp)
- LISPSYM(map,"MAP",lisp)
- LISPSYM(map_into,"MAP-INTO",lisp)
- LISPSYM(some,"SOME",lisp)
- LISPSYM(every,"EVERY",lisp)
- LISPSYM(notany,"NOTANY",lisp)
- LISPSYM(notevery,"NOTEVERY",lisp)
- LISPSYM(reduce,"REDUCE",lisp)
- LISPSYM(fill,"FILL",lisp)
- LISPSYM(replace,"REPLACE",lisp)
- LISPSYM(remove,"REMOVE",lisp)
- LISPSYM(remove_if,"REMOVE-IF",lisp)
- LISPSYM(remove_if_not,"REMOVE-IF-NOT",lisp)
- LISPSYM(delete,"DELETE",lisp)
- LISPSYM(delete_if,"DELETE-IF",lisp)
- LISPSYM(delete_if_not,"DELETE-IF-NOT",lisp)
- LISPSYM(remove_duplicates,"REMOVE-DUPLICATES",lisp)
- LISPSYM(delete_duplicates,"DELETE-DUPLICATES",lisp)
- LISPSYM(substitute,"SUBSTITUTE",lisp)
- LISPSYM(substitute_if,"SUBSTITUTE-IF",lisp)
- LISPSYM(substitute_if_not,"SUBSTITUTE-IF-NOT",lisp)
- LISPSYM(nsubstitute,"NSUBSTITUTE",lisp)
- LISPSYM(nsubstitute_if,"NSUBSTITUTE-IF",lisp)
- LISPSYM(nsubstitute_if_not,"NSUBSTITUTE-IF-NOT",lisp)
- LISPSYM(find,"FIND",lisp)
- LISPSYM(find_if,"FIND-IF",lisp)
- LISPSYM(find_if_not,"FIND-IF-NOT",lisp)
- LISPSYM(position,"POSITION",lisp)
- LISPSYM(position_if,"POSITION-IF",lisp)
- LISPSYM(position_if_not,"POSITION-IF-NOT",lisp)
- LISPSYM(count,"COUNT",lisp)
- LISPSYM(count_if,"COUNT-IF",lisp)
- LISPSYM(count_if_not,"COUNT-IF-NOT",lisp)
- LISPSYM(mismatch,"MISMATCH",lisp)
- LISPSYM(search,"SEARCH",lisp)
- LISPSYM(sort,"SORT",lisp)
- LISPSYM(stable_sort,"STABLE-SORT",lisp)
- LISPSYM(merge,"MERGE",lisp)
- LISPSYM(read_char_sequence,"READ-CHAR-SEQUENCE",ext)
- LISPSYM(write_char_sequence,"WRITE-CHAR-SEQUENCE",ext)
- LISPSYM(read_byte_sequence,"READ-BYTE-SEQUENCE",ext)
- LISPSYM(write_byte_sequence,"WRITE-BYTE-SEQUENCE",ext)
- LISPSYM(sequence_count_ansi,"*SEQUENCE-COUNT-ANSI*",custom)
- /* ---------- STREAM ---------- */
- LISPSYM(symbol_stream,"SYMBOL-STREAM",system)
- LISPSYM(make_synonym_stream,"MAKE-SYNONYM-STREAM",lisp)
- LISPSYM(synonym_stream_p,"SYNONYM-STREAM-P",system) /* ABI */
- LISPSYM(synonym_stream_symbol,"SYNONYM-STREAM-SYMBOL",lisp)
- LISPSYM(make_broadcast_stream,"MAKE-BROADCAST-STREAM",lisp)
- LISPSYM(broadcast_stream_p,"BROADCAST-STREAM-P",system) /* ABI */
- LISPSYM(broadcast_stream_streams,"BROADCAST-STREAM-STREAMS",lisp)
- LISPSYM(make_concatenated_stream,"MAKE-CONCATENATED-STREAM",lisp)
- LISPSYM(concatenated_stream_p,"CONCATENATED-STREAM-P",system) /* ABI */
- LISPSYM(concatenated_stream_streams,"CONCATENATED-STREAM-STREAMS",lisp)
- LISPSYM(make_two_way_stream,"MAKE-TWO-WAY-STREAM",lisp)
- LISPSYM(two_way_stream_p,"TWO-WAY-STREAM-P",system) /* ABI */
- LISPSYM(two_way_stream_input_stream,"TWO-WAY-STREAM-INPUT-STREAM",lisp)
- LISPSYM(two_way_stream_output_stream,"TWO-WAY-STREAM-OUTPUT-STREAM",lisp)
- LISPSYM(make_echo_stream,"MAKE-ECHO-STREAM",lisp)
- LISPSYM(echo_stream_p,"ECHO-STREAM-P",system) /* ABI */
- LISPSYM(echo_stream_input_stream,"ECHO-STREAM-INPUT-STREAM",lisp)
- LISPSYM(echo_stream_output_stream,"ECHO-STREAM-OUTPUT-STREAM",lisp)
- LISPSYM(make_string_input_stream,"MAKE-STRING-INPUT-STREAM",lisp)
- LISPSYM(string_input_stream_index,"STRING-INPUT-STREAM-INDEX",system) /* ABI */
- LISPSYM(make_string_output_stream,"MAKE-STRING-OUTPUT-STREAM",lisp)
- LISPSYM(get_output_stream_string,"GET-OUTPUT-STREAM-STRING",lisp)
- LISPSYM(make_string_push_stream,"MAKE-STRING-PUSH-STREAM",system) /* ABI */
- LISPSYM(string_stream_p,"STRING-STREAM-P",system) /* ABI */
- LISPSYM(string_stream_string,"STRING-STREAM-STRING",system)
- LISPSYM(make_buffered_input_stream,"MAKE-BUFFERED-INPUT-STREAM",ext)
- LISPSYM(buffered_input_stream_index,"BUFFERED-INPUT-STREAM-INDEX",system)
- LISPSYM(make_buffered_output_stream,"MAKE-BUFFERED-OUTPUT-STREAM",ext)
- #ifdef GENERIC_STREAMS
- LISPSYM(generic_stream_controller,"GENERIC-STREAM-CONTROLLER",gstream)
- LISPSYM(make_generic_stream,"MAKE-GENERIC-STREAM",gstream)
- LISPSYM(generic_stream_p,"GENERIC-STREAM-P",gstream)
- #endif
- LISPSYM(file_stream_p,"FILE-STREAM-P",system) /* ABI */
- #ifdef KEYBOARD
- LISPSYM(make_keyboard_stream,"MAKE-KEYBOARD-STREAM",system)
- #endif
- LISPSYM(terminal_raw,"TERMINAL-RAW",system)
- #ifdef SCREEN
- LISPSYM(make_window,"MAKE-WINDOW",screen) /* ABI */
- LISPSYM(window_size,"WINDOW-SIZE",screen)
- LISPSYM(window_cursor_position,"WINDOW-CURSOR-POSITION",screen)
- LISPSYM(set_window_cursor_position,"SET-WINDOW-CURSOR-POSITION",screen)
- LISPSYM(clear_window,"CLEAR-WINDOW",screen)
- LISPSYM(clear_window_to_eot,"CLEAR-WINDOW-TO-EOT",screen)
- LISPSYM(clear_window_to_eol,"CLEAR-WINDOW-TO-EOL",screen)
- LISPSYM(delete_window_line,"DELETE-WINDOW-LINE",screen)
- LISPSYM(insert_window_line,"INSERT-WINDOW-LINE",screen)
- LISPSYM(highlight_on,"HIGHLIGHT-ON",screen)
- LISPSYM(highlight_off,"HIGHLIGHT-OFF",screen)
- LISPSYM(window_cursor_on,"WINDOW-CURSOR-ON",screen)
- LISPSYM(window_cursor_off,"WINDOW-CURSOR-OFF",screen)
- #endif
- #ifdef PIPES
- LISPSYM(make_pipe_input_stream,"MAKE-PIPE-INPUT-STREAM",ext)
- LISPSYM(make_pipe_output_stream,"MAKE-PIPE-OUTPUT-STREAM",ext)
- #ifdef PIPES2
- LISPSYM(make_pipe_io_stream,"MAKE-PIPE-IO-STREAM",ext)
- #endif
- #endif
- #ifdef X11SOCKETS
- LISPSYM(make_x11socket_stream,"MAKE-SOCKET-STREAM",system)
- LISPSYM(read_n_bytes,"READ-N-BYTES",system)
- LISPSYM(write_n_bytes,"WRITE-N-BYTES",system)
- LISPSYM(x11_socket_stream,"X11-SOCKET-STREAM",system)
- #endif
- #ifdef SOCKET_STREAMS
- LISPSYM(socket_server,"SOCKET-SERVER",socket)
- LISPSYM(socket_server_close,"SOCKET-SERVER-CLOSE",socket)
- LISPSYM(socket_server_port,"SOCKET-SERVER-PORT",socket)
- LISPSYM(socket_server_host,"SOCKET-SERVER-HOST",socket)
- LISPSYM(socket_accept,"SOCKET-ACCEPT",socket)
- LISPSYM(socket_wait,"SOCKET-WAIT",socket)
- LISPSYM(socket_status,"SOCKET-STATUS",socket)
- LISPSYM(socket_connect,"SOCKET-CONNECT",socket)
- LISPSYM(socket_stream_port,"SOCKET-STREAM-PORT",socket)
- LISPSYM(socket_stream_host,"SOCKET-STREAM-HOST",socket)
- LISPSYM(socket_stream_peer,"SOCKET-STREAM-PEER",socket)
- LISPSYM(socket_stream_local,"SOCKET-STREAM-LOCAL",socket)
- LISPSYM(socket_options,"SOCKET-OPTIONS",socket)
- #ifdef HAVE_SHUTDOWN
- LISPSYM(socket_stream_shutdown,"SOCKET-STREAM-SHUTDOWN",socket)
- #endif
- LISPSYM(make_stream,"MAKE-STREAM",ext)
- LISPSYM(stream_handles,"STREAM-HANDLES",socket)
- #endif
- LISPSYM(built_in_stream_open_p,"BUILT-IN-STREAM-OPEN-P",system)
- LISPSYM(input_stream_p,"INPUT-STREAM-P",lisp)
- LISPSYM(output_stream_p,"OUTPUT-STREAM-P",lisp)
- LISPSYM(stream_element_type_eq,"STREAM-ELEMENT-TYPE-EQ",system)
- LISPSYM(built_in_stream_element_type,"BUILT-IN-STREAM-ELEMENT-TYPE",system)
- LISPSYM(built_in_stream_set_element_type,"BUILT-IN-STREAM-SET-ELEMENT-TYPE",system)
- LISPSYM(stream_external_format,"STREAM-EXTERNAL-FORMAT",lisp)
- LISPSYM(set_stream_external_format,"SET-STREAM-EXTERNAL-FORMAT",system) /* ABI */
- LISPSYM(interactive_stream_p,"INTERACTIVE-STREAM-P",lisp)
- LISPSYM(built_in_stream_close,"BUILT-IN-STREAM-CLOSE",system)
- LISPSYM(read_byte,"READ-BYTE",lisp)
- LISPSYM(read_byte_lookahead,"READ-BYTE-LOOKAHEAD",ext)
- LISPSYM(read_byte_will_hang_p,"READ-BYTE-WILL-HANG-P",ext)
- LISPSYM(read_byte_no_hang,"READ-BYTE-NO-HANG",ext)
- LISPSYM(read_integer,"READ-INTEGER",ext)
- LISPSYM(read_float,"READ-FLOAT",ext)
- LISPSYM(write_byte,"WRITE-BYTE",lisp)
- LISPSYM(write_integer,"WRITE-INTEGER",ext)
- LISPSYM(write_float,"WRITE-FLOAT",ext)
- LISPSYM(file_position,"FILE-POSITION",lisp)
- LISPSYM(file_length,"FILE-LENGTH",lisp)
- LISPSYM(file_string_length,"FILE-STRING-LENGTH",lisp)
- LISPSYM(line_number,"LINE-NUMBER",system)
- LISPSYM(stream_fasl_p,"STREAM-FASL-P",system)
- LISPSYM(defgray,"%DEFGRAY",system)
- /* ---------- SYMBOL ---------- */
- LISPSYM(putd,"%PUTD",system) /* ABI */
- LISPSYM(find_subr,"%FIND-SUBR",system)
- LISPSYM(proclaim_constant,"%PROCLAIM-CONSTANT",system) /* ABI */
- LISPSYM(proclaim_symbol_macro,"%PROCLAIM-SYMBOL-MACRO",system) /* ABI */
- LISPSYM(get,"GET",lisp)
- LISPSYM(getf,"GETF",lisp)
- LISPSYM(putf,"%PUTF",system) /* ABI */
- LISPSYM(remf,"%REMF",system) /* ABI */
- LISPSYM(get_properties,"GET-PROPERTIES",lisp)
- LISPSYM(putplist,"%PUTPLIST",system) /* ABI */
- LISPSYM(put,"%PUT",system) /* ABI */
- LISPSYM(remprop,"REMPROP",lisp)
- LISPSYM(symbol_package,"SYMBOL-PACKAGE",lisp)
- LISPSYM(symbol_plist,"SYMBOL-PLIST",lisp)
- LISPSYM(symbol_name,"SYMBOL-NAME",lisp)
- LISPSYM(cs_symbol_name,"SYMBOL-NAME",cs_lisp)
- LISPSYM(keywordp,"KEYWORDP",lisp)
- LISPSYM(special_variable_p,"SPECIAL-VARIABLE-P",ext)
- LISPSYM(gensym,"GENSYM",lisp)
- LISPSYM(plist,"PLIST",system) /* type in type.lisp */
- /* ---------- LISPARIT ---------- */
- LISPSYM(decimal_string,"DECIMAL-STRING",system)
- LISPSYM(zerop,"ZEROP",lisp)
- LISPSYM(plusp,"PLUSP",lisp)
- LISPSYM(minusp,"MINUSP",lisp)
- LISPSYM(oddp,"ODDP",lisp)
- LISPSYM(evenp,"EVENP",lisp)
- LISPSYM(numequal,"=",lisp)
- LISPSYM(numunequal,"/=",lisp)
- LISPSYM(smaller,"<",lisp)
- LISPSYM(greater,">",lisp)
- LISPSYM(ltequal,"<=",lisp)
- LISPSYM(gtequal,">=",lisp)
- LISPSYM(max,"MAX",lisp)
- LISPSYM(min,"MIN",lisp)
- LISPSYM(plus,"+",lisp)
- LISPSYM(minus,"-",lisp)
- LISPSYM(star,"*",lisp)
- LISPSYM(slash,"/",lisp)
- LISPSYM(plus_one,"1+",lisp)
- LISPSYM(minus_one,"1-",lisp)
- LISPSYM(conjugate,"CONJUGATE",lisp)
- LISPSYM(gcd,"GCD",lisp)
- LISPSYM(xgcd,"XGCD",ext)
- LISPSYM(lcm,"LCM",lisp)
- LISPSYM(exp,"EXP",lisp)
- LISPSYM(expt,"EXPT",lisp)
- LISPSYM(log,"LOG",lisp)
- LISPSYM(sqrt,"SQRT",lisp)
- LISPSYM(isqrt,"ISQRT",lisp)
- LISPSYM(abs,"ABS",lisp)
- LISPSYM(phase,"PHASE",lisp)
- LISPSYM(signum,"SIGNUM",lisp)
- LISPSYM(sin,"SIN",lisp)
- LISPSYM(cos,"COS",lisp)
- LISPSYM(tan,"TAN",lisp)
- LISPSYM(cis,"CIS",lisp)
- LISPSYM(asin,"ASIN",lisp)
- LISPSYM(acos,"ACOS",lisp)
- LISPSYM(atan,"ATAN",lisp)
- LISPSYM(sinh,"SINH",lisp)
- LISPSYM(cosh,"COSH",lisp)
- LISPSYM(tanh,"TANH",lisp)
- LISPSYM(asinh,"ASINH",lisp)
- LISPSYM(acosh,"ACOSH",lisp)
- LISPSYM(atanh,"ATANH",lisp)
- LISPSYM(float,"FLOAT",lisp)
- LISPSYM(rational,"RATIONAL",lisp)
- LISPSYM(rationalize,"RATIONALIZE",lisp)
- LISPSYM(numerator,"NUMERATOR",lisp)
- LISPSYM(denominator,"DENOMINATOR",lisp)
- LISPSYM(floor,"FLOOR",lisp)
- LISPSYM(ceiling,"CEILING",lisp)
- LISPSYM(truncate,"TRUNCATE",lisp)
- LISPSYM(round,"ROUND",lisp)
- LISPSYM(mod,"MOD",lisp)
- LISPSYM(rem,"REM",lisp)
- LISPSYM(ffloor,"FFLOOR",lisp)
- LISPSYM(fceiling,"FCEILING",lisp)
- LISPSYM(ftruncate,"FTRUNCATE",lisp)
- LISPSYM(fround,"FROUND",lisp)
- LISPSYM(decode_float,"DECODE-FLOAT",lisp)
- LISPSYM(scale_float,"SCALE-FLOAT",lisp)
- LISPSYM(float_scale_exponent,"FLOAT-SCALE-EXPONENT",system)
- LISPSYM(float_radix,"FLOAT-RADIX",lisp)
- LISPSYM(float_sign,"FLOAT-SIGN",lisp)
- LISPSYM(float_digits,"FLOAT-DIGITS",lisp)
- LISPSYM(float_precision,"FLOAT-PRECISION",lisp)
- LISPSYM(integer_decode_float,"INTEGER-DECODE-FLOAT",lisp)
- LISPSYM(complex,"COMPLEX",lisp)
- LISPSYM(realpart,"REALPART",lisp)
- LISPSYM(imagpart,"IMAGPART",lisp)
- LISPSYM(logior,"LOGIOR",lisp)
- LISPSYM(logxor,"LOGXOR",lisp)
- LISPSYM(logand,"LOGAND",lisp)
- LISPSYM(logeqv,"LOGEQV",lisp)
- LISPSYM(lognand,"LOGNAND",lisp)
- LISPSYM(lognor,"LOGNOR",lisp)
- LISPSYM(logandc1,"LOGANDC1",lisp)
- LISPSYM(logandc2,"LOGANDC2",lisp)
- LISPSYM(logorc1,"LOGORC1",lisp)
- LISPSYM(logorc2,"LOGORC2",lisp)
- LISPSYM(boole,"BOOLE",lisp)
- LISPSYM(lognot,"LOGNOT",lisp)
- LISPSYM(logtest,"LOGTEST",lisp)
- LISPSYM(logbitp,"LOGBITP",lisp)
- LISPSYM(ash,"ASH",lisp)
- LISPSYM(logcount,"LOGCOUNT",lisp)
- LISPSYM(integer_length,"INTEGER-LENGTH",lisp)
- LISPSYM(byte,"BYTE",lisp)
- LISPSYM(bytesize,"BYTE-SIZE",lisp)
- LISPSYM(byteposition,"BYTE-POSITION",lisp)
- LISPSYM(ldb,"LDB",lisp)
- LISPSYM(ldb_test,"LDB-TEST",lisp)
- LISPSYM(mask_field,"MASK-FIELD",lisp)
- LISPSYM(dpb,"DPB",lisp)
- LISPSYM(deposit_field,"DEPOSIT-FIELD",lisp)
- LISPSYM(random,"RANDOM",lisp)
- LISPSYM(random_posfixnum,"RANDOM-POSFIXNUM",system)
- LISPSYM(make_random_state,"MAKE-RANDOM-STATE",lisp)
- LISPSYM(factorial,"!",ext)
- LISPSYM(exquo,"EXQUO",ext)
- LISPSYM(mod_expt,"MOD-EXPT",ext)
- LISPSYM(long_float_digits,"LONG-FLOAT-DIGITS",ext)
- LISPSYM(set_long_float_digits,"(SETF LONG-FLOAT-DIGITS)",system) /* ABI */
- LISPSYM(log2,"LOG2",system)
- LISPSYM(log10,"LOG10",system)
- /* ---------- FOREIGN ---------- */
- #ifdef DYNAMIC_FFI
- LISPSYM(validp,"VALIDP",ffi)
- LISPSYM(set_validp,"SET-VALIDP",ffi) /* ABI */
- LISPSYM(set_foreign_pointer,"SET-FOREIGN-POINTER",ffi)
- LISPSYM(sizeof,"%SIZEOF",ffi) /* ABI */
- LISPSYM(bitsizeof,"%BITSIZEOF",ffi) /* ABI */
- LISPSYM(find_foreign_variable,"FIND-FOREIGN-VARIABLE",ffi) /* ABI */
- LISPSYM(unsigned_foreign_address,"UNSIGNED-FOREIGN-ADDRESS",ffi)
- LISPSYM(foreign_address_unsigned,"FOREIGN-ADDRESS-UNSIGNED",ffi)
- LISPSYM(foreign_value,"FOREIGN-VALUE",ffi)
- LISPSYM(set_foreign_value,"SET-FOREIGN-VALUE",ffi) /* ABI */
- LISPSYM(foreign_type,"FOREIGN-TYPE",ffi) /* ABI */
- LISPSYM(element,"%ELEMENT",ffi) /* ABI */
- LISPSYM(deref,"%DEREF",ffi) /* ABI */
- LISPSYM(slot,"%SLOT",ffi) /* ABI */
- LISPSYM(cast,"%CAST",ffi) /* ABI */
- LISPSYM(offset,"%OFFSET",ffi) /* ABI */
- LISPSYM(read_memory_as,"MEMORY-AS",ffi)
- LISPSYM(write_memory_as,"WRITE-MEMORY-AS",ffi) /* ABI */
- LISPSYM(exec_on_stack,"EXEC-ON-STACK",ffi) /* ABI */
- LISPSYM(call_with_foreign_string,"CALL-WITH-FOREIGN-STRING",ffi)
- LISPSYM(foreign_allocate,"FOREIGN-ALLOCATE",ffi)
- LISPSYM(foreign_free,"F…
Large files files are truncated, but you can click here to view the full file