home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / clisp.h < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-13  |  57.2 KB  |  2,139 lines
  1. #ifndef _CLISP_H
  2. #define _CLISP_H
  3.  
  4. #include "config.h"
  5. #ifdef __cplusplus
  6. #define BEGIN_DECLS  extern "C" {
  7. #define END_DECLS    }
  8. #else
  9. #define BEGIN_DECLS
  10. #define END_DECLS
  11. #endif
  12. #define CONCAT_(xxx,yyy)  xxx##yyy
  13. #define CONCAT3_(aaa,bbb,ccc)  aaa##bbb##ccc
  14. #define CONCAT(xxx,yyy)  CONCAT_(xxx,yyy)
  15. #define CONCAT3(aaa,bbb,ccc)  CONCAT3_(aaa,bbb,ccc)
  16. #define STRING(token) #token
  17. #define STRINGIFY(token) STRING(token)
  18. #define global
  19. #define nonreturning  __volatile__
  20. #define maygc
  21. #define _ARGS(x) x
  22. #define nonreturning_function(storclass,funname,arguments)  \
  23.   typedef void CONCAT3(funname,_function_,__LINE__) arguments; \
  24.   storclass nonreturning CONCAT3(funname,_function_,__LINE__) funname
  25. #define var
  26. #define reg1  register
  27. #define reg2  register
  28. #define reg3  register
  29. #define reg4  register
  30. #define reg5  register
  31. #define reg6  register
  32. #define reg7
  33. #define reg8
  34. #define reg9
  35. #define reg10
  36. typedef char         CLISP_BYTE;
  37. typedef unsigned char  CLISP_UBYTE;
  38. typedef short          CLISP_WORD;
  39. typedef unsigned short CLISP_UWORD;
  40. typedef long           CLISP_LONG;
  41. typedef unsigned long  CLISP_ULONG;
  42. typedef long long           CLISP_LONGLONG;
  43. typedef unsigned long long  CLISP_ULONGLONG;
  44. #define TRUE   1
  45. #define FALSE  0
  46. typedef unsigned int  boolean;
  47. #undef NULL
  48. #define NULL  ((void*) 0L)
  49. #define unspecified 0
  50. #define pointerplus(pointer,offset)  ((CLISP_UBYTE*)(pointer)+(offset))
  51. #define bit(n)  (1L<<(n))
  52. #define bit_test(x,n)  ((x) & bit(n))
  53. typedef CLISP_UBYTE   uint1;
  54. typedef CLISP_BYTE    sint1;
  55. typedef CLISP_UBYTE   uint2;
  56. typedef CLISP_BYTE    sint2;
  57. typedef CLISP_UBYTE   uint3;
  58. typedef CLISP_BYTE    sint3;
  59. typedef CLISP_UBYTE   uint4;
  60. typedef CLISP_BYTE    sint4;
  61. typedef CLISP_UBYTE   uint5;
  62. typedef CLISP_BYTE    sint5;
  63. typedef CLISP_UBYTE   uint6;
  64. typedef CLISP_BYTE    sint6;
  65. typedef CLISP_UBYTE   uint7;
  66. typedef CLISP_BYTE    sint7;
  67. typedef CLISP_UBYTE   uint8;
  68. typedef CLISP_BYTE    sint8;
  69. typedef CLISP_UWORD   uint9;
  70. typedef CLISP_WORD    sint9;
  71. typedef CLISP_UWORD   uint10;
  72. typedef CLISP_WORD    sint10;
  73. typedef CLISP_UWORD   uint11;
  74. typedef CLISP_WORD    sint11;
  75. typedef CLISP_UWORD   uint12;
  76. typedef CLISP_WORD    sint12;
  77. typedef CLISP_UWORD   uint13;
  78. typedef CLISP_WORD    sint13;
  79. typedef CLISP_UWORD   uint14;
  80. typedef CLISP_WORD    sint14;
  81. typedef CLISP_UWORD   uint15;
  82. typedef CLISP_WORD    sint15;
  83. typedef CLISP_UWORD   uint16;
  84. typedef CLISP_WORD    sint16;
  85. typedef CLISP_ULONG   uint17;
  86. typedef CLISP_LONG    sint17;
  87. typedef CLISP_ULONG   uint18;
  88. typedef CLISP_LONG    sint18;
  89. typedef CLISP_ULONG   uint19;
  90. typedef CLISP_LONG    sint19;
  91. typedef CLISP_ULONG   uint20;
  92. typedef CLISP_LONG    sint20;
  93. typedef CLISP_ULONG   uint21;
  94. typedef CLISP_LONG    sint21;
  95. typedef CLISP_ULONG   uint22;
  96. typedef CLISP_LONG    sint22;
  97. typedef CLISP_ULONG   uint23;
  98. typedef CLISP_LONG    sint23;
  99. typedef CLISP_ULONG   uint24;
  100. typedef CLISP_LONG    sint24;
  101. typedef CLISP_ULONG   uint25;
  102. typedef CLISP_LONG    sint25;
  103. typedef CLISP_ULONG   uint26;
  104. typedef CLISP_LONG    sint26;
  105. typedef CLISP_ULONG   uint27;
  106. typedef CLISP_LONG    sint27;
  107. typedef CLISP_ULONG   uint28;
  108. typedef CLISP_LONG    sint28;
  109. typedef CLISP_ULONG   uint29;
  110. typedef CLISP_LONG    sint29;
  111. typedef CLISP_ULONG   uint30;
  112. typedef CLISP_LONG    sint30;
  113. typedef CLISP_ULONG   uint31;
  114. typedef CLISP_LONG    sint31;
  115. typedef CLISP_ULONG   uint32;
  116. typedef CLISP_LONG    sint32;
  117. typedef CLISP_ULONGLONG  uint33;
  118. typedef CLISP_LONGLONG   sint33;
  119. typedef CLISP_ULONGLONG  uint48;
  120. typedef CLISP_LONGLONG   sint48;
  121. typedef CLISP_ULONGLONG  uint64;
  122. typedef CLISP_LONGLONG   sint64;
  123. typedef uint8 uintB;
  124. typedef uint16 uintW;
  125. typedef sint32 sintL;
  126. typedef uint32 uintL;
  127. typedef sint32 sintP;
  128. typedef uint16 uintWL;
  129. typedef uint8 uintBWL;
  130. #define uintC uintWL
  131. typedef uint32 uintD;
  132. typedef  void *  object;
  133. typedef  uintL  oint;
  134. #define as_oint(expr)  (oint)(expr)
  135. #define as_object(o)  (object)(o)
  136. typedef uint6 tint;
  137. typedef uint26 aint;
  138. #define objectplus(obj,offset)  ((object)pointerplus(obj,offset))
  139. #define wbit_test  bit_test
  140. #define typecode(expr)  ((tint)(as_oint(expr) >> 0UL) & 0x3FUL)
  141. #define type_untype_object(type,address)  (as_object(((oint)(tint)(type) << 0) + ((oint)(aint)(address) << 6)))
  142. #define type_data_object(type,data)  (as_object(((oint)(tint)(type) << 0) + ((oint)(aint)(data) << 6)))
  143. #define optimized_upointer(obj)  ((aint)((as_oint(obj) << 0) >> 5))
  144. #define upointer(obj)  (untype(obj)<<1)
  145. #define type_pointer_object(type,address)  (as_object(((oint)(tint)(type) << 0) + ((oint)(aint)(address) << 5)))
  146. #define type_constpointer_object(type,address)  type_pointer_object(type,address)
  147. #define type_zero_oint(type)  ((oint)(tint)(type) << 0)
  148. #define VAROBJECT_HEADER  object GCself;
  149. typedef struct { VAROBJECT_HEADER object symvalue; object symfunction; object proplist; object pname; object homepackage; } symbol_;
  150. typedef uint16 cint;
  151. #define int_char(int_from_int_char)  type_data_object(15,(aint)(cint)(int_from_int_char))
  152. #define char_int(char_from_char_int)  ((cint)(untype(char_from_char_int)))
  153. #define code_char(code_from_code_char)  int_char((cint)(code_from_code_char))
  154. #define char_code(char_from_char_code)  ((uintB)(char_int(char_from_char_code)))
  155. #define fixnum(x)  type_data_object(16,x)
  156. #define posfixnum_to_L(obj)  ((uintL)((as_oint(obj)&0xFFFFFFFFUL)>>6UL))
  157. #define fixnum_to_L(obj)  (sintL)( ((((sintL)as_oint(obj) >> 0UL) << 31UL) >> 5UL) | ((uintL)((as_oint(obj) & 0xFFFFFFFFUL) >> 6UL)) )
  158. typedef struct { VAROBJECT_HEADER uintC length; uintD data[unspecified]; } bignum_;
  159. typedef bignum_ *  Bignum;
  160. typedef uint32 ffloat;
  161. typedef union { ffloat explicit_; } ffloatjanus;
  162. typedef struct {uint32 semhi,mlo;} dfloat;
  163. typedef union { dfloat explicit_; } dfloatjanus;
  164. typedef void Values;
  165. typedef Values (*lisp_function)();
  166. typedef struct { lisp_function function; object name; object keywords; uintW argtype; uintW req_anz; uintW opt_anz; uintB rest_flag; uintB key_flag; uintW key_anz; } subr_;
  167. typedef enum { subr_norest, subr_rest } subr_rest_;
  168. typedef enum { subr_nokey, subr_key, subr_key_allow } subr_key_;
  169. #define pointable(obj)  ((void*)upointer(obj))
  170. #define TheBignum(obj)  ((Bignum)(((void*)(aint)optimized_upointer(obj))))
  171. #define eq(obj1,obj2)  ((obj1) == (obj2))
  172. #define nullp(obj)  (eq(obj,NIL))
  173. #define posfixnump(obj)  (typecode(obj) == 16)
  174. #define positivep(obj)  (!wbit_test(as_oint(obj),0))
  175. #define uint8_p(obj)  ((as_oint(obj) & ~0x3FC0UL) == 0x10UL)
  176. #define sint8_p(obj)  (((as_oint(obj) ^ (positivep(obj) ? 0 : 0xFFFFFFC1UL)) & ~0x1FC0UL) == 0x10UL)
  177. #define uint16_p(obj)  ((as_oint(obj) & ~0x3FFFC0UL) == 0x10UL)
  178. #define sint16_p(obj)  (((as_oint(obj) ^ (positivep(obj) ? 0 : 0xFFFFFFC1UL)) & ~0x1FFFC0UL) == 0x10UL)
  179. #define uint32_p(obj)  ((typecode(obj)==16) || ((typecode(obj)==20) && (TheBignum(obj)->length <= 2UL) && ((TheBignum(obj)->length < 2UL) || (TheBignum(obj)->data[0] < (uintD)bit(0UL)) )))
  180. #define sint32_p(obj)  (((typecode(obj) & ~1) == 16) || (((typecode(obj) & ~1) == 20) && (TheBignum(obj)->length <= 1UL) && ((TheBignum(obj)->length < 1UL) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(31UL)) )))
  181. #define uint64_p(obj)  ((typecode(obj)==16) || ((typecode(obj)==20) && (TheBignum(obj)->length <= 3UL) && ((TheBignum(obj)->length < 3UL) || (TheBignum(obj)->data[0] < (uintD)bit(0UL)) )))
  182. #define sint64_p(obj)  (((typecode(obj) & ~1) == 16) || (((typecode(obj) & ~1) == 20) && (TheBignum(obj)->length <= 2UL) && ((TheBignum(obj)->length < 2UL) || ((TheBignum(obj)->data[0] ^ (positivep(obj) ? (uintD)0 : ~(uintD)0)) < (uintD)bit(31UL)) )))
  183. #ifndef IN_MODULE_CC
  184.   register object* STACK __asm__("a4");
  185. #endif
  186. extern object* saved_STACK;
  187. #define begin_call()  saved_STACK = STACK
  188. #define end_call()  saved_STACK = (object*)NULL
  189. #define begin_callback()  setSTACK(STACK = saved_STACK); end_call()
  190. #define end_callback()  begin_call()
  191. extern object asciz_to_string _ARGS((const char * asciz));
  192. extern struct subr_tab_ {
  193.   subr_ D_funtabref;
  194.   subr_ D_subr_info;
  195.   subr_ D_find_subr;
  196.   subr_ D_vector;
  197.   subr_ D_aref;
  198.   subr_ D_store;
  199.   subr_ D_svref;
  200.   subr_ D_svstore;
  201.   subr_ D_psvstore;
  202.   subr_ D_row_major_aref;
  203.   subr_ D_row_major_store;
  204.   subr_ D_array_element_type;
  205.   subr_ D_array_rank;
  206.   subr_ D_array_dimension;
  207.   subr_ D_array_dimensions;
  208.   subr_ D_array_total_size;
  209.   subr_ D_array_in_bounds_p;
  210.   subr_ D_array_row_major_index;
  211.   subr_ D_adjustable_array_p;
  212.   subr_ D_bit;
  213.   subr_ D_sbit;
  214.   subr_ D_bit_and;
  215.   subr_ D_bit_ior;
  216.   subr_ D_bit_xor;
  217.   subr_ D_bit_eqv;
  218.   subr_ D_bit_nand;
  219.   subr_ D_bit_nor;
  220.   subr_ D_bit_andc1;
  221.   subr_ D_bit_andc2;
  222.   subr_ D_bit_orc1;
  223.   subr_ D_bit_orc2;
  224.   subr_ D_bit_not;
  225.   subr_ D_array_has_fill_pointer_p;
  226.   subr_ D_fill_pointer;
  227.   subr_ D_set_fill_pointer;
  228.   subr_ D_vector_push;
  229.   subr_ D_vector_pop;
  230.   subr_ D_vector_push_extend;
  231.   subr_ D_initial_contents_aux;
  232.   subr_ D_make_array;
  233.   subr_ D_adjust_array;
  234.   subr_ D_vector_init;
  235.   subr_ D_vector_upd;
  236.   subr_ D_vector_endtest;
  237.   subr_ D_vector_fe_init;
  238.   subr_ D_vector_fe_upd;
  239.   subr_ D_vector_fe_endtest;
  240.   subr_ D_vector_length;
  241.   subr_ D_vector_init_start;
  242.   subr_ D_vector_fe_init_end;
  243.   subr_ D_make_bit_vector;
  244.   subr_ D_standard_char_p;
  245.   subr_ D_graphic_char_p;
  246.   subr_ D_string_char_p;
  247.   subr_ D_alpha_char_p;
  248.   subr_ D_upper_case_p;
  249.   subr_ D_lower_case_p;
  250.   subr_ D_both_case_p;
  251.   subr_ D_digit_char_p;
  252.   subr_ D_alphanumericp;
  253.   subr_ D_char_gleich;
  254.   subr_ D_char_ungleich;
  255.   subr_ D_char_kleiner;
  256.   subr_ D_char_groesser;
  257.   subr_ D_char_klgleich;
  258.   subr_ D_char_grgleich;
  259.   subr_ D_char_equal;
  260.   subr_ D_char_not_equal;
  261.   subr_ D_char_lessp;
  262.   subr_ D_char_greaterp;
  263.   subr_ D_char_not_greaterp;
  264.   subr_ D_char_not_lessp;
  265.   subr_ D_char_code;
  266.   subr_ D_char_bits;
  267.   subr_ D_char_font;
  268.   subr_ D_code_char;
  269.   subr_ D_make_char;
  270.   subr_ D_character;
  271.   subr_ D_char_upcase;
  272.   subr_ D_char_downcase;
  273.   subr_ D_digit_char;
  274.   subr_ D_char_int;
  275.   subr_ D_int_char;
  276.   subr_ D_char_name;
  277.   subr_ D_char_bit;
  278.   subr_ D_set_char_bit;
  279.   subr_ D_char;
  280.   subr_ D_schar;
  281.   subr_ D_store_char;
  282.   subr_ D_store_schar;
  283.   subr_ D_string_gleich;
  284.   subr_ D_string_ungleich;
  285.   subr_ D_string_kleiner;
  286.   subr_ D_string_groesser;
  287.   subr_ D_string_klgleich;
  288.   subr_ D_string_grgleich;
  289.   subr_ D_string_equal;
  290.   subr_ D_string_not_equal;
  291.   subr_ D_string_lessp;
  292.   subr_ D_string_greaterp;
  293.   subr_ D_string_not_greaterp;
  294.   subr_ D_string_not_lessp;
  295.   subr_ D_search_string_gleich;
  296.   subr_ D_search_string_equal;
  297.   subr_ D_make_string;
  298.   subr_ D_string_both_trim;
  299.   subr_ D_nstring_upcase;
  300.   subr_ D_string_upcase;
  301.   subr_ D_nstring_downcase;
  302.   subr_ D_string_downcase;
  303.   subr_ D_nstring_capitalize;
  304.   subr_ D_string_capitalize;
  305.   subr_ D_string;
  306.   subr_ D_name_char;
  307.   subr_ D_substring;
  308.   subr_ D_string_concat;
  309.   subr_ D_exit;
  310.   subr_ D_psymbol_value;
  311.   subr_ D_symbol_value;
  312.   subr_ D_symbol_function;
  313.   subr_ D_fdefinition;
  314.   subr_ D_boundp;
  315.   subr_ D_fboundp;
  316.   subr_ D_special_form_p;
  317.   subr_ D_set;
  318.   subr_ D_makunbound;
  319.   subr_ D_fmakunbound;
  320.   subr_ D_apply;
  321.   subr_ D_pfuncall;
  322.   subr_ D_funcall;
  323.   subr_ D_mapcar;
  324.   subr_ D_maplist;
  325.   subr_ D_mapc;
  326.   subr_ D_mapl;
  327.   subr_ D_mapcan;
  328.   subr_ D_mapcon;
  329.   subr_ D_values;
  330.   subr_ D_values_list;
  331.   subr_ D_driver;
  332.   subr_ D_unwind_to_driver;
  333.   subr_ D_macro_function;
  334.   subr_ D_macroexpand;
  335.   subr_ D_macroexpand_1;
  336.   subr_ D_proclaim;
  337.   subr_ D_eval;
  338.   subr_ D_evalhook;
  339.   subr_ D_applyhook;
  340.   subr_ D_constantp;
  341.   subr_ D_function_name_p;
  342.   subr_ D_parse_body;
  343.   subr_ D_keyword_test;
  344.   subr_ D_read_form;
  345.   subr_ D_read_eval_print;
  346.   subr_ D_load;
  347.   subr_ D_frame_up_1;
  348.   subr_ D_frame_up;
  349.   subr_ D_frame_down_1;
  350.   subr_ D_frame_down;
  351.   subr_ D_the_frame;
  352.   subr_ D_same_env_as;
  353.   subr_ D_eval_at;
  354.   subr_ D_eval_frame_p;
  355.   subr_ D_driver_frame_p;
  356.   subr_ D_trap_eval_frame;
  357.   subr_ D_redo_eval_frame;
  358.   subr_ D_return_from_eval_frame;
  359.   subr_ D_describe_frame;
  360.   subr_ D_show_stack;
  361.   subr_ D_debug;
  362.   subr_ D_room;
  363.   subr_ D_gc;
  364.   subr_ D_error;
  365.   subr_ D_defclcs;
  366.   subr_ D_error_of_type;
  367.   subr_ D_invoke_debugger;
  368.   subr_ D_clcs_signal;
  369.   subr_ D_make_hash_table;
  370.   subr_ D_gethash;
  371.   subr_ D_puthash;
  372.   subr_ D_remhash;
  373.   subr_ D_maphash;
  374.   subr_ D_clrhash;
  375.   subr_ D_hash_table_count;
  376.   subr_ D_hash_table_rehash_size;
  377.   subr_ D_hash_table_rehash_threshold;
  378.   subr_ D_hash_table_size;
  379.   subr_ D_hash_table_test;
  380.   subr_ D_hash_table_iterator;
  381.   subr_ D_hash_table_iterate;
  382.   subr_ D_class_gethash;
  383.   subr_ D_class_tuple_gethash;
  384.   subr_ D_sxhash;
  385.   subr_ D_copy_readtable;
  386.   subr_ D_set_syntax_from_char;
  387.   subr_ D_set_macro_character;
  388.   subr_ D_get_macro_character;
  389.   subr_ D_make_dispatch_macro_character;
  390.   subr_ D_set_dispatch_macro_character;
  391.   subr_ D_get_dispatch_macro_character;
  392.   subr_ D_readtable_case;
  393.   subr_ D_set_readtable_case;
  394.   subr_ D_lpar_reader;
  395.   subr_ D_rpar_reader;
  396.   subr_ D_string_reader;
  397.   subr_ D_quote_reader;
  398.   subr_ D_line_comment_reader;
  399.   subr_ D_function_reader;
  400.   subr_ D_comment_reader;
  401.   subr_ D_char_reader;
  402.   subr_ D_binary_reader;
  403.   subr_ D_octal_reader;
  404.   subr_ D_hexadecimal_reader;
  405.   subr_ D_radix_reader;
  406.   subr_ D_complex_reader;
  407.   subr_ D_uninterned_reader;
  408.   subr_ D_bit_vector_reader;
  409.   subr_ D_vector_reader;
  410.   subr_ D_array_reader;
  411.   subr_ D_read_eval_reader;
  412.   subr_ D_load_eval_reader;
  413.   subr_ D_label_definition_reader;
  414.   subr_ D_label_reference_reader;
  415.   subr_ D_not_readable_reader;
  416.   subr_ D_syntax_error_reader;
  417.   subr_ D_feature_reader;
  418.   subr_ D_not_feature_reader;
  419.   subr_ D_structure_reader;
  420.   subr_ D_closure_reader;
  421.   subr_ D_pathname_reader;
  422.   subr_ D_read;
  423.   subr_ D_read_preserving_whitespace;
  424.   subr_ D_read_delimited_list;
  425.   subr_ D_read_line;
  426.   subr_ D_read_char;
  427.   subr_ D_unread_char;
  428.   subr_ D_peek_char;
  429.   subr_ D_listen;
  430.   subr_ D_read_char_no_hang;
  431.   subr_ D_clear_input;
  432.   subr_ D_read_from_string;
  433.   subr_ D_parse_integer;
  434.   subr_ D_write;
  435.   subr_ D_prin1;
  436.   subr_ D_print;
  437.   subr_ D_pprint;
  438.   subr_ D_princ;
  439.   subr_ D_write_to_string;
  440.   subr_ D_prin1_to_string;
  441.   subr_ D_princ_to_string;
  442.   subr_ D_write_char;
  443.   subr_ D_write_string;
  444.   subr_ D_write_line;
  445.   subr_ D_terpri;
  446.   subr_ D_fresh_line;
  447.   subr_ D_finish_output;
  448.   subr_ D_force_output;
  449.   subr_ D_clear_output;
  450.   subr_ D_write_unreadable;
  451.   subr_ D_line_position;
  452.   subr_ D_car;
  453.   subr_ D_cdr;
  454.   subr_ D_caar;
  455.   subr_ D_cadr;
  456.   subr_ D_cdar;
  457.   subr_ D_cddr;
  458.   subr_ D_caaar;
  459.   subr_ D_caadr;
  460.   subr_ D_cadar;
  461.   subr_ D_caddr;
  462.   subr_ D_cdaar;
  463.   subr_ D_cdadr;
  464.   subr_ D_cddar;
  465.   subr_ D_cdddr;
  466.   subr_ D_caaaar;
  467.   subr_ D_caaadr;
  468.   subr_ D_caadar;
  469.   subr_ D_caaddr;
  470.   subr_ D_cadaar;
  471.   subr_ D_cadadr;
  472.   subr_ D_caddar;
  473.   subr_ D_cadddr;
  474.   subr_ D_cdaaar;
  475.   subr_ D_cdaadr;
  476.   subr_ D_cdadar;
  477.   subr_ D_cdaddr;
  478.   subr_ D_cddaar;
  479.   subr_ D_cddadr;
  480.   subr_ D_cdddar;
  481.   subr_ D_cddddr;
  482.   subr_ D_cons;
  483.   subr_ D_tree_equal;
  484.   subr_ D_endp;
  485.   subr_ D_list_length;
  486.   subr_ D_nth;
  487.   subr_ D_first;
  488.   subr_ D_second;
  489.   subr_ D_third;
  490.   subr_ D_fourth;
  491.   subr_ D_fifth;
  492.   subr_ D_sixth;
  493.   subr_ D_seventh;
  494.   subr_ D_eighth;
  495.   subr_ D_ninth;
  496.   subr_ D_tenth;
  497.   subr_ D_rest;
  498.   subr_ D_nthcdr;
  499.   subr_ D_last;
  500.   subr_ D_list;
  501.   subr_ D_liststern;
  502.   subr_ D_make_list;
  503.   subr_ D_append;
  504.   subr_ D_copy_list;
  505.   subr_ D_copy_alist;
  506.   subr_ D_copy_tree;
  507.   subr_ D_revappend;
  508.   subr_ D_nconc;
  509.   subr_ D_nreconc;
  510.   subr_ D_list_nreverse;
  511.   subr_ D_butlast;
  512.   subr_ D_nbutlast;
  513.   subr_ D_ldiff;
  514.   subr_ D_rplaca;
  515.   subr_ D_prplaca;
  516.   subr_ D_rplacd;
  517.   subr_ D_prplacd;
  518.   subr_ D_subst;
  519.   subr_ D_subst_if;
  520.   subr_ D_subst_if_not;
  521.   subr_ D_nsubst;
  522.   subr_ D_nsubst_if;
  523.   subr_ D_nsubst_if_not;
  524.   subr_ D_sublis;
  525.   subr_ D_nsublis;
  526.   subr_ D_member;
  527.   subr_ D_member_if;
  528.   subr_ D_member_if_not;
  529.   subr_ D_tailp;
  530.   subr_ D_adjoin;
  531.   subr_ D_acons;
  532.   subr_ D_pairlis;
  533.   subr_ D_assoc;
  534.   subr_ D_assoc_if;
  535.   subr_ D_assoc_if_not;
  536.   subr_ D_rassoc;
  537.   subr_ D_rassoc_if;
  538.   subr_ D_rassoc_if_not;
  539.   subr_ D_list_upd;
  540.   subr_ D_list_endtest;
  541.   subr_ D_list_fe_init;
  542.   subr_ D_list_access;
  543.   subr_ D_list_access_set;
  544.   subr_ D_list_llength;
  545.   subr_ D_list_elt;
  546.   subr_ D_list_set_elt;
  547.   subr_ D_list_init_start;
  548.   subr_ D_list_fe_init_end;
  549.   subr_ D_lisp_implementation_type;
  550.   subr_ D_lisp_implementation_version;
  551.   subr_ D_version;
  552.   subr_ D_get_env;
  553.   subr_ D_software_type;
  554.   subr_ D_software_version;
  555.   subr_ D_language;
  556.   subr_ D_identity;
  557.   subr_ D_address_of;
  558.   subr_ D_get_universal_time;
  559.   subr_ D_get_internal_run_time;
  560.   subr_ D_get_internal_real_time;
  561.   subr_ D_sleep;
  562.   subr_ D_time;
  563.   subr_ D_use_package_aux;
  564.   subr_ D_make_symbol;
  565.   subr_ D_find_package;
  566.   subr_ D_pfind_package;
  567.   subr_ D_package_name;
  568.   subr_ D_package_nicknames;
  569.   subr_ D_rename_package;
  570.   subr_ D_package_use_list;
  571.   subr_ D_package_used_by_list;
  572.   subr_ D_package_shadowing_symbols;
  573.   subr_ D_list_all_packages;
  574.   subr_ D_intern;
  575.   subr_ D_find_symbol;
  576.   subr_ D_unintern;
  577.   subr_ D_export;
  578.   subr_ D_unexport;
  579.   subr_ D_import;
  580.   subr_ D_shadowing_import;
  581.   subr_ D_shadow;
  582.   subr_ D_use_package;
  583.   subr_ D_unuse_package;
  584.   subr_ D_make_package;
  585.   subr_ D_pin_package;
  586.   subr_ D_in_package;
  587.   subr_ D_delete_package;
  588.   subr_ D_delete_package_aux;
  589.   subr_ D_find_all_symbols;
  590.   subr_ D_map_symbols;
  591.   subr_ D_map_symbols_aux;
  592.   subr_ D_map_external_symbols;
  593.   subr_ D_map_all_symbols;
  594.   subr_ D_package_iterator;
  595.   subr_ D_package_iterate;
  596.   subr_ D_parse_namestring;
  597.   subr_ D_pathname;
  598.   subr_ D_pathnamehost;
  599.   subr_ D_pathnamedevice;
  600.   subr_ D_pathnamedirectory;
  601.   subr_ D_pathnamename;
  602.   subr_ D_pathnametype;
  603.   subr_ D_pathnameversion;
  604.   subr_ D_logical_pathname;
  605.   subr_ D_translate_logical_pathname;
  606.   subr_ D_file_namestring;
  607.   subr_ D_directory_namestring;
  608.   subr_ D_host_namestring;
  609.   subr_ D_merge_pathnames;
  610.   subr_ D_enough_namestring;
  611.   subr_ D_make_pathname;
  612.   subr_ D_make_logical_pathname;
  613.   subr_ D_wild_pathname_p;
  614.   subr_ D_pathname_match_p;
  615.   subr_ D_translate_pathname;
  616.   subr_ D_namestring;
  617.   subr_ D_truename;
  618.   subr_ D_probe_file;
  619.   subr_ D_delete_file;
  620.   subr_ D_rename_file;
  621.   subr_ D_open;
  622.   subr_ D_directory;
  623.   subr_ D_cd;
  624.   subr_ D_make_dir;
  625.   subr_ D_delete_dir;
  626.   subr_ D_file_write_date;
  627.   subr_ D_file_author;
  628.   subr_ D_execute;
  629.   subr_ D_shell;
  630.   subr_ D_savemem;
  631.   subr_ D_eq;
  632.   subr_ D_eql;
  633.   subr_ D_equal;
  634.   subr_ D_equalp;
  635.   subr_ D_consp;
  636.   subr_ D_atom;
  637.   subr_ D_symbolp;
  638.   subr_ D_stringp;
  639.   subr_ D_numberp;
  640.   subr_ D_compiled_function_p;
  641.   subr_ D_null;
  642.   subr_ D_not;
  643.   subr_ D_closurep;
  644.   subr_ D_listp;
  645.   subr_ D_integerp;
  646.   subr_ D_fixnump;
  647.   subr_ D_rationalp;
  648.   subr_ D_floatp;
  649.   subr_ D_short_float_p;
  650.   subr_ D_single_float_p;
  651.   subr_ D_double_float_p;
  652.   subr_ D_long_float_p;
  653.   subr_ D_realp;
  654.   subr_ D_complexp;
  655.   subr_ D_streamp;
  656.   subr_ D_random_state_p;
  657.   subr_ D_readtablep;
  658.   subr_ D_hash_table_p;
  659.   subr_ D_pathnamep;
  660.   subr_ D_logical_pathname_p;
  661.   subr_ D_characterp;
  662.   subr_ D_functionp;
  663.   subr_ D_generic_function_p;
  664.   subr_ D_packagep;
  665.   subr_ D_arrayp;
  666.   subr_ D_simple_array_p;
  667.   subr_ D_bit_vector_p;
  668.   subr_ D_vectorp;
  669.   subr_ D_simple_vector_p;
  670.   subr_ D_simple_string_p;
  671.   subr_ D_simple_bit_vector_p;
  672.   subr_ D_commonp;
  673.   subr_ D_type_of;
  674.   subr_ D_defclos;
  675.   subr_ D_class_p;
  676.   subr_ D_class_of;
  677.   subr_ D_find_class;
  678.   subr_ D_coerce;
  679.   subr_ D_record_ref;
  680.   subr_ D_record_store;
  681.   subr_ D_record_length;
  682.   subr_ D_structure_ref;
  683.   subr_ D_structure_store;
  684.   subr_ D_make_structure;
  685.   subr_ D_copy_structure;
  686.   subr_ D_structure_type_p;
  687.   subr_ D_closure_name;
  688.   subr_ D_closure_codevec;
  689.   subr_ D_closure_consts;
  690.   subr_ D_make_code_vector;
  691.   subr_ D_make_closure;
  692.   subr_ D_make_load_time_eval;
  693.   subr_ D_make_symbol_macro;
  694.   subr_ D_symbol_macro_p;
  695.   subr_ D_symbol_macro_expand;
  696.   subr_ D_finalize;
  697.   subr_ D_std_instance_p;
  698.   subr_ D_allocate_std_instance;
  699.   subr_ D_slot_value;
  700.   subr_ D_set_slot_value;
  701.   subr_ D_slot_boundp;
  702.   subr_ D_slot_makunbound;
  703.   subr_ D_slot_exists_p;
  704.   subr_ D_shared_initialize;
  705.   subr_ D_reinitialize_instance;
  706.   subr_ D_initialize_instance;
  707.   subr_ D_make_instance;
  708.   subr_ D_sequencep;
  709.   subr_ D_defseq;
  710.   subr_ D_elt;
  711.   subr_ D_setelt;
  712.   subr_ D_subseq;
  713.   subr_ D_copy_seq;
  714.   subr_ D_length;
  715.   subr_ D_reverse;
  716.   subr_ D_nreverse;
  717.   subr_ D_make_sequence;
  718.   subr_ D_concatenate;
  719.   subr_ D_map;
  720.   subr_ D_map_into;
  721.   subr_ D_some;
  722.   subr_ D_every;
  723.   subr_ D_notany;
  724.   subr_ D_notevery;
  725.   subr_ D_reduce;
  726.   subr_ D_fill;
  727.   subr_ D_replace;
  728.   subr_ D_remove;
  729.   subr_ D_remove_if;
  730.   subr_ D_remove_if_not;
  731.   subr_ D_delete;
  732.   subr_ D_delete_if;
  733.   subr_ D_delete_if_not;
  734.   subr_ D_remove_duplicates;
  735.   subr_ D_delete_duplicates;
  736.   subr_ D_substitute;
  737.   subr_ D_substitute_if;
  738.   subr_ D_substitute_if_not;
  739.   subr_ D_nsubstitute;
  740.   subr_ D_nsubstitute_if;
  741.   subr_ D_nsubstitute_if_not;
  742.   subr_ D_find;
  743.   subr_ D_find_if;
  744.   subr_ D_find_if_not;
  745.   subr_ D_position;
  746.   subr_ D_position_if;
  747.   subr_ D_position_if_not;
  748.   subr_ D_count;
  749.   subr_ D_count_if;
  750.   subr_ D_count_if_not;
  751.   subr_ D_mismatch;
  752.   subr_ D_search;
  753.   subr_ D_sort;
  754.   subr_ D_stable_sort;
  755.   subr_ D_merge;
  756.   subr_ D_read_char_sequence;
  757.   subr_ D_write_char_sequence;
  758.   subr_ D_read_byte_sequence;
  759.   subr_ D_write_byte_sequence;
  760.   subr_ D_symbol_stream;
  761.   subr_ D_terminal_raw;
  762.   subr_ D_file_stream_p;
  763.   subr_ D_make_synonym_stream;
  764.   subr_ D_synonym_stream_p;
  765.   subr_ D_synonym_stream_symbol;
  766.   subr_ D_make_broadcast_stream;
  767.   subr_ D_broadcast_stream_p;
  768.   subr_ D_broadcast_stream_streams;
  769.   subr_ D_make_concatenated_stream;
  770.   subr_ D_concatenated_stream_p;
  771.   subr_ D_concatenated_stream_streams;
  772.   subr_ D_make_two_way_stream;
  773.   subr_ D_two_way_stream_p;
  774.   subr_ D_two_way_stream_input_stream;
  775.   subr_ D_two_way_stream_output_stream;
  776.   subr_ D_make_echo_stream;
  777.   subr_ D_echo_stream_p;
  778.   subr_ D_echo_stream_input_stream;
  779.   subr_ D_echo_stream_output_stream;
  780.   subr_ D_make_string_input_stream;
  781.   subr_ D_string_input_stream_index;
  782.   subr_ D_make_string_output_stream;
  783.   subr_ D_get_output_stream_string;
  784.   subr_ D_make_string_push_stream;
  785.   subr_ D_string_stream_p;
  786.   subr_ D_make_buffered_input_stream;
  787.   subr_ D_buffered_input_stream_index;
  788.   subr_ D_make_buffered_output_stream;
  789.   subr_ D_make_printer_stream;
  790.   subr_ D_generic_stream_controller;
  791.   subr_ D_make_generic_stream;
  792.   subr_ D_generic_stream_p;
  793.   subr_ D_open_stream_p;
  794.   subr_ D_input_stream_p;
  795.   subr_ D_output_stream_p;
  796.   subr_ D_stream_element_type;
  797.   subr_ D_interactive_stream_p;
  798.   subr_ D_close;
  799.   subr_ D_read_byte;
  800.   subr_ D_write_byte;
  801.   subr_ D_file_position;
  802.   subr_ D_file_length;
  803.   subr_ D_line_number;
  804.   subr_ D_putd;
  805.   subr_ D_proclaim_constant;
  806.   subr_ D_get;
  807.   subr_ D_getf;
  808.   subr_ D_get_properties;
  809.   subr_ D_putplist;
  810.   subr_ D_put;
  811.   subr_ D_remprop;
  812.   subr_ D_symbol_package;
  813.   subr_ D_symbol_plist;
  814.   subr_ D_symbol_name;
  815.   subr_ D_keywordp;
  816.   subr_ D_special_variable_p;
  817.   subr_ D_gensym;
  818.   subr_ D_decimal_string;
  819.   subr_ D_zerop;
  820.   subr_ D_plusp;
  821.   subr_ D_minusp;
  822.   subr_ D_oddp;
  823.   subr_ D_evenp;
  824.   subr_ D_gleich;
  825.   subr_ D_ungleich;
  826.   subr_ D_kleiner;
  827.   subr_ D_groesser;
  828.   subr_ D_klgleich;
  829.   subr_ D_grgleich;
  830.   subr_ D_max;
  831.   subr_ D_min;
  832.   subr_ D_plus;
  833.   subr_ D_minus;
  834.   subr_ D_mal;
  835.   subr_ D_durch;
  836.   subr_ D_einsplus;
  837.   subr_ D_einsminus;
  838.   subr_ D_conjugate;
  839.   subr_ D_gcd;
  840.   subr_ D_xgcd;
  841.   subr_ D_lcm;
  842.   subr_ D_exp;
  843.   subr_ D_expt;
  844.   subr_ D_log;
  845.   subr_ D_sqrt;
  846.   subr_ D_isqrt;
  847.   subr_ D_abs;
  848.   subr_ D_phase;
  849.   subr_ D_signum;
  850.   subr_ D_sin;
  851.   subr_ D_cos;
  852.   subr_ D_tan;
  853.   subr_ D_cis;
  854.   subr_ D_asin;
  855.   subr_ D_acos;
  856.   subr_ D_atan;
  857.   subr_ D_sinh;
  858.   subr_ D_cosh;
  859.   subr_ D_tanh;
  860.   subr_ D_asinh;
  861.   subr_ D_acosh;
  862.   subr_ D_atanh;
  863.   subr_ D_float;
  864.   subr_ D_rational;
  865.   subr_ D_rationalize;
  866.   subr_ D_numerator;
  867.   subr_ D_denominator;
  868.   subr_ D_floor;
  869.   subr_ D_ceiling;
  870.   subr_ D_truncate;
  871.   subr_ D_round;
  872.   subr_ D_mod;
  873.   subr_ D_rem;
  874.   subr_ D_ffloor;
  875.   subr_ D_fceiling;
  876.   subr_ D_ftruncate;
  877.   subr_ D_fround;
  878.   subr_ D_decode_float;
  879.   subr_ D_scale_float;
  880.   subr_ D_float_radix;
  881.   subr_ D_float_sign;
  882.   subr_ D_float_digits;
  883.   subr_ D_float_precision;
  884.   subr_ D_integer_decode_float;
  885.   subr_ D_complex;
  886.   subr_ D_realpart;
  887.   subr_ D_imagpart;
  888.   subr_ D_logior;
  889.   subr_ D_logxor;
  890.   subr_ D_logand;
  891.   subr_ D_logeqv;
  892.   subr_ D_lognand;
  893.   subr_ D_lognor;
  894.   subr_ D_logandc1;
  895.   subr_ D_logandc2;
  896.   subr_ D_logorc1;
  897.   subr_ D_logorc2;
  898.   subr_ D_boole;
  899.   subr_ D_lognot;
  900.   subr_ D_logtest;
  901.   subr_ D_logbitp;
  902.   subr_ D_ash;
  903.   subr_ D_logcount;
  904.   subr_ D_integer_length;
  905.   subr_ D_byte;
  906.   subr_ D_bytesize;
  907.   subr_ D_byteposition;
  908.   subr_ D_ldb;
  909.   subr_ D_ldb_test;
  910.   subr_ D_mask_field;
  911.   subr_ D_dpb;
  912.   subr_ D_deposit_field;
  913.   subr_ D_random;
  914.   subr_ D_make_random_state;
  915.   subr_ D_fakultaet;
  916.   subr_ D_exquo;
  917.   subr_ D_long_float_digits;
  918.   subr_ D_set_long_float_digits;
  919.   subr_ D_log2;
  920.   subr_ D_log10;
  921.   subr_ D_rexx_put;
  922.   subr_ D_rexx_wait_input;
  923.   subr_ D_rexx_get;
  924.   subr_ D_rexx_reply;
  925. } subr_tab_data;
  926. extern struct symbol_tab_ {
  927.   symbol_ S_nil;
  928.   symbol_ S_t;
  929.   symbol_ S_eval_when;
  930.   symbol_ S_quote;
  931.   symbol_ S_function;
  932.   symbol_ S_setq;
  933.   symbol_ S_psetq;
  934.   symbol_ S_progn;
  935.   symbol_ S_prog1;
  936.   symbol_ S_prog2;
  937.   symbol_ S_let;
  938.   symbol_ S_letstern;
  939.   symbol_ S_locally;
  940.   symbol_ S_compiler_let;
  941.   symbol_ S_progv;
  942.   symbol_ S_flet;
  943.   symbol_ S_labels;
  944.   symbol_ S_macrolet;
  945.   symbol_ S_symbol_macrolet;
  946.   symbol_ S_if;
  947.   symbol_ S_when;
  948.   symbol_ S_unless;
  949.   symbol_ S_cond;
  950.   symbol_ S_block;
  951.   symbol_ S_return_from;
  952.   symbol_ S_tagbody;
  953.   symbol_ S_go;
  954.   symbol_ S_multiple_value_list;
  955.   symbol_ S_multiple_value_call;
  956.   symbol_ S_multiple_value_prog1;
  957.   symbol_ S_multiple_value_bind;
  958.   symbol_ S_multiple_value_setq;
  959.   symbol_ S_catch;
  960.   symbol_ S_unwind_protect;
  961.   symbol_ S_throw;
  962.   symbol_ S_declare;
  963.   symbol_ S_the;
  964.   symbol_ S_load_time_value;
  965.   symbol_ S_and;
  966.   symbol_ S_or;
  967.   symbol_ S_funtabref;
  968.   symbol_ S_subr_info;
  969.   symbol_ S_find_subr;
  970.   symbol_ S_vector;
  971.   symbol_ S_aref;
  972.   symbol_ S_store;
  973.   symbol_ S_svref;
  974.   symbol_ S_svstore;
  975.   symbol_ S_psvstore;
  976.   symbol_ S_row_major_aref;
  977.   symbol_ S_row_major_store;
  978.   symbol_ S_array_element_type;
  979.   symbol_ S_array_rank;
  980.   symbol_ S_array_dimension;
  981.   symbol_ S_array_dimensions;
  982.   symbol_ S_array_total_size;
  983.   symbol_ S_array_in_bounds_p;
  984.   symbol_ S_array_row_major_index;
  985.   symbol_ S_adjustable_array_p;
  986.   symbol_ S_bit;
  987.   symbol_ S_sbit;
  988.   symbol_ S_bit_and;
  989.   symbol_ S_bit_ior;
  990.   symbol_ S_bit_xor;
  991.   symbol_ S_bit_eqv;
  992.   symbol_ S_bit_nand;
  993.   symbol_ S_bit_nor;
  994.   symbol_ S_bit_andc1;
  995.   symbol_ S_bit_andc2;
  996.   symbol_ S_bit_orc1;
  997.   symbol_ S_bit_orc2;
  998.   symbol_ S_bit_not;
  999.   symbol_ S_array_has_fill_pointer_p;
  1000.   symbol_ S_fill_pointer;
  1001.   symbol_ S_set_fill_pointer;
  1002.   symbol_ S_vector_push;
  1003.   symbol_ S_vector_pop;
  1004.   symbol_ S_vector_push_extend;
  1005.   symbol_ S_initial_contents_aux;
  1006.   symbol_ S_make_array;
  1007.   symbol_ S_adjust_array;
  1008.   symbol_ S_vector_init;
  1009.   symbol_ S_vector_upd;
  1010.   symbol_ S_vector_endtest;
  1011.   symbol_ S_vector_fe_init;
  1012.   symbol_ S_vector_fe_upd;
  1013.   symbol_ S_vector_fe_endtest;
  1014.   symbol_ S_vector_length;
  1015.   symbol_ S_vector_init_start;
  1016.   symbol_ S_vector_fe_init_end;
  1017.   symbol_ S_make_bit_vector;
  1018.   symbol_ S_standard_char_p;
  1019.   symbol_ S_graphic_char_p;
  1020.   symbol_ S_string_char_p;
  1021.   symbol_ S_alpha_char_p;
  1022.   symbol_ S_upper_case_p;
  1023.   symbol_ S_lower_case_p;
  1024.   symbol_ S_both_case_p;
  1025.   symbol_ S_digit_char_p;
  1026.   symbol_ S_alphanumericp;
  1027.   symbol_ S_char_gleich;
  1028.   symbol_ S_char_ungleich;
  1029.   symbol_ S_char_kleiner;
  1030.   symbol_ S_char_groesser;
  1031.   symbol_ S_char_klgleich;
  1032.   symbol_ S_char_grgleich;
  1033.   symbol_ S_char_equal;
  1034.   symbol_ S_char_not_equal;
  1035.   symbol_ S_char_lessp;
  1036.   symbol_ S_char_greaterp;
  1037.   symbol_ S_char_not_greaterp;
  1038.   symbol_ S_char_not_lessp;
  1039.   symbol_ S_char_code;
  1040.   symbol_ S_char_bits;
  1041.   symbol_ S_char_font;
  1042.   symbol_ S_code_char;
  1043.   symbol_ S_make_char;
  1044.   symbol_ S_character;
  1045.   symbol_ S_char_upcase;
  1046.   symbol_ S_char_downcase;
  1047.   symbol_ S_digit_char;
  1048.   symbol_ S_char_int;
  1049.   symbol_ S_int_char;
  1050.   symbol_ S_char_name;
  1051.   symbol_ S_char_bit;
  1052.   symbol_ S_set_char_bit;
  1053.   symbol_ S_char;
  1054.   symbol_ S_schar;
  1055.   symbol_ S_store_char;
  1056.   symbol_ S_store_schar;
  1057.   symbol_ S_string_gleich;
  1058.   symbol_ S_string_ungleich;
  1059.   symbol_ S_string_kleiner;
  1060.   symbol_ S_string_groesser;
  1061.   symbol_ S_string_klgleich;
  1062.   symbol_ S_string_grgleich;
  1063.   symbol_ S_string_equal;
  1064.   symbol_ S_string_not_equal;
  1065.   symbol_ S_string_lessp;
  1066.   symbol_ S_string_greaterp;
  1067.   symbol_ S_string_not_greaterp;
  1068.   symbol_ S_string_not_lessp;
  1069.   symbol_ S_search_string_gleich;
  1070.   symbol_ S_search_string_equal;
  1071.   symbol_ S_make_string;
  1072.   symbol_ S_string_both_trim;
  1073.   symbol_ S_nstring_upcase;
  1074.   symbol_ S_string_upcase;
  1075.   symbol_ S_nstring_downcase;
  1076.   symbol_ S_string_downcase;
  1077.   symbol_ S_nstring_capitalize;
  1078.   symbol_ S_string_capitalize;
  1079.   symbol_ S_string;
  1080.   symbol_ S_name_char;
  1081.   symbol_ S_substring;
  1082.   symbol_ S_string_concat;
  1083.   symbol_ S_exit;
  1084.   symbol_ S_psymbol_value;
  1085.   symbol_ S_symbol_value;
  1086.   symbol_ S_symbol_function;
  1087.   symbol_ S_fdefinition;
  1088.   symbol_ S_boundp;
  1089.   symbol_ S_fboundp;
  1090.   symbol_ S_special_form_p;
  1091.   symbol_ S_set;
  1092.   symbol_ S_makunbound;
  1093.   symbol_ S_fmakunbound;
  1094.   symbol_ S_apply;
  1095.   symbol_ S_pfuncall;
  1096.   symbol_ S_funcall;
  1097.   symbol_ S_mapcar;
  1098.   symbol_ S_maplist;
  1099.   symbol_ S_mapc;
  1100.   symbol_ S_mapl;
  1101.   symbol_ S_mapcan;
  1102.   symbol_ S_mapcon;
  1103.   symbol_ S_values;
  1104.   symbol_ S_values_list;
  1105.   symbol_ S_driver;
  1106.   symbol_ S_unwind_to_driver;
  1107.   symbol_ S_macro_function;
  1108.   symbol_ S_macroexpand;
  1109.   symbol_ S_macroexpand_1;
  1110.   symbol_ S_proclaim;
  1111.   symbol_ S_eval;
  1112.   symbol_ S_evalhook;
  1113.   symbol_ S_applyhook;
  1114.   symbol_ S_constantp;
  1115.   symbol_ S_function_name_p;
  1116.   symbol_ S_parse_body;
  1117.   symbol_ S_keyword_test;
  1118.   symbol_ S_read_form;
  1119.   symbol_ S_read_eval_print;
  1120.   symbol_ S_load;
  1121.   symbol_ S_frame_up_1;
  1122.   symbol_ S_frame_up;
  1123.   symbol_ S_frame_down_1;
  1124.   symbol_ S_frame_down;
  1125.   symbol_ S_the_frame;
  1126.   symbol_ S_same_env_as;
  1127.   symbol_ S_eval_at;
  1128.   symbol_ S_eval_frame_p;
  1129.   symbol_ S_driver_frame_p;
  1130.   symbol_ S_trap_eval_frame;
  1131.   symbol_ S_redo_eval_frame;
  1132.   symbol_ S_return_from_eval_frame;
  1133.   symbol_ S_describe_frame;
  1134.   symbol_ S_show_stack;
  1135.   symbol_ S_debug;
  1136.   symbol_ S_room;
  1137.   symbol_ S_gc;
  1138.   symbol_ S_error;
  1139.   symbol_ S_defclcs;
  1140.   symbol_ S_error_of_type;
  1141.   symbol_ S_invoke_debugger;
  1142.   symbol_ S_clcs_signal;
  1143.   symbol_ S_make_hash_table;
  1144.   symbol_ S_gethash;
  1145.   symbol_ S_puthash;
  1146.   symbol_ S_remhash;
  1147.   symbol_ S_maphash;
  1148.   symbol_ S_clrhash;
  1149.   symbol_ S_hash_table_count;
  1150.   symbol_ S_hash_table_rehash_size;
  1151.   symbol_ S_hash_table_rehash_threshold;
  1152.   symbol_ S_hash_table_size;
  1153.   symbol_ S_hash_table_test;
  1154.   symbol_ S_hash_table_iterator;
  1155.   symbol_ S_hash_table_iterate;
  1156.   symbol_ S_class_gethash;
  1157.   symbol_ S_class_tuple_gethash;
  1158.   symbol_ S_sxhash;
  1159.   symbol_ S_copy_readtable;
  1160.   symbol_ S_set_syntax_from_char;
  1161.   symbol_ S_set_macro_character;
  1162.   symbol_ S_get_macro_character;
  1163.   symbol_ S_make_dispatch_macro_character;
  1164.   symbol_ S_set_dispatch_macro_character;
  1165.   symbol_ S_get_dispatch_macro_character;
  1166.   symbol_ S_readtable_case;
  1167.   symbol_ S_set_readtable_case;
  1168.   symbol_ S_lpar_reader;
  1169.   symbol_ S_rpar_reader;
  1170.   symbol_ S_quote_reader;
  1171.   symbol_ S_function_reader;
  1172.   symbol_ S_string_reader;
  1173.   symbol_ S_line_comment_reader;
  1174.   symbol_ S_comment_reader;
  1175.   symbol_ S_char_reader;
  1176.   symbol_ S_binary_reader;
  1177.   symbol_ S_octal_reader;
  1178.   symbol_ S_hexadecimal_reader;
  1179.   symbol_ S_radix_reader;
  1180.   symbol_ S_complex_reader;
  1181.   symbol_ S_uninterned_reader;
  1182.   symbol_ S_bit_vector_reader;
  1183.   symbol_ S_vector_reader;
  1184.   symbol_ S_array_reader;
  1185.   symbol_ S_read_eval_reader;
  1186.   symbol_ S_load_eval_reader;
  1187.   symbol_ S_label_definition_reader;
  1188.   symbol_ S_label_reference_reader;
  1189.   symbol_ S_not_readable_reader;
  1190.   symbol_ S_syntax_error_reader;
  1191.   symbol_ S_feature_reader;
  1192.   symbol_ S_not_feature_reader;
  1193.   symbol_ S_structure_reader;
  1194.   symbol_ S_closure_reader;
  1195.   symbol_ S_pathname_reader;
  1196.   symbol_ S_read;
  1197.   symbol_ S_read_preserving_whitespace;
  1198.   symbol_ S_read_delimited_list;
  1199.   symbol_ S_read_line;
  1200.   symbol_ S_read_char;
  1201.   symbol_ S_unread_char;
  1202.   symbol_ S_peek_char;
  1203.   symbol_ S_listen;
  1204.   symbol_ S_read_char_no_hang;
  1205.   symbol_ S_clear_input;
  1206.   symbol_ S_read_from_string;
  1207.   symbol_ S_parse_integer;
  1208.   symbol_ S_write;
  1209.   symbol_ S_prin1;
  1210.   symbol_ S_print;
  1211.   symbol_ S_pprint;
  1212.   symbol_ S_princ;
  1213.   symbol_ S_write_to_string;
  1214.   symbol_ S_prin1_to_string;
  1215.   symbol_ S_princ_to_string;
  1216.   symbol_ S_write_char;
  1217.   symbol_ S_write_string;
  1218.   symbol_ S_write_line;
  1219.   symbol_ S_terpri;
  1220.   symbol_ S_fresh_line;
  1221.   symbol_ S_finish_output;
  1222.   symbol_ S_force_output;
  1223.   symbol_ S_clear_output;
  1224.   symbol_ S_write_unreadable;
  1225.   symbol_ S_line_position;
  1226.   symbol_ S_car;
  1227.   symbol_ S_cdr;
  1228.   symbol_ S_caar;
  1229.   symbol_ S_cadr;
  1230.   symbol_ S_cdar;
  1231.   symbol_ S_cddr;
  1232.   symbol_ S_caaar;
  1233.   symbol_ S_caadr;
  1234.   symbol_ S_cadar;
  1235.   symbol_ S_caddr;
  1236.   symbol_ S_cdaar;
  1237.   symbol_ S_cdadr;
  1238.   symbol_ S_cddar;
  1239.   symbol_ S_cdddr;
  1240.   symbol_ S_caaaar;
  1241.   symbol_ S_caaadr;
  1242.   symbol_ S_caadar;
  1243.   symbol_ S_caaddr;
  1244.   symbol_ S_cadaar;
  1245.   symbol_ S_cadadr;
  1246.   symbol_ S_caddar;
  1247.   symbol_ S_cadddr;
  1248.   symbol_ S_cdaaar;
  1249.   symbol_ S_cdaadr;
  1250.   symbol_ S_cdadar;
  1251.   symbol_ S_cdaddr;
  1252.   symbol_ S_cddaar;
  1253.   symbol_ S_cddadr;
  1254.   symbol_ S_cdddar;
  1255.   symbol_ S_cddddr;
  1256.   symbol_ S_cons;
  1257.   symbol_ S_tree_equal;
  1258.   symbol_ S_endp;
  1259.   symbol_ S_list_length;
  1260.   symbol_ S_nth;
  1261.   symbol_ S_first;
  1262.   symbol_ S_second;
  1263.   symbol_ S_third;
  1264.   symbol_ S_fourth;
  1265.   symbol_ S_fifth;
  1266.   symbol_ S_sixth;
  1267.   symbol_ S_seventh;
  1268.   symbol_ S_eighth;
  1269.   symbol_ S_ninth;
  1270.   symbol_ S_tenth;
  1271.   symbol_ S_rest;
  1272.   symbol_ S_nthcdr;
  1273.   symbol_ S_last;
  1274.   symbol_ S_list;
  1275.   symbol_ S_liststern;
  1276.   symbol_ S_make_list;
  1277.   symbol_ S_append;
  1278.   symbol_ S_copy_list;
  1279.   symbol_ S_copy_alist;
  1280.   symbol_ S_copy_tree;
  1281.   symbol_ S_revappend;
  1282.   symbol_ S_nconc;
  1283.   symbol_ S_nreconc;
  1284.   symbol_ S_list_nreverse;
  1285.   symbol_ S_butlast;
  1286.   symbol_ S_nbutlast;
  1287.   symbol_ S_ldiff;
  1288.   symbol_ S_rplaca;
  1289.   symbol_ S_prplaca;
  1290.   symbol_ S_rplacd;
  1291.   symbol_ S_prplacd;
  1292.   symbol_ S_subst;
  1293.   symbol_ S_subst_if;
  1294.   symbol_ S_subst_if_not;
  1295.   symbol_ S_nsubst;
  1296.   symbol_ S_nsubst_if;
  1297.   symbol_ S_nsubst_if_not;
  1298.   symbol_ S_sublis;
  1299.   symbol_ S_nsublis;
  1300.   symbol_ S_member;
  1301.   symbol_ S_member_if;
  1302.   symbol_ S_member_if_not;
  1303.   symbol_ S_tailp;
  1304.   symbol_ S_adjoin;
  1305.   symbol_ S_acons;
  1306.   symbol_ S_pairlis;
  1307.   symbol_ S_assoc;
  1308.   symbol_ S_assoc_if;
  1309.   symbol_ S_assoc_if_not;
  1310.   symbol_ S_rassoc;
  1311.   symbol_ S_rassoc_if;
  1312.   symbol_ S_rassoc_if_not;
  1313.   symbol_ S_list_upd;
  1314.   symbol_ S_list_endtest;
  1315.   symbol_ S_list_fe_init;
  1316.   symbol_ S_list_access;
  1317.   symbol_ S_list_access_set;
  1318.   symbol_ S_list_llength;
  1319.   symbol_ S_list_elt;
  1320.   symbol_ S_list_set_elt;
  1321.   symbol_ S_list_init_start;
  1322.   symbol_ S_list_fe_init_end;
  1323.   symbol_ S_lisp_implementation_type;
  1324.   symbol_ S_lisp_implementation_version;
  1325.   symbol_ S_lisp_implementation_version_string;
  1326.   symbol_ S_software_version_string;
  1327.   symbol_ S_version;
  1328.   symbol_ S_get_env;
  1329.   symbol_ S_software_type;
  1330.   symbol_ S_software_version;
  1331.   symbol_ S_language;
  1332.   symbol_ S_identity;
  1333.   symbol_ S_address_of;
  1334.   symbol_ S_get_universal_time;
  1335.   symbol_ S_get_internal_run_time;
  1336.   symbol_ S_get_internal_real_time;
  1337.   symbol_ S_sleep;
  1338.   symbol_ S_time;
  1339.   symbol_ S_use_package_aux;
  1340.   symbol_ S_make_symbol;
  1341.   symbol_ S_find_package;
  1342.   symbol_ S_pfind_package;
  1343.   symbol_ S_package_name;
  1344.   symbol_ S_package_nicknames;
  1345.   symbol_ S_rename_package;
  1346.   symbol_ S_package_use_list;
  1347.   symbol_ S_package_used_by_list;
  1348.   symbol_ S_package_shadowing_symbols;
  1349.   symbol_ S_list_all_packages;
  1350.   symbol_ S_intern;
  1351.   symbol_ S_find_symbol;
  1352.   symbol_ S_unintern;
  1353.   symbol_ S_export;
  1354.   symbol_ S_unexport;
  1355.   symbol_ S_import;
  1356.   symbol_ S_shadowing_import;
  1357.   symbol_ S_shadow;
  1358.   symbol_ S_use_package;
  1359.   symbol_ S_unuse_package;
  1360.   symbol_ S_make_package;
  1361.   symbol_ S_pin_package;
  1362.   symbol_ S_in_package;
  1363.   symbol_ S_delete_package;
  1364.   symbol_ S_delete_package_aux;
  1365.   symbol_ S_find_all_symbols;
  1366.   symbol_ S_map_symbols;
  1367.   symbol_ S_map_symbols_aux;
  1368.   symbol_ S_map_external_symbols;
  1369.   symbol_ S_map_all_symbols;
  1370.   symbol_ S_package_iterator;
  1371.   symbol_ S_package_iterate;
  1372.   symbol_ S_parse_namestring;
  1373.   symbol_ S_pathname;
  1374.   symbol_ S_pathnamehost;
  1375.   symbol_ S_pathnamedevice;
  1376.   symbol_ S_pathnamedirectory;
  1377.   symbol_ S_pathnamename;
  1378.   symbol_ S_pathnametype;
  1379.   symbol_ S_pathnameversion;
  1380.   symbol_ S_logical_pathname;
  1381.   symbol_ S_translate_logical_pathname;
  1382.   symbol_ S_file_namestring;
  1383.   symbol_ S_directory_namestring;
  1384.   symbol_ S_host_namestring;
  1385.   symbol_ S_merge_pathnames;
  1386.   symbol_ S_enough_namestring;
  1387.   symbol_ S_make_pathname;
  1388.   symbol_ S_make_logical_pathname;
  1389.   symbol_ S_wild_pathname_p;
  1390.   symbol_ S_pathname_match_p;
  1391.   symbol_ S_translate_pathname;
  1392.   symbol_ S_namestring;
  1393.   symbol_ S_truename;
  1394.   symbol_ S_probe_file;
  1395.   symbol_ S_delete_file;
  1396.   symbol_ S_rename_file;
  1397.   symbol_ S_open;
  1398.   symbol_ S_directory;
  1399.   symbol_ S_cd;
  1400.   symbol_ S_make_dir;
  1401.   symbol_ S_delete_dir;
  1402.   symbol_ S_file_write_date;
  1403.   symbol_ S_file_author;
  1404.   symbol_ S_execute;
  1405.   symbol_ S_shell;
  1406.   symbol_ S_savemem;
  1407.   symbol_ S_eq;
  1408.   symbol_ S_eql;
  1409.   symbol_ S_equal;
  1410.   symbol_ S_equalp;
  1411.   symbol_ S_consp;
  1412.   symbol_ S_atom;
  1413.   symbol_ S_symbolp;
  1414.   symbol_ S_stringp;
  1415.   symbol_ S_numberp;
  1416.   symbol_ S_compiled_function_p;
  1417.   symbol_ S_null;
  1418.   symbol_ S_not;
  1419.   symbol_ S_closurep;
  1420.   symbol_ S_listp;
  1421.   symbol_ S_integerp;
  1422.   symbol_ S_fixnump;
  1423.   symbol_ S_rationalp;
  1424.   symbol_ S_floatp;
  1425.   symbol_ S_short_float_p;
  1426.   symbol_ S_single_float_p;
  1427.   symbol_ S_double_float_p;
  1428.   symbol_ S_long_float_p;
  1429.   symbol_ S_realp;
  1430.   symbol_ S_complexp;
  1431.   symbol_ S_streamp;
  1432.   symbol_ S_random_state_p;
  1433.   symbol_ S_readtablep;
  1434.   symbol_ S_hash_table_p;
  1435.   symbol_ S_pathnamep;
  1436.   symbol_ S_logical_pathname_p;
  1437.   symbol_ S_characterp;
  1438.   symbol_ S_functionp;
  1439.   symbol_ S_generic_function_p;
  1440.   symbol_ S_packagep;
  1441.   symbol_ S_arrayp;
  1442.   symbol_ S_simple_array_p;
  1443.   symbol_ S_bit_vector_p;
  1444.   symbol_ S_vectorp;
  1445.   symbol_ S_simple_vector_p;
  1446.   symbol_ S_simple_string_p;
  1447.   symbol_ S_simple_bit_vector_p;
  1448.   symbol_ S_commonp;
  1449.   symbol_ S_type_of;
  1450.   symbol_ S_defclos;
  1451.   symbol_ S_class_p;
  1452.   symbol_ S_class_of;
  1453.   symbol_ S_find_class;
  1454.   symbol_ S_coerce;
  1455.   symbol_ S_record_ref;
  1456.   symbol_ S_record_store;
  1457.   symbol_ S_record_length;
  1458.   symbol_ S_structure_ref;
  1459.   symbol_ S_structure_store;
  1460.   symbol_ S_make_structure;
  1461.   symbol_ S_copy_structure;
  1462.   symbol_ S_structure_type_p;
  1463.   symbol_ S_closure_name;
  1464.   symbol_ S_closure_codevec;
  1465.   symbol_ S_closure_consts;
  1466.   symbol_ S_make_code_vector;
  1467.   symbol_ S_make_closure;
  1468.   symbol_ S_make_load_time_eval;
  1469.   symbol_ S_make_symbol_macro;
  1470.   symbol_ S_symbol_macro_p;
  1471.   symbol_ S_symbol_macro_expand;
  1472.   symbol_ S_finalize;
  1473.   symbol_ S_std_instance_p;
  1474.   symbol_ S_allocate_std_instance;
  1475.   symbol_ S_slot_value;
  1476.   symbol_ S_set_slot_value;
  1477.   symbol_ S_slot_boundp;
  1478.   symbol_ S_slot_makunbound;
  1479.   symbol_ S_slot_exists_p;
  1480.   symbol_ S_shared_initialize;
  1481.   symbol_ S_reinitialize_instance;
  1482.   symbol_ S_initialize_instance;
  1483.   symbol_ S_make_instance;
  1484.   symbol_ S_sequencep;
  1485.   symbol_ S_defseq;
  1486.   symbol_ S_elt;
  1487.   symbol_ S_setelt;
  1488.   symbol_ S_subseq;
  1489.   symbol_ S_copy_seq;
  1490.   symbol_ S_length;
  1491.   symbol_ S_reverse;
  1492.   symbol_ S_nreverse;
  1493.   symbol_ S_make_sequence;
  1494.   symbol_ S_concatenate;
  1495.   symbol_ S_map;
  1496.   symbol_ S_map_into;
  1497.   symbol_ S_some;
  1498.   symbol_ S_every;
  1499.   symbol_ S_notany;
  1500.   symbol_ S_notevery;
  1501.   symbol_ S_reduce;
  1502.   symbol_ S_fill;
  1503.   symbol_ S_replace;
  1504.   symbol_ S_remove;
  1505.   symbol_ S_remove_if;
  1506.   symbol_ S_remove_if_not;
  1507.   symbol_ S_delete;
  1508.   symbol_ S_delete_if;
  1509.   symbol_ S_delete_if_not;
  1510.   symbol_ S_remove_duplicates;
  1511.   symbol_ S_delete_duplicates;
  1512.   symbol_ S_substitute;
  1513.   symbol_ S_substitute_if;
  1514.   symbol_ S_substitute_if_not;
  1515.   symbol_ S_nsubstitute;
  1516.   symbol_ S_nsubstitute_if;
  1517.   symbol_ S_nsubstitute_if_not;
  1518.   symbol_ S_find;
  1519.   symbol_ S_find_if;
  1520.   symbol_ S_find_if_not;
  1521.   symbol_ S_position;
  1522.   symbol_ S_position_if;
  1523.   symbol_ S_position_if_not;
  1524.   symbol_ S_count;
  1525.   symbol_ S_count_if;
  1526.   symbol_ S_count_if_not;
  1527.   symbol_ S_mismatch;
  1528.   symbol_ S_search;
  1529.   symbol_ S_sort;
  1530.   symbol_ S_stable_sort;
  1531.   symbol_ S_merge;
  1532.   symbol_ S_read_char_sequence;
  1533.   symbol_ S_write_char_sequence;
  1534.   symbol_ S_read_byte_sequence;
  1535.   symbol_ S_write_byte_sequence;
  1536.   symbol_ S_symbol_stream;
  1537.   symbol_ S_terminal_raw;
  1538.   symbol_ S_file_stream_p;
  1539.   symbol_ S_make_synonym_stream;
  1540.   symbol_ S_synonym_stream_p;
  1541.   symbol_ S_synonym_stream_symbol;
  1542.   symbol_ S_make_broadcast_stream;
  1543.   symbol_ S_broadcast_stream_p;
  1544.   symbol_ S_broadcast_stream_streams;
  1545.   symbol_ S_make_concatenated_stream;
  1546.   symbol_ S_concatenated_stream_p;
  1547.   symbol_ S_concatenated_stream_streams;
  1548.   symbol_ S_make_two_way_stream;
  1549.   symbol_ S_two_way_stream_p;
  1550.   symbol_ S_two_way_stream_input_stream;
  1551.   symbol_ S_two_way_stream_output_stream;
  1552.   symbol_ S_make_echo_stream;
  1553.   symbol_ S_echo_stream_p;
  1554.   symbol_ S_echo_stream_input_stream;
  1555.   symbol_ S_echo_stream_output_stream;
  1556.   symbol_ S_make_string_input_stream;
  1557.   symbol_ S_string_input_stream_index;
  1558.   symbol_ S_make_string_output_stream;
  1559.   symbol_ S_get_output_stream_string;
  1560.   symbol_ S_make_string_push_stream;
  1561.   symbol_ S_string_stream_p;
  1562.   symbol_ S_make_buffered_input_stream;
  1563.   symbol_ S_buffered_input_stream_index;
  1564.   symbol_ S_make_buffered_output_stream;
  1565.   symbol_ S_make_printer_stream;
  1566.   symbol_ S_generic_stream_controller;
  1567.   symbol_ S_make_generic_stream;
  1568.   symbol_ S_generic_stream_p;
  1569.   symbol_ S_open_stream_p;
  1570.   symbol_ S_input_stream_p;
  1571.   symbol_ S_output_stream_p;
  1572.   symbol_ S_stream_element_type;
  1573.   symbol_ S_interactive_stream_p;
  1574.   symbol_ S_close;
  1575.   symbol_ S_read_byte;
  1576.   symbol_ S_write_byte;
  1577.   symbol_ S_file_position;
  1578.   symbol_ S_file_length;
  1579.   symbol_ S_line_number;
  1580.   symbol_ S_putd;
  1581.   symbol_ S_proclaim_constant;
  1582.   symbol_ S_get;
  1583.   symbol_ S_getf;
  1584.   symbol_ S_get_properties;
  1585.   symbol_ S_putplist;
  1586.   symbol_ S_put;
  1587.   symbol_ S_remprop;
  1588.   symbol_ S_symbol_package;
  1589.   symbol_ S_symbol_plist;
  1590.   symbol_ S_symbol_name;
  1591.   symbol_ S_keywordp;
  1592.   symbol_ S_special_variable_p;
  1593.   symbol_ S_gensym;
  1594.   symbol_ S_decimal_string;
  1595.   symbol_ S_zerop;
  1596.   symbol_ S_plusp;
  1597.   symbol_ S_minusp;
  1598.   symbol_ S_oddp;
  1599.   symbol_ S_evenp;
  1600.   symbol_ S_gleich;
  1601.   symbol_ S_ungleich;
  1602.   symbol_ S_kleiner;
  1603.   symbol_ S_groesser;
  1604.   symbol_ S_klgleich;
  1605.   symbol_ S_grgleich;
  1606.   symbol_ S_max;
  1607.   symbol_ S_min;
  1608.   symbol_ S_plus;
  1609.   symbol_ S_minus;
  1610.   symbol_ S_mal;
  1611.   symbol_ S_durch;
  1612.   symbol_ S_einsplus;
  1613.   symbol_ S_einsminus;
  1614.   symbol_ S_conjugate;
  1615.   symbol_ S_gcd;
  1616.   symbol_ S_xgcd;
  1617.   symbol_ S_lcm;
  1618.   symbol_ S_exp;
  1619.   symbol_ S_expt;
  1620.   symbol_ S_log;
  1621.   symbol_ S_sqrt;
  1622.   symbol_ S_isqrt;
  1623.   symbol_ S_abs;
  1624.   symbol_ S_phase;
  1625.   symbol_ S_signum;
  1626.   symbol_ S_sin;
  1627.   symbol_ S_cos;
  1628.   symbol_ S_tan;
  1629.   symbol_ S_cis;
  1630.   symbol_ S_asin;
  1631.   symbol_ S_acos;
  1632.   symbol_ S_atan;
  1633.   symbol_ S_sinh;
  1634.   symbol_ S_cosh;
  1635.   symbol_ S_tanh;
  1636.   symbol_ S_asinh;
  1637.   symbol_ S_acosh;
  1638.   symbol_ S_atanh;
  1639.   symbol_ S_float;
  1640.   symbol_ S_rational;
  1641.   symbol_ S_rationalize;
  1642.   symbol_ S_numerator;
  1643.   symbol_ S_denominator;
  1644.   symbol_ S_floor;
  1645.   symbol_ S_ceiling;
  1646.   symbol_ S_truncate;
  1647.   symbol_ S_round;
  1648.   symbol_ S_mod;
  1649.   symbol_ S_rem;
  1650.   symbol_ S_ffloor;
  1651.   symbol_ S_fceiling;
  1652.   symbol_ S_ftruncate;
  1653.   symbol_ S_fround;
  1654.   symbol_ S_decode_float;
  1655.   symbol_ S_scale_float;
  1656.   symbol_ S_float_radix;
  1657.   symbol_ S_float_sign;
  1658.   symbol_ S_float_digits;
  1659.   symbol_ S_float_precision;
  1660.   symbol_ S_integer_decode_float;
  1661.   symbol_ S_complex;
  1662.   symbol_ S_realpart;
  1663.   symbol_ S_imagpart;
  1664.   symbol_ S_logior;
  1665.   symbol_ S_logxor;
  1666.   symbol_ S_logand;
  1667.   symbol_ S_logeqv;
  1668.   symbol_ S_lognand;
  1669.   symbol_ S_lognor;
  1670.   symbol_ S_logandc1;
  1671.   symbol_ S_logandc2;
  1672.   symbol_ S_logorc1;
  1673.   symbol_ S_logorc2;
  1674.   symbol_ S_boole;
  1675.   symbol_ S_lognot;
  1676.   symbol_ S_logtest;
  1677.   symbol_ S_logbitp;
  1678.   symbol_ S_ash;
  1679.   symbol_ S_logcount;
  1680.   symbol_ S_integer_length;
  1681.   symbol_ S_byte;
  1682.   symbol_ S_bytesize;
  1683.   symbol_ S_byteposition;
  1684.   symbol_ S_ldb;
  1685.   symbol_ S_ldb_test;
  1686.   symbol_ S_mask_field;
  1687.   symbol_ S_dpb;
  1688.   symbol_ S_deposit_field;
  1689.   symbol_ S_random;
  1690.   symbol_ S_make_random_state;
  1691.   symbol_ S_fakultaet;
  1692.   symbol_ S_exquo;
  1693.   symbol_ S_long_float_digits;
  1694.   symbol_ S_set_long_float_digits;
  1695.   symbol_ S_log2;
  1696.   symbol_ S_log10;
  1697.   symbol_ S_rexx_put;
  1698.   symbol_ S_rexx_wait_input;
  1699.   symbol_ S_rexx_get;
  1700.   symbol_ S_rexx_reply;
  1701.   symbol_ S_Kallow_other_keys;
  1702.   symbol_ S_Kadjustable;
  1703.   symbol_ S_Kelement_type;
  1704.   symbol_ S_Kinitial_element;
  1705.   symbol_ S_Kinitial_contents;
  1706.   symbol_ S_Kfill_pointer;
  1707.   symbol_ S_Kdisplaced_to;
  1708.   symbol_ S_Kdisplaced_index_offset;
  1709.   symbol_ S_Kstart1;
  1710.   symbol_ S_Kend1;
  1711.   symbol_ S_Kstart2;
  1712.   symbol_ S_Kend2;
  1713.   symbol_ S_Kstart;
  1714.   symbol_ S_Kend;
  1715.   symbol_ S_Kpreserve_whitespace;
  1716.   symbol_ S_Kradix;
  1717.   symbol_ S_Kjunk_allowed;
  1718.   symbol_ S_Kcase;
  1719.   symbol_ S_Klevel;
  1720.   symbol_ S_Klength;
  1721.   symbol_ S_Kgensym;
  1722.   symbol_ S_Kescape;
  1723.   symbol_ S_Kbase;
  1724.   symbol_ S_Karray;
  1725.   symbol_ S_Kcircle;
  1726.   symbol_ S_Kpretty;
  1727.   symbol_ S_Kclosure;
  1728.   symbol_ S_Kreadably;
  1729.   symbol_ S_Kstream;
  1730.   symbol_ S_Kidentity;
  1731.   symbol_ S_Ktest;
  1732.   symbol_ S_Ktest_not;
  1733.   symbol_ S_Kkey;
  1734.   symbol_ S_Knicknames;
  1735.   symbol_ S_Kuse;
  1736.   symbol_ S_Kupdate;
  1737.   symbol_ S_Kfrom_end;
  1738.   symbol_ S_Kinitial_value;
  1739.   symbol_ S_Kcount;
  1740.   symbol_ S_Ksize;
  1741.   symbol_ S_Krehash_size;
  1742.   symbol_ S_Krehash_threshold;
  1743.   symbol_ S_Kdefaults;
  1744.   symbol_ S_Kdevice;
  1745.   symbol_ S_Kdirectory;
  1746.   symbol_ S_Kname;
  1747.   symbol_ S_Ktype;
  1748.   symbol_ S_Kversion;
  1749.   symbol_ S_Khost;
  1750.   symbol_ S_Kall;
  1751.   symbol_ S_Kmerge;
  1752.   symbol_ S_Kdirection;
  1753.   symbol_ S_Kif_exists;
  1754.   symbol_ S_Kif_does_not_exist;
  1755.   symbol_ S_Kfull;
  1756.   symbol_ S_Kabort;
  1757.   symbol_ S_Kresult;
  1758.   symbol_ S_Kstring;
  1759.   symbol_ S_Ktoken;
  1760.   symbol_ S_Kasync;
  1761.   symbol_ S_Kreturn;
  1762.   symbol_ S_string_char;
  1763.   symbol_ S_array_rank_limit;
  1764.   symbol_ S_array_dimension_limit;
  1765.   symbol_ S_array_total_size_limit;
  1766.   symbol_ S_subtype_integer;
  1767.   symbol_ S_structure;
  1768.   symbol_ S_slot_missing;
  1769.   symbol_ S_slot_unbound;
  1770.   symbol_ S_reinitialize_instance_table;
  1771.   symbol_ S_make_instance_table;
  1772.   symbol_ S_initial_reinitialize_instance;
  1773.   symbol_ S_initial_initialize_instance;
  1774.   symbol_ S_initial_make_instance;
  1775.   symbol_ S_simple_vector;
  1776.   symbol_ S_simple_string;
  1777.   symbol_ S_bit_vector;
  1778.   symbol_ S_simple_bit_vector;
  1779.   symbol_ S_array;
  1780.   symbol_ S_simple_array;
  1781.   symbol_ S_sequence;
  1782.   symbol_ S_cerror;
  1783.   symbol_ S_Kinternal;
  1784.   symbol_ S_Kexternal;
  1785.   symbol_ S_Kinherited;
  1786.   symbol_ S_do_symbols;
  1787.   symbol_ S_do_external_symbols;
  1788.   symbol_ S_packagestern;
  1789.   symbol_ S_internal_time_units_per_second;
  1790.   symbol_ S_encode_universal_time;
  1791.   symbol_ S_use_clcs;
  1792.   symbol_ S_recursive_error_count;
  1793.   symbol_ S_error_handler;
  1794.   symbol_ S_simple_condition;
  1795.   symbol_ S_simple_serious_condition;
  1796.   symbol_ S_simple_error;
  1797.   symbol_ S_simple_program_error;
  1798.   symbol_ S_simple_control_error;
  1799.   symbol_ S_simple_arithmetic_error;
  1800.   symbol_ S_simple_division_by_zero;
  1801.   symbol_ S_simple_floating_point_overflow;
  1802.   symbol_ S_simple_floating_point_underflow;
  1803.   symbol_ S_simple_cell_error;
  1804.   symbol_ S_simple_unbound_variable;
  1805.   symbol_ S_simple_undefined_function;
  1806.   symbol_ S_simple_type_error;
  1807.   symbol_ S_simple_package_error;
  1808.   symbol_ S_simple_print_not_readable;
  1809.   symbol_ S_simple_stream_error;
  1810.   symbol_ S_simple_end_of_file;
  1811.   symbol_ S_simple_file_error;
  1812.   symbol_ S_simple_storage_condition;
  1813.   symbol_ S_simple_warning;
  1814.   symbol_ S_Kdatum;
  1815.   symbol_ S_Kexpected_type;
  1816.   symbol_ S_Kpackage;
  1817.   symbol_ S_Kobject;
  1818.   symbol_ S_Kpathname;
  1819.   symbol_ S_format;
  1820.   symbol_ S_debugger_hook;
  1821.   symbol_ S_coerce_to_condition;
  1822.   symbol_ S_break_on_signals;
  1823.   symbol_ S_safe_typep;
  1824.   symbol_ S_completion;
  1825.   symbol_ S_terminal_io;
  1826.   symbol_ S_key_bindings;
  1827.   symbol_ S_query_io;
  1828.   symbol_ S_debug_io;
  1829.   symbol_ S_standard_input;
  1830.   symbol_ S_standard_output;
  1831.   symbol_ S_error_output;
  1832.   symbol_ S_trace_output;
  1833.   symbol_ S_generic_stream_rdch;
  1834.   symbol_ S_generic_stream_listen;
  1835.   symbol_ S_generic_stream_clear_input;
  1836.   symbol_ S_generic_stream_wrch;
  1837.   symbol_ S_generic_stream_wrss;
  1838.   symbol_ S_generic_stream_finish_output;
  1839.   symbol_ S_generic_stream_force_output;
  1840.   symbol_ S_generic_stream_clear_output;
  1841.   symbol_ S_generic_stream_rdby;
  1842.   symbol_ S_generic_stream_wrby;
  1843.   symbol_ S_generic_stream_close;
  1844.   symbol_ S_default_pathname_defaults;
  1845.   symbol_ S_read_pathname_p;
  1846.   symbol_ S_logpathname_translations;
  1847.   symbol_ S_Kwild;
  1848.   symbol_ S_Kwild_inferiors;
  1849.   symbol_ S_Krelative;
  1850.   symbol_ S_Kabsolute;
  1851.   symbol_ S_Kparent;
  1852.   symbol_ S_Knewest;
  1853.   symbol_ S_Kcommon;
  1854.   symbol_ S_Kinput;
  1855.   symbol_ S_Kinput_immutable;
  1856.   symbol_ S_Koutput;
  1857.   symbol_ S_Kio;
  1858.   symbol_ S_Kprobe;
  1859.   symbol_ S_unsigned_byte;
  1860.   symbol_ S_signed_byte;
  1861.   symbol_ S_Kdefault;
  1862.   symbol_ S_Kerror;
  1863.   symbol_ S_Knew_version;
  1864.   symbol_ S_Krename;
  1865.   symbol_ S_Krename_and_delete;
  1866.   symbol_ S_Koverwrite;
  1867.   symbol_ S_Kappend;
  1868.   symbol_ S_Ksupersede;
  1869.   symbol_ S_Kcreate;
  1870.   symbol_ S_warn;
  1871.   symbol_ S_with_output_to_string;
  1872.   symbol_ S_integer;
  1873.   symbol_ S_hash_table;
  1874.   symbol_ S_random_state;
  1875.   symbol_ S_read_base;
  1876.   symbol_ S_read_suppress;
  1877.   symbol_ S_readtablestern;
  1878.   symbol_ S_features;
  1879.   symbol_ S_read_preserve_whitespace;
  1880.   symbol_ S_read_line_number;
  1881.   symbol_ S_read_recursive_p;
  1882.   symbol_ S_read_reference_table;
  1883.   symbol_ S_backquote_level;
  1884.   symbol_ S_backquote_reader;
  1885.   symbol_ S_comma_reader;
  1886.   symbol_ S_compiling;
  1887.   symbol_ S_make_byte;
  1888.   symbol_ S_Kupcase;
  1889.   symbol_ S_Kdowncase;
  1890.   symbol_ S_Kcapitalize;
  1891.   symbol_ S_print_case;
  1892.   symbol_ S_print_level;
  1893.   symbol_ S_print_length;
  1894.   symbol_ S_print_gensym;
  1895.   symbol_ S_print_escape;
  1896.   symbol_ S_print_radix;
  1897.   symbol_ S_print_base;
  1898.   symbol_ S_print_array;
  1899.   symbol_ S_print_circle;
  1900.   symbol_ S_print_pretty;
  1901.   symbol_ S_print_closure;
  1902.   symbol_ S_print_readably;
  1903.   symbol_ S_print_rpars;
  1904.   symbol_ S_print_indent_lists;
  1905.   symbol_ S_print_circle_table;
  1906.   symbol_ S_prin_level;
  1907.   symbol_ S_prin_bqlevel;
  1908.   symbol_ S_prin_stream;
  1909.   symbol_ S_prin_linelength;
  1910.   symbol_ S_prin_l1;
  1911.   symbol_ S_prin_lm;
  1912.   symbol_ S_prin_rpar;
  1913.   symbol_ S_prin_jblocks;
  1914.   symbol_ S_prin_jbstrings;
  1915.   symbol_ S_prin_jbmodus;
  1916.   symbol_ S_prin_jblpos;
  1917.   symbol_ S_backquote;
  1918.   symbol_ S_splice;
  1919.   symbol_ S_nsplice;
  1920.   symbol_ S_unquote;
  1921.   symbol_ S_structure_print;
  1922.   symbol_ S_defstruct_description;
  1923.   symbol_ S_print_object;
  1924.   symbol_ S_trace_values;
  1925.   symbol_ S_setf_function;
  1926.   symbol_ S_lambda;
  1927.   symbol_ S_LLoptional;
  1928.   symbol_ S_LLkey;
  1929.   symbol_ S_LLallow_other_keys;
  1930.   symbol_ S_LLrest;
  1931.   symbol_ S_LLaux;
  1932.   symbol_ S_macro;
  1933.   symbol_ S_special;
  1934.   symbol_ S_source;
  1935.   symbol_ S_optimize;
  1936.   symbol_ S_declaration;
  1937.   symbol_ S_compile_lambda;
  1938.   symbol_ S_expand_lambdabody_main;
  1939.   symbol_ S_compile;
  1940.   symbol_ S_evalhookstern;
  1941.   symbol_ S_applyhookstern;
  1942.   symbol_ S_macroexpand_hook;
  1943.   symbol_ S_lambda_parameters_limit;
  1944.   symbol_ S_call_arguments_limit;
  1945.   symbol_ S_multiple_values_limit;
  1946.   symbol_ S_jmpbuf_size;
  1947.   symbol_ S_big_endian;
  1948.   symbol_ S_Klambda;
  1949.   symbol_ S_keyword;
  1950.   symbol_ S_plus2;
  1951.   symbol_ S_plus3;
  1952.   symbol_ S_mal2;
  1953.   symbol_ S_mal3;
  1954.   symbol_ S_durch2;
  1955.   symbol_ S_durch3;
  1956.   symbol_ S_driverstern;
  1957.   symbol_ S_break_driver;
  1958.   symbol_ S_break_count;
  1959.   symbol_ S_recurse_count_standard_output;
  1960.   symbol_ S_frame_limit1;
  1961.   symbol_ S_frame_limit2;
  1962.   symbol_ S_load_input_stream;
  1963.   symbol_ S_setf;
  1964.   symbol_ S_psetf;
  1965.   symbol_ S_multiple_value_setf;
  1966.   symbol_ S_make_macro_expandercons;
  1967.   symbol_ S_pthe;
  1968.   symbol_ S_compile_form;
  1969.   symbol_ S_inline;
  1970.   symbol_ S_notinline;
  1971.   symbol_ S_get_funname_symbol;
  1972.   symbol_ S_inlinable;
  1973.   symbol_ S_symbol;
  1974.   symbol_ S_address;
  1975.   symbol_ S_file_stream;
  1976.   symbol_ S_synonym_stream;
  1977.   symbol_ S_broadcast_stream;
  1978.   symbol_ S_concatenated_stream;
  1979.   symbol_ S_two_way_stream;
  1980.   symbol_ S_echo_stream;
  1981.   symbol_ S_string_stream;
  1982.   symbol_ S_stream;
  1983.   symbol_ S_package;
  1984.   symbol_ S_readtable;
  1985.   symbol_ S_load_time_eval;
  1986.   symbol_ S_symbol_macro;
  1987.   symbol_ S_foreign_pointer;
  1988.   symbol_ S_finalizer;
  1989.   symbol_ S_compiled_function;
  1990.   symbol_ S_frame_pointer;
  1991.   symbol_ S_read_label;
  1992.   symbol_ S_system_internal;
  1993.   symbol_ S_fixnum;
  1994.   symbol_ S_bignum;
  1995.   symbol_ S_ratio;
  1996.   symbol_ S_short_float;
  1997.   symbol_ S_single_float;
  1998.   symbol_ S_double_float;
  1999.   symbol_ S_long_float;
  2000.   symbol_ S_standard_generic_function;
  2001.   symbol_ S_closclass;
  2002.   symbol_ S_typep;
  2003.   symbol_ S_deftype_expander;
  2004.   symbol_ S_gensym_counter;
  2005.   symbol_ S_inhibit_floating_point_underflow;
  2006.   symbol_ S_pi;
  2007.   symbol_ S_number;
  2008.   symbol_ S_real;
  2009.   symbol_ S_most_positive_fixnum;
  2010.   symbol_ S_most_negative_fixnum;
  2011.   symbol_ S_most_positive_short_float;
  2012.   symbol_ S_least_positive_short_float;
  2013.   symbol_ S_least_negative_short_float;
  2014.   symbol_ S_most_negative_short_float;
  2015.   symbol_ S_most_positive_single_float;
  2016.   symbol_ S_least_positive_single_float;
  2017.   symbol_ S_least_negative_single_float;
  2018.   symbol_ S_most_negative_single_float;
  2019.   symbol_ S_most_positive_double_float;
  2020.   symbol_ S_least_positive_double_float;
  2021.   symbol_ S_least_negative_double_float;
  2022.   symbol_ S_most_negative_double_float;
  2023.   symbol_ S_most_positive_long_float;
  2024.   symbol_ S_least_positive_long_float;
  2025.   symbol_ S_least_negative_long_float;
  2026.   symbol_ S_most_negative_long_float;
  2027.   symbol_ S_short_float_epsilon;
  2028.   symbol_ S_single_float_epsilon;
  2029.   symbol_ S_double_float_epsilon;
  2030.   symbol_ S_long_float_epsilon;
  2031.   symbol_ S_short_float_negative_epsilon;
  2032.   symbol_ S_single_float_negative_epsilon;
  2033.   symbol_ S_double_float_negative_epsilon;
  2034.   symbol_ S_long_float_negative_epsilon;
  2035.   symbol_ S_default_float_format;
  2036.   symbol_ S_read_default_float_format;
  2037.   symbol_ S_write_float;
  2038.   symbol_ S_random_state_stern;
  2039.   symbol_ S_init_hooks;
  2040.   symbol_ S_quiet;
  2041.   symbol_ S_Klisting;
  2042.   symbol_ S_Koutput_file;
  2043.   symbol_ S_compile_file;
  2044.   symbol_ S_batchmode_errors;
  2045.   symbol_ S_image_pathname;
  2046. } symbol_tab_data;
  2047. #define S(name)  S_help_(S_##name)
  2048. #define symbol_tab  symbol_tab_data
  2049. #define S_help_(name)  (type_constpointer_object(8,&symbol_tab.name))
  2050. #define NIL  S(nil)
  2051. #define T    S(t)
  2052. extern struct object_tab_ object_tab;
  2053. extern uintC module_count;
  2054. typedef struct { char* packname; char* symname; } subr_initdata;
  2055. typedef struct { char* initstring; } object_initdata;
  2056. typedef struct module_ { char* name; subr_* stab; uintC* stab_size; object* otab; uintC* otab_size; boolean initialized; subr_initdata* stab_initdata; object_initdata* otab_initdata; void (*initfunction1) _ARGS((struct module_ *)); void (*initfunction2) _ARGS((struct module_ *)); } module_;
  2057. extern module_ modules[];
  2058. #define STACK_(n)  (STACK[(sintP)(n)])
  2059. #define skipSTACKop  +=
  2060. #define pushSTACK(obj)  ({ __asm__ __volatile__ ("movel %0,%/a4@-" : : "g" ((object)(obj)) : "a4" ); })
  2061. #define popSTACK()  ({var object __result; __asm__ __volatile__ ("movel %/a4@+,%0" : "=g" (__result) : : "a4" ); __result; })
  2062. extern uintC mv_count;
  2063. extern object mv_space [127];
  2064. #define value1  mv_space[0]
  2065. extern object subr_self;
  2066. extern Values funcall _ARGS((object fun, uintC argcount));
  2067. #define LISPFUNN(name,req_anz)  LISPFUN(name,req_anz,0,norest,nokey,0,NIL)
  2068. #define LISPFUN_B(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  global Values C_##name subr_##rest_flag##_function_args
  2069. #define subr_norest_function_args  (void)
  2070. #define subr_rest_function_args  (reg4 uintC argcount, reg3 object* rest_args_pointer)
  2071. #define LISPFUN_F(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  { (lisp_function)(&C_##name), 0, 0, 0, req_anz, opt_anz, (uintB)subr_##rest_flag, (uintB)subr_##key_flag, key_anz, },
  2072. #define LISPFUN  LISPFUN_B
  2073. #define check_string_char(obj)  if (!string_char_p(obj)) { fehler_string_char(obj); }
  2074. #define check_uint8(obj)  if (!uint8_p(obj)) { fehler_uint8(obj); }
  2075. #define check_sint8(obj)  if (!sint8_p(obj)) { fehler_sint8(obj); }
  2076. #define check_uint16(obj)  if (!uint16_p(obj)) { fehler_uint16(obj); }
  2077. #define check_sint16(obj)  if (!sint16_p(obj)) { fehler_sint16(obj); }
  2078. #define check_uint32(obj)  if (!uint32_p(obj)) { fehler_uint32(obj); }
  2079. #define check_sint32(obj)  if (!sint32_p(obj)) { fehler_sint32(obj); }
  2080. #define check_uint64(obj)  if (!uint64_p(obj)) { fehler_uint64(obj); }
  2081. #define check_sint64(obj)  if (!sint64_p(obj)) { fehler_sint64(obj); }
  2082. #define check_uint(obj)  if (!uint_p(obj)) { fehler_uint(obj); }
  2083. #define check_sint(obj)  if (!sint_p(obj)) { fehler_sint(obj); }
  2084. #define check_ulong(obj)  if (!ulong_p(obj)) { fehler_ulong(obj); }
  2085. #define check_slong(obj)  if (!slong_p(obj)) { fehler_slong(obj); }
  2086. #define check_ffloat(obj)  if (!single_float_p(obj)) { fehler_ffloat(obj); }
  2087. #define check_dfloat(obj)  if (!double_float_p(obj)) { fehler_dfloat(obj); }
  2088. nonreturning_function(extern, fehler_uint8, (object obj));
  2089. nonreturning_function(extern, fehler_sint8, (object obj));
  2090. nonreturning_function(extern, fehler_uint16, (object obj));
  2091. nonreturning_function(extern, fehler_sint16, (object obj));
  2092. nonreturning_function(extern, fehler_uint32, (object obj));
  2093. nonreturning_function(extern, fehler_sint32, (object obj));
  2094. nonreturning_function(extern, fehler_uint64, (object obj));
  2095. nonreturning_function(extern, fehler_sint64, (object obj));
  2096. nonreturning_function(extern, fehler_uint, (object obj));
  2097. nonreturning_function(extern, fehler_sint, (object obj));
  2098. nonreturning_function(extern, fehler_ulong, (object obj));
  2099. nonreturning_function(extern, fehler_slong, (object obj));
  2100. nonreturning_function(extern, fehler_sfloat, (object obj));
  2101. nonreturning_function(extern, fehler_dfloat, (object obj));
  2102. extern object L_to_I _ARGS((sint32 wert));
  2103. extern object UL_to_I _ARGS((uintL wert));
  2104. extern object L2_to_I _ARGS((sint32 wert_hi, uint32 wert_lo));
  2105. extern object UL2_to_I _ARGS((uint32 wert_hi, uint32 wert_lo));
  2106. #define uint8_to_I(val)  fixnum((uint8)(val))
  2107. #define sint8_to_I(val)  L_to_I((sint32)(sint8)(val))
  2108. #define uint16_to_I(val)  fixnum((uint16)(val))
  2109. #define sint16_to_I(val)  L_to_I((sint32)(sint16)(val))
  2110. #define uint32_to_I(val)  UL_to_I((uint32)(val))
  2111. #define sint32_to_I(val)  L_to_I((sint32)(val))
  2112. #define uint64_to_I(val)  UL2_to_I((uint32)((val)>>32),(uint32)(val))
  2113. #define sint64_to_I(val)  L2_to_I((sint32)((val)>>32),(uint32)(val))
  2114. #define uint_to_I(val)  uint32_to_I(val)
  2115. #define sint_to_I(val)  sint32_to_I(val)
  2116. #define ulong_to_I(val)  uint32_to_I(val)
  2117. #define slong_to_I(val)  sint32_to_I(val)
  2118. extern uintL I_to_UL _ARGS((object obj));
  2119. extern sintL I_to_L _ARGS((object obj));
  2120. extern uint64 I_to_UQ _ARGS((object obj));
  2121. extern sint64 I_to_Q _ARGS((object obj));
  2122. #define I_to_uint8(obj)  (uint8)(as_oint(obj) >> 6)
  2123. #define I_to_sint8(obj)  (sint8)(as_oint(obj) >> 6)
  2124. #define I_to_uint16(obj)  (uint16)(as_oint(obj) >> 6)
  2125. #define I_to_sint16(obj)  (sint16)(as_oint(obj) >> 6)
  2126. #define I_to_uint32(obj)  I_to_UL(obj)
  2127. #define I_to_sint32(obj)  I_to_L(obj)
  2128. #define I_to_uint64(obj)  I_to_UQ(obj)
  2129. #define I_to_sint64(obj)  I_to_Q(obj)
  2130. #define I_to_uint  I_to_uint32
  2131. #define I_to_sint  I_to_sint32
  2132. #define I_to_ulong  I_to_uint32
  2133. #define I_to_slong  I_to_sint32
  2134. extern object c_float_to_FF _ARGS((ffloatjanus* val_));
  2135. extern void FF_to_c_float _ARGS((object obj, ffloatjanus* val_));
  2136. extern object c_double_to_DF _ARGS((dfloatjanus* val_));
  2137. extern void DF_to_c_double _ARGS((object obj, dfloatjanus* val_));
  2138. #endif /* _CLISP_H */
  2139.