1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
|
/* for file nfunlink.X */
extern object Icall_proc GPR((object fun_name, int link_desk, object (**link_loc) ( ), ...));;
extern float Icall_proc_float GPR((object fun_name, int link_desk, object (**link_loc) ( ), ...));;
extern object IapplyVector GPR((object fun, int nargs, object *base));;
extern int Iinvoke_c_function_from_value_stack GPR((int f, int fargd));;
/* for file alloc.X */
extern char *alloc_page GPR((int n));;
extern void add_page_to_freelist GPR((char *p, struct typemanager *tm));;
extern object alloc_object GPR((enum type t));;
extern int grow_linear GPR((int old, int fract, int grow_min, int grow_max));;
extern object make_cons GPR((object a, object d));;
extern object on_stack_cons GPR((object x, object y));;
extern void call_after_gbc_hook GPR((int t));;
extern object fSallocated GPR((object typ));;
extern char *alloc_contblock GPR((int n));;
extern int insert_contblock GPR((char *p, int s));;
extern int insert_maybe_sgc_contblock GPR((char *p, int s));;
extern char *alloc_relblock GPR((int n));;
extern int init_tm GPR((enum type t, char *name, int elsize, int nelts, int sgc));;
extern int set_maxpage GPR((void));;
extern int init_alloc GPR((void));;
extern int cant_get_a_type GPR((void));;
extern int siLallocate GPR((void));;
extern int t_from_type GPR((object type));;
extern object siSallocate_sgc GPR((object type, int min, int max, int free_percent));;
extern object siSallocate_growth GPR((object type, int min, int max, int percent, int percent_free));;
extern int siLallocated_pages GPR((void));;
extern int siLmaxpage GPR((void));;
extern int siLalloc_contpage GPR((void));;
extern int siLncbpage GPR((void));;
extern int siLmaxcbpage GPR((void));;
extern int siLalloc_relpage GPR((void));;
extern int siLnrbpage GPR((void));;
extern int siLget_hole_size GPR((void));;
extern int siLset_hole_size GPR((void));;
extern int init_alloc_function GPR((void));;
extern char *malloc GPR((int size));;
extern void free GPR((void *ptr));;
extern char *realloc GPR((char *ptr, int size));;
extern char *calloc GPR((int nelem, int elsize));;
extern int cfree GPR((char *ptr));;
extern char *memalign GPR((int align, int size));;
extern char *valloc GPR((int size));;
/* for file array.X */
extern enum aelttype get_aelttype GPR((object x));;
extern enum aelttype array_elttype GPR((object x));;
extern char *array_address GPR((object x, int inc));;
extern char *raw_aet_ptr GPR((object x, short int typ));;
extern int gset GPR((char *p1, char *val, int n, int typ));;
extern int copy_array_portion GPR((object x, object y, int i1, int i2, int n1));;
extern int siLcopy_array_portion GPR((void));;
extern int array_allocself GPR((object x, bool staticp, object dflt));;
extern object aref GPR((object x, int index));;
extern object aset GPR((object x, int index, object value));;
extern object aref1 GPR((object v, int index));;
extern object aset1 GPR((object v, int index, object val));;
extern int displace GPR((object from, object to, object offset));;
extern int undisplace GPR((object from));;
extern int check_displaced GPR((object dlist, object orig, int newdim));;
extern int adjust_displaced GPR((object x, int diff));;
extern int setup_fillp GPR((object x, object fillp));;
extern int siLmake_pure_array GPR((void));;
extern int siLmake_vector GPR((void));;
extern int Laref GPR((void));;
extern int siLaset GPR((void));;
extern int Larray_element_type GPR((void));;
extern int Larray_rank GPR((void));;
extern int Larray_dimension GPR((void));;
extern int Larray_total_size GPR((void));;
extern int Ladjustable_array_p GPR((void));;
extern int siLdisplaced_array_p GPR((void));;
extern int Lsvref GPR((void));;
extern int siLsvset GPR((void));;
extern int Larray_has_fill_pointer_p GPR((void));;
extern int Lfill_pointer GPR((void));;
extern int siLfill_pointer_set GPR((void));;
extern int siLreplace_array GPR((void));;
extern int siLaset_by_cursor GPR((void));;
extern int init_array_function GPR((void));;
/* for file assignment.X */
extern int setq GPR((object sym, object val));;
extern int Fsetq GPR((object form));;
extern int Fpsetq GPR((object arg));;
extern int Lset GPR((void));;
extern int siLfset GPR((void));;
extern int Fmultiple_value_setq GPR((object form));;
extern int Lmakunbound GPR((void));;
extern int Lfmakunbound GPR((void));;
extern int Fsetf GPR((object form));;
extern int setf GPR((object place, object form));;
extern int Fpush GPR((object form));;
extern int Fpop GPR((object form));;
extern int Fincf GPR((object form));;
extern int Fdecf GPR((object form));;
extern object clear_compiler_properties GPR((object sym, object code));;
extern int siLclear_compiler_properties GPR((void));;
extern int init_assignment GPR((void));;
/* for file backq.X */
extern int kwote_cdr GPR((void));;
extern int kwote_car GPR((void));;
extern int backq_cdr GPR((object x));;
extern int backq_car GPR((object x));;
extern object backq GPR((object x));;
extern int Lcomma_reader GPR((void));;
extern int Lbackquote_reader GPR((void));;
extern int init_backq GPR((void));;
/* for file bcmp.X */
extern int bcmp GPR((char *s1, char *s2, int n));;
/* for file bcopy.X */
extern void bcopy GPR((char *s1, char *s2, int n));;
/* for file bds.X */
extern int bds_unwind GPR((bds_ptr new_bds_top));;
/* for file big.X */
extern int bcopy_body GPR((GEN x, GEN y));;
extern object make_integer GPR((GEN u));;
extern object make_bignum GPR((GEN u));;
extern int big_zerop GPR((object x));;
extern int big_compare GPR((object x, object y));;
extern object big_minus GPR((object x));;
extern int gcopy_to_big GPR((GEN res, object x));;
extern int add_int_big GPR((int i, object x));;
extern int sub_int_big GPR((int i, object x));;
extern int mul_int_big GPR((int i, object x));;
extern int div_int_big GPR((int i, object x));;
extern object big_plus GPR((object x, object y));;
extern object big_times GPR((object x, object y));;
extern int big_quotient_remainder GPR((object x0, object y0, object *qp, object *rp));;
extern double big_to_double GPR((object x));;
extern object normalize_big_to_object GPR((object x));;
extern object copy_big GPR((object x));;
extern object copy_to_big GPR((object x));;
extern GEN powerii GPR((GEN x, GEN y));;
extern int replace_copy1 GPR((GEN x, GEN y));;
extern GEN replace_copy2 GPR((GEN x, GEN y));;
extern int obj_replace_copy1 GPR((object x, GEN y));;
extern GEN obj_replace_copy2 GPR((object x, GEN y));;
extern GEN1 otoi GPR((object x));;
extern object alloc_bignum_static GPR((int len));;
extern GEN1 setq_io GPR((GEN x, object *all, object val));;
extern GEN1 setq_ii GPR((GEN x, object *all, GEN val));;
extern void isetq_fix GPR((GEN var, int s));;
extern GEN icopy_bignum GPR((object a, GEN y));;
extern GEN icopy_fixnum GPR((object a, GEN y));;
/* for file bind.X */
extern int lambda_bind GPR((object *arg_top));;
extern int bind_var GPR((object var, object val, object spp));;
extern int illegal_lambda GPR((void));;
extern object find_special GPR((object body, struct bind_temp *start, struct bind_temp *end));;
extern object let_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
extern object letA_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
extern int parse_key GPR((object *base, bool rest, bool allow_other_keys, register int n, int __builtin_va_alist));;
extern int check_other_key GPR((object l, int n, int __builtin_va_alist));;
extern int parse_key_new GPR((int n, object *base, struct key *keys, ...));;
extern int parse_key_rest GPR((object rest, int n, object *base, struct key *keys, ...));;
extern int set_key_struct GPR((struct key *ks, object data));;
extern int init_bind GPR((void));;
/* for file bitop.X */
extern int get_mark_bit GPR((void));;
extern int set_mark_bit GPR((void));;
extern int get_set_mark_bit GPR((void));;
/* for file block.X */
extern int Fblock GPR((object args));;
extern int Freturn_from GPR((object args));;
extern int Freturn GPR((object args));;
extern int init_block GPR((void));;
/* for file bzero.X */
extern int bzero GPR((char *b, int length));;
/* for file catch.X */
extern int Fcatch GPR((object args));;
extern int siLerror_set GPR((void));;
extern int Funwind_protect GPR((object args));;
extern int Fthrow GPR((object args));;
extern int init_catch GPR((void));;
/* for file cfun.X */
extern object make_cfun GPR((int (*self) ( ), object name, object data, char *start, int size));;
extern object make_sfun GPR((object name, int (*self) ( ), int argd, object data));;
extern object make_vfun GPR((object name, int (*self) ( ), int argd, object data));;
extern object make_cclosure_new GPR((int (*self) ( ), object name, object env, object data));;
extern object make_cclosure GPR((int (*self) ( ), object name, object env, object data, char *start, int size));;
extern int siLmc GPR((void));;
extern object MFsfun GPR((object sym, int (*self) ( ), int argd, object data));;
extern int siLmfsfun GPR((void));;
extern object MFvfun GPR((object sym, int (*self) ( ), int argd, object data));;
extern int siLmfvfun GPR((void));;
extern object MFvfun_key GPR((object sym, int (*self) ( ), int argd, object data, char *keys));;
extern int siLmfvfun_key GPR((void));;
extern object MFnew GPR((object sym, int (*self) ( ), object data));;
extern int siLmf GPR((void));;
extern object MF GPR((object sym, int (*self) ( ), char *start, int size, object data));;
extern object MM GPR((object sym, int (*self) ( ), char *start, int size, object data));;
extern int siLmm GPR((void));;
extern object make_function GPR((char *s, int (*f) ( )));;
extern object make_si_sfun GPR((char *s, int (*f) ( ), int argd));;
extern object make_si_vfun1 GPR((char *s, int (*f) ( ), int argd));;
extern object make_si_function GPR((char *s, int (*f) ( )));;
extern object make_special_form GPR((char *s, int (*f) ( )));;
extern int siLcompiled_function_name GPR((void));;
extern int turbo_closure GPR((object fun));;
extern int siLturbo_closure GPR((void));;
extern int init_cfun GPR((void));;
/* for file character.X */
extern int Lstandard_char_p GPR((void));;
extern int Lgraphic_char_p GPR((void));;
extern int Lstring_char_p GPR((void));;
extern int Lalpha_char_p GPR((void));;
extern int Lupper_case_p GPR((void));;
extern int Llower_case_p GPR((void));;
extern int Lboth_case_p GPR((void));;
extern int digitp GPR((int i, int r));;
extern int Ldigit_char_p GPR((void));;
extern int Lalphanumericp GPR((void));;
extern bool char_eq GPR((object x, object y));;
extern int Lchar_eq GPR((void));;
extern int Lchar_neq GPR((void));;
extern int char_cmp GPR((object x, object y));;
extern int Lchar_cmp GPR((int s, int t));;
extern int Lchar_l GPR((void));;
extern int Lchar_g GPR((void));;
extern int Lchar_le GPR((void));;
extern int Lchar_ge GPR((void));;
extern bool char_equal GPR((object x, object y));;
extern int Lchar_equal GPR((void));;
extern int Lchar_not_equal GPR((void));;
extern int char_compare GPR((object x, object y));;
extern int Lchar_compare GPR((int s, int t));;
extern int Lchar_lessp GPR((void));;
extern int Lchar_greaterp GPR((void));;
extern int Lchar_not_greaterp GPR((void));;
extern int Lchar_not_lessp GPR((void));;
extern object coerce_to_character GPR((object x));;
extern int Lcharacter GPR((void));;
extern int Lchar_code GPR((void));;
extern int Lchar_bits GPR((void));;
extern int Lchar_font GPR((void));;
extern int Lcode_char GPR((void));;
extern int Lmake_char GPR((void));;
extern int Lchar_upcase GPR((void));;
extern int Lchar_downcase GPR((void));;
extern int digit_weight GPR((int w, int r));;
extern int Ldigit_char GPR((void));;
extern int Lchar_int GPR((void));;
extern int Lint_char GPR((void));;
extern int Lchar_name GPR((void));;
extern int Lname_char GPR((void));;
extern int Lchar_bit GPR((void));;
extern int Lset_char_bit GPR((void));;
extern int init_character GPR((void));;
extern int init_character_function GPR((void));;
/* for file cmpaux.X */
extern int siLspecialp GPR((void));;
extern void siLdefvar1 GPR((void));;
extern void siLdebug GPR((void));;
extern void siLsetvv GPR((void));;
extern int init_cmpaux GPR((void));;
extern int ifloor GPR((int x, int y));;
extern int imod GPR((int x, int y));;
extern int set_VV_data GPR((object *VV, int n, object data, char *start, int size));;
extern int set_VV GPR((object *VV, int n, object data));;
extern char object_to_char GPR((object x));;
extern int object_to_int GPR((object x));;
extern float object_to_float GPR((object x));;
extern double object_to_double GPR((object x));;
extern char *object_to_string GPR((object x));;
extern int call_init GPR((int init_address, object memory, object fasl_vec));;
extern int do_init GPR((object *statVV));;
extern void init_or_load1 GPR((int (*fn) ( ), char *file));;
/* for file conditional.X */
extern int Fif GPR((object form));;
extern int Fcond GPR((object args));;
extern int Fcase GPR((object arg));;
extern int Fwhen GPR((object form));;
extern int Funless GPR((object form));;
extern int init_conditional GPR((void));;
/* for file earith.X */
extern int init_cmac GPR((void));;
extern object signed_bignum2 GPR((int hi, int lo));;
extern object fplus GPR((int a, int b));;
extern object fminus GPR((int a, int b));;
extern int dblrem GPR((int a, int b, int mod));;
extern object cmod GPR((object x));;
extern object ctimes GPR((object a, object b));;
extern object cdifference GPR((object a, object b));;
extern object cplus GPR((object a, object b));;
extern void siLcmod GPR((void));;
extern void siLcplus GPR((void));;
extern void siLctimes GPR((void));;
extern void siLcdifference GPR((void));;
extern object memq GPR((register object a, register object b));;
/* for file error.X */
extern int terminal_interrupt GPR((int correctable));;
extern object ihs_function_name GPR((object x));;
extern object ihs_top_function_name GPR((void));;
extern int call_error_handler GPR((void));;
extern int FEerror GPR((char *s, int num, object arg1, object arg2, object arg3, object arg4));;
extern int FEwrong_type_argument GPR((object type, object value));;
extern int FEtoo_few_arguments GPR((object *base, object *top));;
extern int FEtoo_few_argumentsF GPR((object args));;
extern int FEtoo_many_arguments GPR((object *base, object *top));;
extern int FEtoo_many_argumentsF GPR((object args));;
extern int FEinvalid_macro_call GPR((void));;
extern int FEunexpected_keyword GPR((object key));;
extern int FEinvalid_form GPR((char *s, object form));;
extern int FEunbound_variable GPR((object sym));;
extern int FEinvalid_variable GPR((char *s, object obj));;
extern int FEundefined_function GPR((object fname));;
extern int FEinvalid_function GPR((object obj));;
extern int CEerror GPR((char *err_str, char *cont_str, int num, object arg1, object arg2, object arg3, object arg4));;
extern ihs_ptr get_ihs_ptr GPR((object x));;
extern int siLihs_top GPR((void));;
extern int siLihs_fun GPR((void));;
extern int siLihs_vs GPR((void));;
extern frame_ptr get_frame_ptr GPR((object x));;
extern int siLfrs_top GPR((void));;
extern int siLfrs_vs GPR((void));;
extern int siLfrs_bds GPR((void));;
extern int siLfrs_class GPR((void));;
extern int siLfrs_tag GPR((void));;
extern int siLfrs_ihs GPR((void));;
extern bds_ptr get_bds_ptr GPR((object x));;
extern int siLbds_top GPR((void));;
extern int siLbds_var GPR((void));;
extern int siLbds_val GPR((void));;
extern object *get_vs_ptr GPR((object x));;
extern int siLvs_top GPR((void));;
extern int siLvs GPR((void));;
extern int siLsch_frs_base GPR((void));;
extern int siLinternal_super_go GPR((void));;
extern int siLuniversal_error_handler GPR((void));;
extern int check_arg_failed GPR((int n));;
extern int too_few_arguments GPR((void));;
extern int too_many_arguments GPR((void));;
extern int ck_larg_at_least GPR((int n, object x));;
extern int ck_larg_exactly GPR((int n, object x));;
extern int invalid_macro_call GPR((void));;
extern int keyword_value_mismatch GPR((void));;
extern int not_a_keyword GPR((object x));;
extern int unexpected_keyword GPR((object key));;
extern object wrong_type_argument GPR((object typ, object obj));;
extern int illegal_declare GPR((int form));;
extern int not_a_symbol GPR((int obj));;
extern int not_a_variable GPR((int obj));;
extern int illegal_index GPR((object x, object i));;
extern int Lerror GPR((void));;
extern object LVerror GPR((int __builtin_va_alist));;
extern int Lcerror GPR((void));;
extern int vfun_wrong_number_of_args GPR((object x));;
extern int init_error GPR((void));;
/* for file eval.X */
extern int quick_call_sfun GPR((object fun));;
extern int call_sfun_no_check GPR((object fun));;
extern int call_vfun GPR((object fun));;
extern int funcall GPR((object fun));;
extern int funcall_no_event GPR((object fun));;
extern int lispcall GPR((object *funp, int narg));;
extern int lispcall_no_event GPR((object *funp, int narg));;
extern int symlispcall GPR((object sym, object *base, int narg));;
extern int symlispcall_no_event GPR((object sym, object *base, int narg));;
extern object simple_lispcall GPR((object *funp, int narg));;
extern object simple_lispcall_no_event GPR((object *funp, int narg));;
extern object simple_symlispcall GPR((object sym, object *base, int narg));;
extern object simple_symlispcall_no_event GPR((object sym, object *base, int narg));;
extern int super_funcall GPR((object fun));;
extern int super_funcall_no_event GPR((object fun));;
extern int eval GPR((object form));;
extern int call_applyhook GPR((object fun));;
extern int Lfuncall GPR((void));;
extern int Lapply GPR((void));;
extern int Leval GPR((void));;
extern int Levalhook GPR((void));;
extern int Lapplyhook GPR((void));;
extern int Lconstantp GPR((void));;
extern object ieval GPR((object x));;
extern object ifuncall1 GPR((object fun, object arg1));;
extern object ifuncall2 GPR((object fun, object arg1, object arg2));;
extern object ifuncall3 GPR((object fun, object arg1, object arg2, object arg3));;
extern int funcall_with_catcher GPR((object fname, object fun));;
extern object fcalln_cclosure GPR((...));;
extern object fcalln_general GPR((...));;
extern object fcalln_vfun GPR((va_list vl));;
extern object fcalln GPR((int __builtin_va_alist));;
extern object funcall_cfun GPR((funcvoid fn, int n, int __builtin_va_alist));;
extern int init_eval GPR((void));;
|
