1
2 /* $destdir\u60.c Machine generated C code */
3
4 /* Signature: 00000000 28-Sep-2011 */
5
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include <string.h>
9 #include <ctype.h>
10 #include <stdarg.h>
11 #include <time.h>
12 #ifndef _cplusplus
13 #include <setjmp.h>
14 #endif
15
16 #include "config.h"
17
18 #ifndef header_machine_h
19 #define header_machine_h 1
20 #if !defined UNDER_CE && !defined EMBEDDED
21 #if ((defined HAVE_SOCKET && defined HAVE_SYS_SOCKET_H) || defined WIN32)
22 #define SOCKETS 1
23 #endif
24 #endif
25 #ifndef MS_CDECL
26 #ifdef _MSC_VER
27 # define MS_CDECL __cdecl
28 #else
29 # define MS_CDECL
30 #endif
31 #endif
32 #ifdef WIN32
33 # if defined WIN64 || defined __WIN64__
34 # define OPSYS "win64"
35 # define IMPNAME "win64"
36 # else
37 # define OPSYS "win32"
38 # define IMPNAME "win32"
39 # endif
40 #else
41 # ifdef HOST_OS
42 # define OPSYS HOST_OS
43 # ifdef HOST_CPU
44 # define IMPNAME HOST_OS ":" HOST_CPU
45 # else
46 # define IMPNAME HOST_OS
47 # endif
48 # else
49 # define OPSYS "Unknown"
50 # define IMPNAME "Generic"
51 # endif
52 #endif
53 #ifdef HAVE_STDINT_H
54 #include <stdint.h>
55 #else
56 #ifndef HAVE_UINT32_T
57 #ifdef HAVE_U_INT32_T
58 typedef u_int32_t uint32_t;
59 #define HAVE_UINT32_T 1
60 #endif
61 #endif
62 #ifndef HAVE_UINT64_T
63 #ifdef HAVE_U_INT64_T
64 typedef u_int64_t uint64_t;
65 #define HAVE_UINT64_T 1
66 #endif
67 #endif
68 #ifndef HAVE_UINTPTR_T
69 #ifdef HAVE_U_INTPTR_T
70 typedef u_intptr_t uintptr_t;
71 #define HAVE_UINTPTR_T 1
72 #endif
73 #endif
74 #if !defined HAVE_INT32_T && defined SIZEOF_INT && (SIZEOF_INT == 4)
75 typedef int int32_t;
76 #define HAVE_INT32_T 1
77 #endif
78 #if !defined HAVE_UINT32_T && defined SIZEOF_INT && (SIZEOF_INT == 4)
79 typedef unsigned int uint32_t;
80 #define HAVE_UINT32_T 1
81 #endif
82 #if !defined HAVE_INT32_T && defined SIZEOF_SHORT_INT && (SIZEOF_SHORT_INT == 4)
83 typedef short int int32_t;
84 #define HAVE_INT32_T 1
85 #endif
86 #if !defined HAVE_UINT32_T && defined SIZEOF_SHORT_INT && (SIZEOF_SHORT_INT == 4)
87 typedef unsigned short int uint32_t;
88 #define HAVE_UINT32_T 1
89 #endif
90 #if !defined HAVE_INT64_T && defined SIZEOF_LONG && (SIZEOF_LONG == 8)
91 typedef long int64_t;
92 #define HAVE_INT64_T 1
93 #endif
94 #if !defined HAVE_UINT64_T && defined SIZEOF_LONG && (SIZEOF_LONG == 8)
95 typedef unsigned long uint64_t;
96 #define HAVE_UINT64_T 1
97 #endif
98 #if !defined HAVE_INT64_T && defined SIZEOF_LONG_LONG && (SIZEOF_LONG_LONG == 8)
99 typedef long long int64_t;
100 #define HAVE_INT64_T 1
101 #endif
102 #if !defined HAVE_UINT64_T && defined SIZEOF_LONG_LONG && (SIZEOF_LONG_LONG == 8)
103 typedef unsigned long long uint64_t;
104 #define HAVE_UINT64_T 1
105 #endif
106 #if !defined HAVE_INTPTR_T && defined SIZEOF_VOID_P && (SIZEOF_VOID_P == 4) && defined HAVE_INT32_T
107 typedef int32_t intptr_t;
108 #define HAVE_INTPTR_T 1
109 #endif
110 #if !defined HAVE_INTPTR_T && defined SIZEOF_VOID_P && (SIZEOF_VOID_P == 8) && defined HAVE_INT64_T
111 typedef int64_t intptr_t;
112 #define HAVE_INTPTR_T 1
113 #endif
114 #if !defined HAVE_UINTPTR_T && defined SIZEOF_VOID_P && (SIZEOF_VOID_P == 4) && defined HAVE_UINT32_T
115 typedef uint32_t uintptr_t;
116 #define HAVE_UINTPTR_T 1
117 #endif
118 #if !defined HAVE_UINTPTR_T && defined SIZEOF_VOID_P && (SIZEOF_VOID_P == 8) && defined HAVE_UINT64_T
119 typedef uint64_t uintptr_t;
120 #define HAVE_UINTPTR_T 1
121 #endif
122 #endif
123 #endif
124 #ifndef header_tags_h
125 #define header_tags_h 1
126 #if !defined HAVE_STDINT_H || !defined HAVE_INT32_T
127 #error This system needs a 32-bit integer type.
128 #endif
129 #define SIXTY_FOUR_BIT (sizeof(intptr_t) == 8)
130 typedef int CSLbool;
131 #define YES 1
132 #define NO 0
133 #ifndef PAGE_BITS
134 # define PAGE_BITS 22
135 #endif
136 #define PAGE_POWER_OF_TWO (((uint32_t)1) << PAGE_BITS)
137 #define CSL_PAGE_SIZE (PAGE_POWER_OF_TWO - 256U)
138 #ifndef MAX_HEAPSIZE
139 # define MAX_HEAPSIZE (SIXTY_FOUR_BIT ? (512*1024) : 2048)
140 #endif
141 #ifndef MAX_BPSSIZE
142 # define MAX_BPSSIZE 64
143 #endif
144 #define MEGABYTE ((uint32_t)0x100000U)
145 #if PAGE_BITS >= 20
146 #define MAX_PAGES (MAX_HEAPSIZE >> (PAGE_BITS-20))
147 #define MAX_BPS_PAGES (MAX_BPSSIZE >> (PAGE_BITS-20))
148 #else
149 #define MAX_PAGES (MAX_HEAPSIZE << (20-PAGE_BITS))
150 #define MAX_BPS_PAGES (MAX_BPSSIZE << (20-PAGE_BITS))
151 #endif
152 #define MAX_NATIVE_PAGES MAX_BPS_PAGES
153 #define CSL_IGNORE(x) (x = x)
154 #define LONGEST_LEGAL_FILENAME 1024
155 #define FP_WORD_ORDER 0x01
156 #define FP_BYTE_ORDER 0x02
157 #define FP_MASK 0xff
158 typedef intptr_t Lisp_Object;
159 #define CELL sizeof(Lisp_Object)
160 #define TAG_BITS 7
161 #define TAG_CONS 0
162
163 #define TAG_FIXNUM 1
164 #define TAG_ODDS 2
165 #ifdef COMMON
166 #define TAG_SFLOAT 3
167 #endif
168 #define TAG_SYMBOL 4
169 #define TAG_NUMBERS 5
170 #define TAG_VECTOR 6
171 #define TAG_BOXFLOAT 7
172 #define fixnum_of_int(x) ((Lisp_Object)(TAG_FIXNUM + (((int32_t)(x)) << 4)))
173 #ifdef SIGNED_SHIFTS_ARE_LOGICAL
174 #define int_of_fixnum(x) ((int32_t)(((int32_t)(x)) < 0 ? \
175 (((int32_t)(x))>>4) | (-0x10000000) : \
176 (((int32_t)(x))>>4)))
177 #else
178 #define int_of_fixnum(x) ((int32_t)(((int32_t)(x)) >> 4))
179 #endif
180 #define GC_BIT_I 8
181 #define GC_BIT_H 8
182 #define GC_BIT_P ((intptr_t)~((~(uintptr_t)0) >> 1))
183 #define is_marked_i(w) (((int)(w) & GC_BIT_I) != 0)
184 extern Lisp_Object address_sign;
185 #define is_marked_p(w) (((Lisp_Object)(w) - address_sign) < 0)
186 #define clear_mark_bit_p(w) (((Lisp_Object)(w) & ~GC_BIT_P) + \
187 address_sign)
188 #define flip_mark_bit_i(w) ((Lisp_Object)(w) ^ GC_BIT_I)
189 #define flip_mark_bit_h(w) ((Header)(w) ^ GC_BIT_H)
190 #define flip_mark_bit_p(w) ((Lisp_Object)(w) ^ GC_BIT_P)
191 #define is_marked_h(w) (((int)(w) & GC_BIT_H) != 0)
192 #define exception_pending() (((int)nil & 1) != 0)
193 #define flip_exception() (nil = C_nil = (nil ^ 1))
194 #define ignore_exception() \
195 do { nil = C_nil; if (exception_pending()) flip_exception(); } while (0)
196 #define set_mark_bit_h(h) ((Header)(h) | GC_BIT_H)
197 #define clear_mark_bit_h(h) ((Header)(h) & ~GC_BIT_H)
198 #define set_mark_bit_i(h) ((Lisp_Object)(h) | GC_BIT_I)
199 #define clear_mark_bit_i(h) ((Lisp_Object)(h) & ~GC_BIT_I)
200 #define is_cons(p) ((((int)(p)) & TAG_BITS) == TAG_CONS)
201 #define is_fixnum(p) ((((int)(p)) & TAG_BITS) == TAG_FIXNUM)
202 #define is_odds(p) ((((int)(p)) & TAG_BITS) == TAG_ODDS)
203 #ifdef COMMON
204 #define is_sfloat(p) ((((int)(p)) & TAG_BITS) == TAG_SFLOAT)
205 #endif
206 #define is_symbol(p) ((((int)(p)) & TAG_BITS) == TAG_SYMBOL)
207 #define is_numbers(p)((((int)(p)) & TAG_BITS) == TAG_NUMBERS)
208 #define is_vector(p) ((((int)(p)) & TAG_BITS) == TAG_VECTOR)
209 #define is_bfloat(p) ((((int)(p)) & TAG_BITS) == TAG_BOXFLOAT)
210 #ifdef COMMON
211 #define consp(p) (is_cons(p) && (p) != nil)
212 #define symbolp(p) (is_symbol(p) || (p) == nil)
213 #else
214 #define consp(p) is_cons(p)
215 #define symbolp(p) is_symbol(p)
216 #endif
217 #define car_legal(p) is_cons(p)
218 #define is_number(p) ((((int)(p)) & 1) != 0)
219 #define is_float(p) ((((int)(p)) & 3) == 3)
220 #define is_immed_or_cons(p) ((((int)(p)) & 4) == 0)
221 typedef struct Cons_Cell
222 {
223 Lisp_Object car;
224 Lisp_Object cdr;
225 } Cons_Cell;
226 #ifdef MEMORY_TRACE
227 extern Cons_Cell *memory_reference(intptr_t p);
228 extern char *cmemory_reference(intptr_t p);
229 extern void identify_page_types();
230 extern long int car_counter;
231 extern unsigned long int car_low, car_high;
232 #define qcar(p) (memory_reference((intptr_t)p)->car)
233 #define qcdr(p) (memory_reference((intptr_t)p)->cdr)
234 #else
235 #define qcar(p) (((Cons_Cell *) (p))->car)
236 #define qcdr(p) (((Cons_Cell *) (p))->cdr)
237 #endif
238 #define car32(p) (*(int32_t *)(p))
239 #define cdr32(p) (*(int32_t *)(p))[1])
240 typedef Lisp_Object Special_Form(Lisp_Object, Lisp_Object);
241 typedef Lisp_Object one_args(Lisp_Object, Lisp_Object);
242 typedef Lisp_Object two_args(Lisp_Object, Lisp_Object, Lisp_Object);
243 typedef Lisp_Object MS_CDECL n_args(Lisp_Object, int, ...);
244 typedef uintptr_t Header;
245 #define header_mask 0x3f0
246 #define type_of_header(h) (((unsigned int)(h)) & header_mask)
247 #define length_of_header(h) (((uint32_t)(h)) >> 10)
248 #define TYPE_SYMBOL 0x00000010
249 #define SYM_SPECIAL_VAR 0x00000040
250 #define SYM_GLOBAL_VAR 0x00000080
251 #define SYM_SPECIAL_FORM 0x00000100
252 #define SYM_MACRO 0x00000200
253 #define SYM_C_DEF 0x00000400
254 #define SYM_CODEPTR 0x00000800
255 #define SYM_ANY_GENSYM 0x00001000
256 #define SYM_TRACED 0x00002000
257 #define SYM_FASTGET_MASK 0x000fc000
258 #define SYM_FASTGET_SHIFT 14
259 #ifdef COMMON
260 #define SYM_EXTERN_IN_HOME 0x00100000
261 #define SYM_IN_PACKAGE 0xffe00000
262 #define SYM_IN_PKG_SHIFT 23
263 #define SYM_IN_PKG_COUNT 11
264 #else
265 #define SYM_UNPRINTED_GENSYM 0x00100000
266 #endif
267 #define symhdr_length ((sizeof(Symbol_Head) + 7) & ~7)
268 #define is_symbol_header(h) (((int)h & 0x30) == TYPE_SYMBOL)
269 #define header_fastget(h) (((h) >> SYM_FASTGET_SHIFT) & 0x3f)
270 #define TYPE_BIGNUM 0x020
271 #ifdef COMMON
272 #define TYPE_RATNUM 0x060
273 #define TYPE_COMPLEX_NUM 0x0a0
274 #define TYPE_SINGLE_FLOAT 0x120
275 #endif
276 #define TYPE_DOUBLE_FLOAT 0x160
277 #ifdef COMMON
278 #define TYPE_LONG_FLOAT 0x1a0
279 #endif
280 #ifdef MEMORY_TRACE
281 #define numhdr(v) (*(Header *)memory_reference((intptr_t)((char *)(v) - \
282 TAG_NUMBERS)))
283 #define flthdr(v) (*(Header *)memory_reference((intptr_t)((char *)(v) - \
284 TAG_BOXFLOAT)))
285 #else
286 #define numhdr(v) (*(Header *)((char *)(v) - TAG_NUMBERS))
287 #define flthdr(v) (*(Header *)((char *)(v) - TAG_BOXFLOAT))
288 #endif
289 #define is_numbers_header(h) (((int)(h) & 0x330) == 0x020)
290 #define is_boxfloat_header(h)(((int)(h) & 0x330) == 0x120)
291 #ifdef COMMON
292 #define is_ratio(n) \
293 (type_of_header(numhdr(n)) == TYPE_RATNUM)
294 #define is_complex(n) \
295 (type_of_header(numhdr(n)) == TYPE_COMPLEX_NUM)
296 #endif
297 #define is_bignum_header(h) (type_of_header(h) == TYPE_BIGNUM)
298 #define is_bignum(n) is_bignum_header(numhdr(n))
299 #define ADDRESS_SHIFT (SIXTY_FOUR_BIT ? 3 : 2)
300 #ifdef MEMORY_TRACE
301 #define vechdr(v) (*(Header *)memory_reference((intptr_t)((char *)(v) - \
302 TAG_VECTOR)))
303 #define elt(v, n) (*(Lisp_Object *)memory_reference((intptr_t)((char *)(v) + \
304 (CELL-TAG_VECTOR) + \
305 (((intptr_t)(n))<<ADDRESS_SHIFT))))
306 #define celt(v, n) (*cmemory_reference((intptr_t)((char *)(v) + \
307 (CELL-TAG_VECTOR)+((intptr_t)(n)))))
308 #define ucelt(v, n) (*(unsigned char *)cmemory_reference( \
309 (intptr_t)((char *)(v) + \
310 (CELL-TAG_VECTOR)+((intptr_t)(n)))))
311 #define scelt(v, n) (*(signed char *)cmemory_reference( \
312 (intptr_t)((char *)(v) + \
313 (CELL-TAG_VECTOR)+((intptr_t)(n)))))
314 #else
315 #define vechdr(v) (*(Header *)((char *)(v) - TAG_VECTOR))
316 #define elt(v, n) (*(Lisp_Object *)((char *)(v) + \
317 (CELL-TAG_VECTOR) + \
318 (((intptr_t)(n))<<ADDRESS_SHIFT)))
319 #define celt(v, n) (*((char *)(v) + (CELL-TAG_VECTOR)+((intptr_t)(n))))
320 #define ucelt(v, n) (*((unsigned char *)(v) + (CELL-TAG_VECTOR)+((intptr_t)(n))))
321 #define scelt(v, n) (*((signed char *)(v) + (CELL-TAG_VECTOR)+((intptr_t)(n))))
322 #endif
323 #define helt(v, n) \
324 ((*(unsigned char *)((v) + (CELL-TAG_VECTOR) + (2*(intptr_t)(n))) | \
325 (*(signed char *)((v) + (CELL-TAG_VECTOR+1) + (2*(intptr_t)(n)))) << 8))
326 #define sethelt(v, n, x) \
327 do { \
328 *(char *)((v) + (CELL-TAG_VECTOR+0) + (2*(intptr_t)(n))) = (x); \
329 *(char *)((v) + (CELL-TAG_VECTOR+1) + (2*(intptr_t)(n))) = (x)>>8; \
330 } while (0)
331 #define ielt(v, n) (*(intptr_t *)((char *)(v) + \
332 (CELL-TAG_VECTOR)+(((intptr_t)(n))<<ADDRESS_SHIFT)))
333 #define ielt32(v, n) (*(int32_t *)((char *)(v) + \
334 (CELL-TAG_VECTOR)+(((intptr_t)(n))<<2)))
335 #define felt(v, n) (*(float *)((char *)(v) + \
336 (CELL-TAG_VECTOR)+(((intptr_t)(n))<<2)))
337 #define delt(v, n) (*(double *)((char *)(v) + \
338 (2*CELL-TAG_VECTOR)+(((intptr_t)(n))<<3)))
339 #ifdef COMMON
340 #define TYPE_BITVEC1 0x030
341 #define TYPE_BITVEC2 0x0b0
342 #define TYPE_BITVEC3 0x130
343 #define TYPE_BITVEC4 0x1b0
344 #define TYPE_BITVEC5 0x230
345 #define TYPE_BITVEC6 0x2b0
346 #define TYPE_BITVEC7 0x330
347 #define TYPE_BITVEC8 0x3b0
348 #define header_of_bitvector(h) (((h) & 0x70) == TYPE_BITVEC1)
349 #endif
350 #define TYPE_STRING 0x070
351 #define TYPE_BPS 0x170
352 #define TYPE_SPARE 0x270
353 #define TYPE_MAPLEREF TYPE_SPARE
354 #define TYPE_SP 0x370
355 #ifdef COMMON
356 #define vector_holds_binary(h) (((h) & 0x80) == 0 || header_of_bitvector(h))
357 #else
358 #define vector_holds_binary(h) (((h) & 0x80) == 0)
359 #endif
360 #define TYPE_SIMPLE_VEC 0x0f0
361 #define TYPE_HASH 0x1f0
362 #define TYPE_ARRAY 0x2f0
363 #define TYPE_STRUCTURE 0x3f0
364 #define is_mixed_header(h) (((h) & 0x2b0) == TYPE_MIXED1)
365 #define TYPE_VEC8 TYPE_BPS
366 #define TYPE_VEC16 0x220
367 #define TYPE_VEC32 0x260
368 #define TYPE_MIXED1 0x2a0
369 #define TYPE_MIXED2 0x2e0
370 #define TYPE_FLOAT32 0x320
371 #define TYPE_FLOAT64 0x360
372 #define TYPE_MIXED3 0x3a0
373 #define TYPE_STREAM 0x3e0
374 #define ODDS_MASK 0xff
375 #define TAG_CHAR 0x02
376 #define TAG_BPS 0x42
377 #define TAG_SPID 0xc2
378 #define SPID_NIL (TAG_SPID+0x0000)
379 #define SPID_FBIND (TAG_SPID+0x0100)
380 #define SPID_CATCH (TAG_SPID+0x0200)
381 #define SPID_PROTECT (TAG_SPID+0x0300)
382 #define SPID_HASH0 (TAG_SPID+0x0400)
383 #define SPID_HASH1 (TAG_SPID+0x0500)
384 #define SPID_GCMARK (TAG_SPID+0x0600)
385 #define SPID_NOINPUT (TAG_SPID+0x0700)
386 #define SPID_ERROR (TAG_SPID+0x0800)
387 #define SPID_PVBIND (TAG_SPID+0x0900)
388 #define SPID_NOARG (TAG_SPID+0x0a00)
389 #define SPID_NOPROP (TAG_SPID+0x0b00)
390 #define SPID_LIBRARY (TAG_SPID+0x0c00)
391 #define is_header(x) (((int)(x) & 0x30) != 0)
392 #define is_char(x) (((int)(x) & ODDS_MASK) == TAG_CHAR)
393 #define is_bps(x) (((int)(x) & ODDS_MASK) == TAG_BPS)
394 #define is_spid(x) (((int)(x) & ODDS_MASK) == TAG_SPID)
395 #define is_library(x)(((int)(x) & 0xffff) == SPID_LIBRARY)
396 #define library_number(x) (((x) >> 20) & 0xfff)
397 #ifdef OLD_VERSION
398 #define font_of_char(n) (((int32_t)(n) >> 24) & 0xff)
399 #define bits_of_char(n) (((int32_t)(n) >> 16) & 0xff)
400 #ifdef Kanji
401 #define code_of_char(n) (((int32_t)(n) >> 8) & 0xffff)
402 #else
403 #define code_of_char(n) ((char)(((int32_t)(n) >> 8) & 0xff))
404 #endif
405 #define pack_char(bits, font, code) \
406 ((Lisp_Object)((((uint32_t)(font)) << 24) | \
407 (((uint32_t)(bits)) << 16) | (((uint32_t)(code)) << 8) | TAG_CHAR))
408
409 #define CHAR_EOF pack_char(0, 0xff, 4)
410 #else
411 #define font_of_char(n) (((int32_t)(n) >> 29) & 0x03)
412 #define bits_of_char(n) (0)
413 #define code_of_char(n) (((int32_t)(n) >> 8) & 0x001fffff)
414 #define pack_char(bits, font, code) \
415 ((Lisp_Object)((((uint32_t)(font)) << 29) | \
416 (((uint32_t)(code)) << 8) | TAG_CHAR))
417
418 #define CHAR_EOF ((Lisp_Object)(int32_t)0xff000402)
419 #endif
420 #define data_of_bps(v) \
421 ((char *)(doubleword_align_up((intptr_t) \
422 bps_pages[((uint32_t)(v))>>(PAGE_BITS+6)]) + \
423 (SIXTY_FOUR_BIT ? \
424 (intptr_t)((((uint64_t)(v))>>(32-PAGE_BITS)) & \
425 PAGE_POWER_OF_TWO) : \
426 0) + \
427 (((v) >> 6) & (PAGE_POWER_OF_TWO-4))))
428 typedef int32_t junk;
429 typedef intptr_t junkxx;
430 typedef struct Symbol_Head
431 {
432 Header header;
433 Lisp_Object value;
434 Lisp_Object env;
435 intptr_t function1;
436 intptr_t function2;
437 intptr_t functionn;
438 Lisp_Object pname;
439 Lisp_Object plist;
440 Lisp_Object fastgets;
441 uintptr_t count;
442 #ifdef COMMON
443 Lisp_Object package;
444 #endif
445 } Symbol_Head;
446 #define MAX_FASTGET_SIZE 63
447 #ifdef COMMON
448 #define symalign(n) (SIXTY_FOUR_BIT ? \
449 ((char *)((intptr_t)(n) & ~(intptr_t)TAG_SYMBOL)) : \
450 (n)
451 #else
452 #define symalign(n) (n)
453 #endif
454 #ifndef MEMORY_TRACE
455 #define qheader(p) (*(Header *) symalign((char *)(p) - TAG_SYMBOL))
456 #define qvalue(p) (*(Lisp_Object *)symalign((char *)(p) + (CELL - TAG_SYMBOL)))
457 #define qenv(p) (*(Lisp_Object *)symalign((char *)(p) + (2*CELL - TAG_SYMBOL)))
458 #define qfn1(p) ((one_args *) *((intptr_t *)symalign((char *)(p) + \
459 (3*CELL - TAG_SYMBOL))))
460 #define qfn2(p) ((two_args *) *((intptr_t *)symalign((char *)(p) + \
461 (4*CELL - TAG_SYMBOL))))
462 #define qfnn(p) ((n_args *) *((intptr_t *)symalign((char *)(p) + \
463 (5*CELL - TAG_SYMBOL))))
464 #define ifn1(p) (*(intptr_t *) symalign((char *)(p) + (3*CELL-TAG_SYMBOL)))
465 #define ifn2(p) (*(intptr_t *) symalign((char *)(p) + (4*CELL-TAG_SYMBOL)))
466 #define ifnn(p) (*(intptr_t *) symalign((char *)(p) + (5*CELL-TAG_SYMBOL)))
467 #define qpname(p) (*(Lisp_Object *)symalign((char *)(p) + (6*CELL-TAG_SYMBOL)))
468 #define qplist(p) (*(Lisp_Object *)symalign((char *)(p) + (7*CELL-TAG_SYMBOL)))
469 #define qfastgets(p) (*(Lisp_Object *)symalign((char *)(p) + (8*CELL-TAG_SYMBOL)))
470 #define qcount(p) (*(uintptr_t *) symalign((char *)(p) + (9*CELL-TAG_SYMBOL)))
471 #ifdef COMMON
472 #define qpackage(p) (*(Lisp_Object *)symalign((char *)(p) + (10*CELL-TAG_SYMBOL)))
473 #endif
474 #else
475 #define qheader(p) (*(Header *) memory_reference((intptr_t) \
476 symalign((char *)(p) - TAG_SYMBOL)))
477 #define qvalue(p) (*(Lisp_Object *)memory_reference((intptr_t) \
478 symalign((char *)(p) + (CELL-TAG_SYMBOL))))
479 #define qenv(p) (*(Lisp_Object *)memory_reference((intptr_t) \
480 symalign((char *)(p) + (2*CELL-TAG_SYMBOL))))
481 #define qfn1(p) ((one_args *) *(intptr_t *)memory_reference((intptr_t) \
482 symalign((char *)(p) + (3*CELL-TAG_SYMBOL))))
483 #define qfn2(p) ((two_args *) *(intptr_t *)memory_reference((intptr_t) \
484 symalign((char *)(p) + (4*CELL-TAG_SYMBOL))))
485 #define qfnn(p) ((n_args *) *(intptr_t *)memory_reference((intptr_t) \
486 symalign((char *)(p) + (5*CELL-TAG_SYMBOL))))
487 #define ifn1(p) (*(intptr_t *) memory_reference((intptr_t) \
488 symalign((char *)(p) + (3*CELL-TAG_SYMBOL))))
489 #define ifn2(p) (*(intptr_t *) memory_reference((intptr_t) \
490 symalign((char *)(p) + (4*CELL-TAG_SYMBOL))))
491 #define ifnn(p) (*(intptr_t *) memory_reference((intptr_t) \
492 symalign((char *)(p) + (5*CELL-TAG_SYMBOL))))
493 #define qpname(p) (*(Lisp_Object *)memory_reference((intptr_t) \
494 symalign((char *)(p) + (6*CELL-TAG_SYMBOL))))
495 #define qplist(p) (*(Lisp_Object *)memory_reference((intptr_t) \
496 symalign((char *)(p) + (7*CELL-TAG_SYMBOL))))
497 #define qfastgets(p) (*(Lisp_Object *)memory_reference((intptr_t) \
498 symalign((char *)(p) + (8*CELL-TAG_SYMBOL))))
499 #define qcount(p) (*(uintptr_t *) memory_reference((intptr_t) \
500 symalign((char *)(p) + (9*CELL-TAG_SYMBOL))))
501 #ifdef COMMON
502 #define qpackage(p) (*(Lisp_Object *)memory_reference((intptr_t) \
503 symalign((char *)(p) + (10*CELL-TAG_SYMBOL))))
504 #endif
505 #endif
506 #ifdef COMMON
507 typedef union Float_union
508 {
509 float f;
510 int32_t i;
511 } Float_union;
512 #endif
513 typedef struct Big_Number
514 {
515 Header h;
516 uint32_t d[1];
517 } Big_Number;
518 #define bignum_length(b) length_of_header(numhdr(b))
519 #ifdef MEMORY_TRACE
520 #define bignum_digits(b) ((uint32_t *)memory_reference((intptr_t)((char *)b + \
521 (CELL-TAG_NUMBERS))))
522 #else
523 #define bignum_digits(b) ((uint32_t *)((char *)b + (CELL-TAG_NUMBERS)))
524 #endif
525 #define make_bighdr(n) (TAG_ODDS+TYPE_BIGNUM+(((intptr_t)(n))<<12))
526 #define pack_hdrlength(n) (((intptr_t)(n))<<12)
527 #ifdef COMMON
528 typedef struct Rational_Number
529 {
530 Header header;
531 Lisp_Object num;
532 Lisp_Object den;
533 } Rational_Number;
534 #define numerator(r) (((Rational_Number *)((char *)(r)-TAG_NUMBERS))->num)
535 #define denominator(r) (((Rational_Number *)((char *)(r)-TAG_NUMBERS))->den)
536 typedef struct Complex_Number
537 {
538 Header header;
539 Lisp_Object real;
540 Lisp_Object imag;
541 } Complex_Number;
542 #define real_part(r) (((Complex_Number *)((char *)(r)-TAG_NUMBERS))->real)
543 #define imag_part(r) (((Complex_Number *)((char *)(r)-TAG_NUMBERS))->imag)
544 typedef struct Single_Float
545 {
546 Header header;
547 union float_or_int {
548 float f;
549 int32_t i;
550 } f;
551 } Single_Float;
552 #define single_float_val(v) \
553 (((Single_Float *)((char *)(v)-TAG_BOXFLOAT))->f.f)
554 #endif
555 #define SIZEOF_DOUBLE_FLOAT 16
556 #define double_float_addr(v) ((double *)((char *)(v) + \
557 (8-TAG_BOXFLOAT)))
558 #define double_float_val(v) (*(double *)((char *)(v) + \
559 (8-TAG_BOXFLOAT)))
560 #ifdef COMMON
561 #define SIZEOF_LONG_FLOAT 16
562 #define long_float_addr(v) ((double *)((char *)(v) + \
563 (8-TAG_BOXFLOAT)))
564 #define long_float_val(v) (*(double *)((char *)(v) + \
565 (8-TAG_BOXFLOAT)))
566 #endif
567 #define word_align_up(n) ((Lisp_Object)(((intptr_t)(n) + 3) & (-4)))
568 #define doubleword_align_up(n) ((Lisp_Object)(((intptr_t)(n) + 7) & (-8)))
569 #define doubleword_align_down(n) ((Lisp_Object)((intptr_t)(n) & (-8)))
570 #define object_align_up(n) ((Lisp_Object)(((intptr_t)(n) + \
571 sizeof(Lisp_Object) - 1) & (-sizeof(Lisp_Object))))
572 #define quadword_align_up(n) ((Lisp_Object)(((intptr_t)(n) + 15) & (-16)))
573 #define quadword_align_down(n) ((Lisp_Object)((intptr_t)(n) & (-16)))
574 #define UNWIND_NULL 0x0
575 #define UNWIND_GO 0x1
576 #define UNWIND_RETURN 0x2
577 #define UNWIND_THROW 0x3
578 #define UNWIND_RESTART 0x4
579 #define UNWIND_RESOURCE 0x5
580 #define UNWIND_FNAME 0x100
581 #define UNWIND_ARGS 0x200
582 #define UNWIND_ERROR (UNWIND_FNAME|UNWIND_ARGS)
583 #define UNWIND_UNWIND 0x400
584 #endif
585 #ifndef header_cslerror_h
586 #define header_cslerror_h 1
587 extern Lisp_Object interrupted(Lisp_Object p);
588 extern Lisp_Object MS_CDECL error(int nargs, int code, ...);
589 extern Lisp_Object MS_CDECL cerror(int nargs, int code1, int code2, ...);
590 extern Lisp_Object too_few_2(Lisp_Object env, Lisp_Object a1);
591 extern Lisp_Object too_many_1(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
592 extern Lisp_Object wrong_no_0a(Lisp_Object env, Lisp_Object a1);
593 extern Lisp_Object wrong_no_0b(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
594 extern Lisp_Object wrong_no_3a(Lisp_Object env, Lisp_Object a1);
595 extern Lisp_Object wrong_no_3b(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
596 extern Lisp_Object wrong_no_na(Lisp_Object env, Lisp_Object a1);
597 extern Lisp_Object wrong_no_nb(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
598 extern Lisp_Object MS_CDECL wrong_no_1(Lisp_Object env, int nargs, ...);
599 extern Lisp_Object MS_CDECL wrong_no_2(Lisp_Object env, int nargs, ...);
600 extern Lisp_Object bad_special2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
601 extern Lisp_Object MS_CDECL bad_specialn(Lisp_Object env, int nargs, ...);
602 extern Lisp_Object aerror(char *s);
603 extern Lisp_Object aerror0(char *s);
604 extern Lisp_Object aerror1(char *s, Lisp_Object a);
605 extern Lisp_Object aerror2(char *s, Lisp_Object a, Lisp_Object b);
606 extern void MS_CDECL fatal_error(int code, ...);
607 #define GC_MESSAGES 0x01
608 #define FASL_MESSAGES 0x02
609 #define VERBOSE_MSGS 0x04
610 #define GC_MSG_BITS 0x07
611 #define verbos_flag (miscflags & GC_MSG_BITS)
612 #define HEADLINE_FLAG 0x08
613 #define FNAME_FLAG 0x10
614 #define ARGS_FLAG 0x20
615 #define BACKTRACE_MSG_BITS 0x38
616
617 #define err_bad_car 0
618 #define err_bad_cdr 1
619 #define err_no_store 2
620 #define err_undefined_function_1 3
621 #define err_undefined_function_2 4
622 #define err_undefined_function_n 5
623 #define err_wrong_no_args 6
624 #define err_unbound_lexical 7
625 #define err_bad_rplac 8
626 #define err_bad_arith 9
627 #define err_redef_special 10
628 #define err_bad_arg 11
629 #define err_bad_declare 12
630 #define err_bad_fn 13
631 #define err_unset_var 14
632 #define err_too_many_args1 15
633 #define err_too_many_args2 16
634 #define err_bad_apply 17
635 #define err_macroex_hook 18
636 #define err_block_tag 19
637 #define err_go_tag 20
638 #define err_excess_args 21
639 #define err_insufficient_args 22
640 #define err_bad_bvl 23
641 #define err_bad_keyargs 24
642 #define err_write_err 25
643 #define err_bad_endp 26
644 #define err_no_fasldir 27
645 #define err_no_fasl 28
646 #define err_open_failed 29
647 #define err_pipe_failed 30
648 #define err_stack_overflow 31
649 #define err_top_bit 32
650 #define err_mem_spans_zero 33
651 #define err_no_longer_used 34
652 #define err_no_tempdir 35
653
654 #ifdef INCLUDE_ERROR_STRING_TABLE
655 static char *error_message_table[] =
656 {
657 "attempt to take car of an atom",
658 "attempt to take cdr of an atom",
659 "insufficient freestore to run this package",
660 "undefined function (1 arg)",
661 "undefined function (2 args)",
662 "undefined function",
663 "wrong number of arguments",
664 "unbound lexical variable",
665 "bad rplaca/rplacd",
666 "bad argument for an arithmetic function",
667 "attempt to redefine a special form",
668 "not a variable",
669 "bad use of declare",
670 "attempt to apply non-function",
671 "unset variable",
672 "too many arguments",
673 "too many arguments",
674 "object not valid as a function (apply,",
675 "macroexpand-hook failure",
676 "block tag not found",
677 "go tag not found",
678 "too many arguments provided",
679 "not enough arguments provided",
680 "bad item in bound variable list",
681 "bad keyword arguments",
682 "write-error on file",
683 "endp used on badly terminated list",
684 "environment parameter 'fasldir' not set",
685 "loadable module not found for loading",
686 "file could not be opened",
687 "unable to establish pipe",
688 "stack overflow",
689 "top bit of address has unexpected value",
690 "memory block spans the zero address",
691 "this error code available for re-use",
692 "unable to find a directory for temporary files",
693 "dummy final error message"
694 };
695 #endif
696 #endif
697 #ifndef header_externs_h
698 #define header_externs_h 1
699 #ifdef __cplusplus
700 extern "C" {
701 #endif
702 #ifdef USE_MPI
703 #include "mpi.h"
704 extern int32_t mpi_rank,mpi_size;
705 #endif
706 #define D do { \
707 char *fffff = strrchr(__FILE__, '/'); \
708 if (fffff == NULL) fffff = strrchr(__FILE__, '\\'); \
709 if (fffff == NULL) fffff = __FILE__; else fffff++; \
710 fprintf(stderr, "Line %d File %s\n", __LINE__, fffff); \
711 fflush(stderr); \
712 } while (0)
713 #define DS(s) do { \
714 char *fffff = strrchr(__FILE__, '/'); \
715 if (fffff == NULL) fffff = strrchr(__FILE__, '\\'); \
716 if (fffff == NULL) fffff = __FILE__; else fffff++; \
717 fprintf(stderr, "Line %d File %s: %s\n", __LINE__, fffff, (s)); \
718 fflush(stderr); \
719 } while (0)
720 #define DX(s) do { \
721 char *fffff = strrchr(__FILE__, '/'); \
722 if (fffff == NULL) fffff = strrchr(__FILE__, '\\'); \
723 if (fffff == NULL) fffff = __FILE__; else fffff++; \
724 fprintf(stderr, "Line %d File %s: %llx\n", __LINE__, fffff, \
725 (long long unsigned)(s)); \
726 fflush(stderr); \
727 } while (0)
728 extern void **pages,
729 **heap_pages, **vheap_pages,
730 **bps_pages, **native_pages;
731 extern void **new_heap_pages, **new_vheap_pages,
732 **new_bps_pages, **new_native_pages;
733 #ifdef CONSERVATIVE
734 #define PAGE_TYPE_CONS 0
735 #define PAGE_TYPE_VECTOR 1
736 #define PAGE_TYPE_BPS 2
737 #define PAGE_TYPE_NATIVE 3
738 typedef struct page_map_t
739 {
740 void *start;
741 void *end;
742 int type;
743 } page_map_t;
744 #endif
745 extern int32_t pages_count,
746 heap_pages_count, vheap_pages_count,
747 bps_pages_count, native_pages_count;
748 extern int32_t new_heap_pages_count, new_vheap_pages_count,
749 new_bps_pages_count, new_native_pages_count;
750 extern int32_t native_pages_changed;
751 extern int32_t native_fringe;
752 extern Lisp_Object *nilsegment, *stacksegment;
753 extern Lisp_Object *stackbase;
754 extern int32_t stack_segsize;
755 extern Lisp_Object *C_stack;
756 #define stack C_stack
757 extern char *C_stack_limit;
758 extern CSLbool restartp;
759 extern char *big_chunk_start, *big_chunk_end;
760 #ifdef CONSERVATIVE
761 extern Lisp_Object *C_stackbase, *C_stacktop;
762 #endif
763 #ifdef MEMORY_TRACE
764 #define push(a) do { \
765 *++stack = (a); \
766 memory_reference((intptr_t)stack); } while (0)
767 #define push2(a,b) do { \
768 *++stack = (a); \
769 memory_reference((intptr_t)stack); \
770 *++stack = (b); \
771 memory_reference((intptr_t)stack); } while (0)
772 #define push3(a,b,c) do { \
773 *++stack = (a); \
774 memory_reference((intptr_t)stack); \
775 *++stack = (b); \
776 memory_reference((intptr_t)stack); \
777 *++stack = (c); \
778 memory_reference((intptr_t)stack); } while (0)
779 #define push4(a,b,c,d) do { \
780 *++stack = (a); \
781 memory_reference((intptr_t)stack); \
782 *++stack = (b); \
783 memory_reference((intptr_t)stack); \
784 *++stack = (c); \
785 memory_reference((intptr_t)stack); \
786 *++stack = (d); \
787 memory_reference((intptr_t)stack); } while (0)
788 #define push5(a,b,c,d,e)do { \
789 *++stack = (a); \
790 memory_reference((intptr_t)stack); \
791 *++stack = (b); \
792 memory_reference((intptr_t)stack); \
793 *++stack = (c); \
794 memory_reference((intptr_t)stack); \
795 *++stack = (d); \
796 memory_reference((intptr_t)stack); \
797 *++stack = (e); \
798 memory_reference((intptr_t)stack); } while (0)
799 #define push6(a,b,c,d,e,f) do {push3(a,b,c); push3(d,e,f); } while (0)
800 #define my_pop() (memory_reference((int32_t)stack), (*stack--))
801 #define pop(a) { memory_reference((intptr_t)stack); (a) = *stack--; }
802 #define pop2(a,b) { memory_reference((intptr_t)stack); (a) = *stack--; memory_reference((intptr_t)stack); (b) = *stack--; }
803 #define pop3(a,b,c) { memory_reference((intptr_t)stack); (a) = *stack--; memory_reference((intptr_t)stack); (b) = *stack--; memory_reference((intptr_t)stack); (c) = *stack--; }
804 #define pop4(a,b,c,d) { memory_reference((intptr_t)stack); (a) = *stack--; memory_reference((intptr_t)stack); (b) = *stack--; memory_reference((intptr_t)stack); (c) = *stack--; \
805 memory_reference((intptr_t)stack); (d) = *stack--; }
806 #define pop5(a,b,c,d,e) { memory_reference((intptr_t)stack); (a) = *stack--; memory_reference((intptr_t)stack); (b) = *stack--; memory_reference((intptr_t)stack); (c) = *stack--; \
807 memory_reference((intptr_t)stack); (d) = *stack--; memory_reference((intptr_t)stack); (e) = *stack--; }
808 #define pop6(a,b,c,d,e,f) {pop3(a,b,c); pop3(d,e,f)}
809 #define popv(n) stack -= (n)
810 #else
811 #define push(a) { *++stack = (a); }
812 #define push2(a,b) { stack[1] = (a); stack[2] = (b); stack += 2; }
813 #define push3(a,b,c) { stack[1] = (a); stack[2] = (b); stack[3] = (c); \
814 stack += 3; }
815 #define push4(a,b,c,d) { stack[1] = (a); stack[2] = (b); stack[3] = (c); \
816 stack[4] = (d); stack += 4; }
817 #define push5(a,b,c,d,e){ stack[1] = (a); stack[2] = (b); stack[3] = (c); \
818 stack[4] = (d); stack[5] = (e); stack += 5; }
819 #define push6(a,b,c,d,e,f) { \
820 stack[1] = (a); stack[2] = (b); stack[3] = (c); \
821 stack[4] = (d); stack[5] = (e); stack[6] = (f); \
822 stack += 6; }
823 #define pop(a) { (a) = *stack--; }
824 #define pop2(a,b) { stack -= 2; (a) = stack[2]; (b) = stack[1]; }
825 #define pop3(a,b,c) { stack -= 3; (a) = stack[3]; (b) = stack[2]; \
826 (c) = stack[1]; }
827 #define pop4(a,b,c,d) { stack -= 4; (a) = stack[4]; (b) = stack[3]; \
828 (c) = stack[2]; (d) = stack[1]; }
829 #define pop5(a,b,c,d,e) { stack -= 5; (a) = stack[5]; (b) = stack[4]; \
830 (c) = stack[3]; (d) = stack[2]; (e) = stack[1]; }
831 #define pop6(a,b,c,d,e, f) { stack -= 6; \
832 (a) = stack[6]; (b) = stack[5]; (c) = stack[4]; \
833 (d) = stack[3]; (e) = stack[2]; (f) = stack[1]; }
834 #define popv(n) stack -= (n)
835 #endif
836 #define errexit() { nil = C_nil; if (exception_pending()) return nil; }
837 #define errexitn(n) { nil = C_nil; \
838 if (exception_pending()) { popv(n); return nil; } }
839 #define errexitv() { nil = C_nil; if (exception_pending()) return; }
840 #define errexitvn(n) { nil = C_nil; \
841 if (exception_pending()) { popv(n); return; } }
842 #define GC_USER_SOFT 0
843 #define GC_USER_HARD 1
844 #define GC_STACK 2
845 #define GC_CONS 3
846 #define GC_VEC 4
847 #define GC_BPS 5
848 #define GC_PRESERVE 6
849 #define GC_NATIVE 7
850 extern volatile char stack_contents_temp;
851 #ifdef CHECK_STACK
852 extern int check_stack(char *file, int line);
853 extern void show_stack();
854 #define if_check_stack \
855 if (check_stack(__FILE__,__LINE__)) \
856 { show_stack(); return aerror("stack overflow"); }
857 #else
858 #define if_check_stack \
859 { char *p = (char *)&p; \
860 if (p < C_stack_limit) return aerror("stack overflow"); \
861 }
862 #endif
863 extern int32_t software_ticks, countdown;
864 #define stackcheck0(k) \
865 if_check_stack \
866 if ((--countdown < 0 && deal_with_tick()) || \
867 stack >= stacklimit) \
868 { reclaim(nil, "stack", GC_STACK, 0); \
869 nil = C_nil; \
870 if (exception_pending()) { popv(k); return nil; } \
871 }
872 #define stackcheck1(k, a1) \
873 if_check_stack \
874 if ((--countdown < 0 && deal_with_tick()) || \
875 stack >= stacklimit) \
876 { a1 = reclaim(a1, "stack", GC_STACK, 0); \
877 nil = C_nil; \
878 if (exception_pending()) { popv(k); return nil; } \
879 }
880 #define stackcheck2(k, a1, a2) \
881 if_check_stack \
882 if ((--countdown < 0 && deal_with_tick()) || \
883 stack >= stacklimit) \
884 { push(a2); \
885 a1 = reclaim(a1, "stack", GC_STACK, 0); pop(a2); \
886 nil = C_nil; \
887 if (exception_pending()) { popv(k); return nil; } \
888 }
889 #define stackcheck3(k, a1, a2, a3) \
890 if_check_stack \
891 if ((--countdown < 0 && deal_with_tick()) || \
892 stack >= stacklimit) \
893 { push2(a2, a3); \
894 a1 = reclaim(a1, "stack", GC_STACK, 0); \
895 pop2(a3, a2); \
896 nil = C_nil; \
897 if (exception_pending()) { popv(k); return nil; } \
898 }
899 #define stackcheck4(k, a1, a2, a3, a4) \
900 if_check_stack \
901 if ((--countdown < 0 && deal_with_tick()) || \
902 stack >= stacklimit) \
903 { push3(a2, a3, a4); \
904 a1 = reclaim(a1, "stack", GC_STACK, 0); \
905 pop3(a4, a3, a2); \
906 nil = C_nil; \
907 if (exception_pending()) { popv(k); return nil; } \
908 }
909 extern Lisp_Object C_nil;
910 #define first_nil_offset 50
911 #define work_0_offset 200
912 #define last_nil_offset 251
913 #define NIL_SEGMENT_SIZE (last_nil_offset*sizeof(Lisp_Object) + 32)
914 #define SPARE 512
915 #ifdef COMMON
916 #define BASE ((Lisp_Object *)nil)
917 #else
918 #define BASE (SIXTY_FOUR_BIT ? ((Lisp_Object *)(nil+4)): ((Lisp_Object *)nil))
919 #endif
920 #ifdef NILSEG_EXTERNS
921 #define nil_as_base
922 extern intptr_t byteflip;
923 extern Lisp_Object codefringe;
924 extern Lisp_Object volatile codelimit;
925 extern Lisp_Object * volatile stacklimit;
926 extern Lisp_Object fringe;
927 extern Lisp_Object volatile heaplimit;
928 extern Lisp_Object volatile vheaplimit;
929 extern Lisp_Object vfringe;
930 extern intptr_t nwork;
931 extern intptr_t exit_count;
932 extern intptr_t gensym_ser, print_precision, miscflags;
933 extern intptr_t current_modulus, fastget_size, package_bits;
934 extern Lisp_Object lisp_true, lambda, funarg, unset_var, opt_key, rest_key;
935 extern Lisp_Object quote_symbol, function_symbol, comma_symbol;
936 extern Lisp_Object comma_at_symbol, cons_symbol, eval_symbol;
937 extern Lisp_Object work_symbol, evalhook, applyhook, macroexpand_hook;
938 extern Lisp_Object append_symbol, exit_tag, exit_value, catch_tags;
939 extern Lisp_Object current_package, startfn;
940 extern Lisp_Object gensym_base, string_char_sym, boffo;
941 extern Lisp_Object err_table;
942 extern Lisp_Object progn_symbol;
943 extern Lisp_Object lisp_work_stream, charvec, raise_symbol, lower_symbol;
944 extern Lisp_Object echo_symbol, codevec, litvec, supervisor, B_reg;
945 extern Lisp_Object savedef, comp_symbol, compiler_symbol, faslvec;
946 extern Lisp_Object tracedfn, lisp_terminal_io;
947 extern Lisp_Object lisp_standard_output, lisp_standard_input, lisp_error_output;
948 extern Lisp_Object lisp_trace_output, lisp_debug_io, lisp_query_io;
949 extern Lisp_Object prompt_thing, faslgensyms;
950 extern Lisp_Object prinl_symbol, emsg_star, redef_msg;
951 extern Lisp_Object expr_symbol, fexpr_symbol, macro_symbol;
952 extern Lisp_Object cl_symbols, active_stream, current_module;
953 extern Lisp_Object native_defs, features_symbol, lisp_package;
954 extern Lisp_Object sys_hash_table, help_index, cfunarg, lex_words;
955 extern Lisp_Object get_counts, fastget_names, input_libraries;
956 extern Lisp_Object output_library, current_file, break_function;
957 extern Lisp_Object standard_output, standard_input, debug_io;
958 extern Lisp_Object error_output, query_io, terminal_io;
959 extern Lisp_Object trace_output, fasl_stream;
960 extern Lisp_Object native_code, native_symbol, traceprint_symbol;
961 extern Lisp_Object loadsource_symbol;
962 extern Lisp_Object hankaku_symbol, bytecoded_symbol, nativecoded_symbol;
963 extern Lisp_Object gchook, resources, callstack, procstack, procmem;
964 #ifdef COMMON
965 extern Lisp_Object keyword_package;
966 extern Lisp_Object all_packages, package_symbol, internal_symbol;
967 extern Lisp_Object external_symbol, inherited_symbol;
968 extern Lisp_Object key_key, allow_other_keys, aux_key;
969 extern Lisp_Object format_symbol;
970 extern Lisp_Object expand_def_symbol, allow_key_key;
971 #endif
972 extern Lisp_Object declare_symbol, special_symbol;
973 #ifdef OPENMATH
974 extern Lisp_Object MS_CDECL om_openFileDev(Lisp_Object env, int nargs, ...);
975 extern Lisp_Object om_openStringDev(Lisp_Object nil, Lisp_Object lstr, Lisp_Object lenc);
976 extern Lisp_Object om_closeDev(Lisp_Object env, Lisp_Object dev);
977 extern Lisp_Object om_setDevEncoding(Lisp_Object nil, Lisp_Object ldev, Lisp_Object lenc);
978 extern Lisp_Object om_makeConn(Lisp_Object nil, Lisp_Object ltimeout);
979 extern Lisp_Object om_closeConn(Lisp_Object nil, Lisp_Object lconn);
980 extern Lisp_Object om_getConnInDevice(Lisp_Object nil, Lisp_Object lconn);
981 extern Lisp_Object om_getConnOutDevice(Lisp_Object nil, Lisp_Object lconn);
982 extern Lisp_Object MS_CDECL om_connectTCP(Lisp_Object nil, int nargs, ...);
983 extern Lisp_Object om_bindTCP(Lisp_Object nil, Lisp_Object lconn, Lisp_Object lport);
984 extern Lisp_Object om_putApp(Lisp_Object nil, Lisp_Object ldev);
985 extern Lisp_Object om_putEndApp(Lisp_Object nil, Lisp_Object ldev);
986 extern Lisp_Object om_putAtp(Lisp_Object nil, Lisp_Object ldev);
987 extern Lisp_Object om_putEndAtp(Lisp_Object nil, Lisp_Object ldev);
988 extern Lisp_Object om_putAttr(Lisp_Object nil, Lisp_Object ldev);
989 extern Lisp_Object om_putEndAttr(Lisp_Object nil, Lisp_Object ldev);
990 extern Lisp_Object om_putBind(Lisp_Object nil, Lisp_Object ldev);
991 extern Lisp_Object om_putEndBind(Lisp_Object nil, Lisp_Object ldev);
992 extern Lisp_Object om_putBVar(Lisp_Object nil, Lisp_Object ldev);
993 extern Lisp_Object om_putEndBVar(Lisp_Object nil, Lisp_Object ldev);
994 extern Lisp_Object om_putError(Lisp_Object nil, Lisp_Object ldev);
995 extern Lisp_Object om_putEndError(Lisp_Object nil, Lisp_Object ldev);
996 extern Lisp_Object om_putObject(Lisp_Object nil, Lisp_Object ldev);
997 extern Lisp_Object om_putEndObject(Lisp_Object nil, Lisp_Object ldev);
998 extern Lisp_Object om_putInt(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
999 extern Lisp_Object om_putFloat(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
1000 extern Lisp_Object om_putByteArray(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
1001 extern Lisp_Object om_putVar(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
1002 extern Lisp_Object om_putString(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
1003 extern Lisp_Object om_putSymbol(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
1004 extern Lisp_Object MS_CDECL om_putSymbol2(Lisp_Object nil, int nargs, ...);
1005 extern Lisp_Object om_getApp(Lisp_Object nil, Lisp_Object ldev);
1006 extern Lisp_Object om_getEndApp(Lisp_Object nil, Lisp_Object ldev);
1007 extern Lisp_Object om_getAtp(Lisp_Object nil, Lisp_Object ldev);
1008 extern Lisp_Object om_getEndAtp(Lisp_Object nil, Lisp_Object ldev);
1009 extern Lisp_Object om_getAttr(Lisp_Object nil, Lisp_Object ldev);
1010 extern Lisp_Object om_getEndAttr(Lisp_Object nil, Lisp_Object ldev);
1011 extern Lisp_Object om_getBind(Lisp_Object nil, Lisp_Object ldev);
1012 extern Lisp_Object om_getEndBind(Lisp_Object nil, Lisp_Object ldev);
1013 extern Lisp_Object om_getBVar(Lisp_Object nil, Lisp_Object ldev);
1014 extern Lisp_Object om_getEndBVar(Lisp_Object nil, Lisp_Object ldev);
1015 extern Lisp_Object om_getError(Lisp_Object nil, Lisp_Object ldev);
1016 extern Lisp_Object om_getEndError(Lisp_Object nil, Lisp_Object ldev);
1017 extern Lisp_Object om_getObject(Lisp_Object nil, Lisp_Object ldev);
1018 extern Lisp_Object om_getEndObject(Lisp_Object nil, Lisp_Object ldev);
1019 extern Lisp_Object om_getInt(Lisp_Object nil, Lisp_Object ldev);
1020 extern Lisp_Object om_getFloat(Lisp_Object nil, Lisp_Object ldev);
1021 extern Lisp_Object om_getByteArray(Lisp_Object nil, Lisp_Object ldev);
1022 extern Lisp_Object om_getVar(Lisp_Object nil, Lisp_Object ldev);
1023 extern Lisp_Object om_getString(Lisp_Object nil, Lisp_Object ldev);
1024 extern Lisp_Object om_getSymbol(Lisp_Object nil, Lisp_Object ldev);
1025 extern Lisp_Object om_getType(Lisp_Object nil, Lisp_Object ldev);
1026 extern Lisp_Object om_stringToStringPtr(Lisp_Object nil, Lisp_Object lstr);
1027 extern Lisp_Object om_stringPtrToString(Lisp_Object nil, Lisp_Object lpstr);
1028 extern Lisp_Object om_read(Lisp_Object nil, Lisp_Object dev);
1029 extern Lisp_Object om_supportsCD(Lisp_Object nil, Lisp_Object lcd);
1030 extern Lisp_Object om_supportsSymbol(Lisp_Object nil, Lisp_Object lcd, Lisp_Object lsym);
1031 extern Lisp_Object MS_CDECL om_listCDs(Lisp_Object nil, int nargs, ...);
1032 extern Lisp_Object om_listSymbols(Lisp_Object nil, Lisp_Object lcd);
1033 extern Lisp_Object om_whichCDs(Lisp_Object nil, Lisp_Object lsym);
1034 #endif
1035 extern Lisp_Object workbase[51];
1036 extern Lisp_Object user_base_0, user_base_1, user_base_2;
1037 extern Lisp_Object user_base_3, user_base_4, user_base_5;
1038 extern Lisp_Object user_base_6, user_base_7, user_base_8;
1039 extern Lisp_Object user_base_9;
1040 #define work_0 workbase[0]
1041 #define work_1 workbase[1]
1042 #define mv_1 workbase[1]
1043 #define mv_2 workbase[2]
1044 #define mv_3 workbase[3]
1045 #define work_50 workbase[50]
1046 #else
1047 #define nil_as_base Lisp_Object nil = C_nil;
1048 #define byteflip BASE[12]
1049 #define codefringe BASE[13]
1050 #define codelimit (*(Lisp_Object volatile *)&BASE[14])
1051 extern Lisp_Object * volatile stacklimit;
1052 #define fringe BASE[18]
1053 #define heaplimit (*(Lisp_Object volatile *)&BASE[19])
1054 #define vheaplimit (*(Lisp_Object volatile *)&BASE[20])
1055 #define vfringe BASE[21]
1056 #define miscflags BASE[22]
1057 #define nwork BASE[24]
1058 #define exit_count BASE[26]
1059 #define gensym_ser BASE[27]
1060 #define print_precision BASE[28]
1061 #define current_modulus BASE[29]
1062 #define fastget_size BASE[30]
1063 #define package_bits BASE[31]
1064 #define current_package BASE[52]
1065 #define B_reg BASE[53]
1066 #define codevec BASE[54]
1067 #define litvec BASE[55]
1068 #define exit_tag BASE[56]
1069 #define exit_value BASE[57]
1070 #define catch_tags BASE[58]
1071 #define lisp_package BASE[59]
1072 #define boffo BASE[60]
1073 #define charvec BASE[61]
1074 #define sys_hash_table BASE[62]
1075 #define help_index BASE[63]
1076 #define gensym_base BASE[64]
1077 #define err_table BASE[65]
1078 #define supervisor BASE[66]
1079 #define startfn BASE[67]
1080 #define faslvec BASE[68]
1081 #define tracedfn BASE[69]
1082 #define prompt_thing BASE[70]
1083 #define faslgensyms BASE[71]
1084 #define cl_symbols BASE[72]
1085 #define active_stream BASE[73]
1086 #define current_module BASE[74]
1087 #define native_defs BASE[75]
1088 #define append_symbol BASE[90]
1089 #define applyhook BASE[91]
1090 #define cfunarg BASE[92]
1091 #define comma_at_symbol BASE[93]
1092 #define comma_symbol BASE[94]
1093 #define compiler_symbol BASE[95]
1094 #define comp_symbol BASE[96]
1095 #define cons_symbol BASE[97]
1096 #define echo_symbol BASE[98]
1097 #define emsg_star BASE[99]
1098 #define evalhook BASE[100]
1099 #define eval_symbol BASE[101]
1100 #define expr_symbol BASE[102]
1101 #define features_symbol BASE[103]
1102 #define fexpr_symbol BASE[104]
1103 #define funarg BASE[105]
1104 #define function_symbol BASE[106]
1105 #define lambda BASE[107]
1106 #define lisp_true BASE[108]
1107 #define lower_symbol BASE[109]
1108 #define macroexpand_hook BASE[110]
1109 #define macro_symbol BASE[111]
1110 #define opt_key BASE[112]
1111 #define prinl_symbol BASE[113]
1112 #define progn_symbol BASE[114]
1113 #define quote_symbol BASE[115]
1114 #define raise_symbol BASE[116]
1115 #define redef_msg BASE[117]
1116 #define rest_key BASE[118]
1117 #define savedef BASE[119]
1118 #define string_char_sym BASE[120]
1119 #define unset_var BASE[121]
1120 #define work_symbol BASE[122]
1121 #define lex_words BASE[123]
1122 #define get_counts BASE[124]
1123 #define fastget_names BASE[125]
1124 #define input_libraries BASE[126]
1125 #define output_library BASE[127]
1126 #define current_file BASE[128]
1127 #define break_function BASE[129]
1128 #define lisp_work_stream BASE[130]
1129 #define lisp_standard_output BASE[131]
1130 #define lisp_standard_input BASE[132]
1131 #define lisp_debug_io BASE[133]
1132 #define lisp_error_output BASE[134]
1133 #define lisp_query_io BASE[135]
1134 #define lisp_terminal_io BASE[136]
1135 #define lisp_trace_output BASE[137]
1136 #define standard_output BASE[138]
1137 #define standard_input BASE[139]
1138 #define debug_io BASE[140]
1139 #define error_output BASE[141]
1140 #define query_io BASE[142]
1141 #define terminal_io BASE[143]
1142 #define trace_output BASE[144]
1143 #define fasl_stream BASE[145]
1144 #define native_code BASE[146]
1145 #define native_symbol BASE[147]
1146 #define traceprint_symbol BASE[148]
1147 #define loadsource_symbol BASE[149]
1148 #define hankaku_symbol BASE[150]
1149 #define bytecoded_symbol BASE[151]
1150 #define nativecoded_symbol BASE[152]
1151 #define gchook BASE[153]
1152 #define resources BASE[154]
1153 #define callstack BASE[155]
1154 #define procstack BASE[156]
1155 #define procmem BASE[157]
1156 #ifdef COMMON
1157 #define keyword_package BASE[170]
1158 #define all_packages BASE[171]
1159 #define package_symbol BASE[172]
1160 #define internal_symbol BASE[173]
1161 #define external_symbol BASE[174]
1162 #define inherited_symbol BASE[175]
1163 #define key_key BASE[176]
1164 #define allow_other_keys BASE[177]
1165 #define aux_key BASE[178]
1166 #define format_symbol BASE[179]
1167 #define expand_def_symbol BASE[180]
1168 #define allow_key_key BASE[181]
1169 #endif
1170 #define declare_symbol BASE[182]
1171 #define special_symbol BASE[183]
1172 extern Lisp_Object user_base_0, user_base_1, user_base_2;
1173 extern Lisp_Object user_base_3, user_base_4, user_base_5;
1174 extern Lisp_Object user_base_6, user_base_7, user_base_8;
1175 extern Lisp_Object user_base_9;
1176 #define work_0 BASE[200]
1177 #define work_1 BASE[201]
1178 #define mv_1 work_1
1179 #define mv_2 BASE[202]
1180 #define mv_3 BASE[203]
1181 #define work_50 BASE[250]
1182 #endif
1183 extern void copy_into_nilseg(int fg);
1184 extern void copy_out_of_nilseg(int fg);
1185 #define eq_hash_table_list BASE[50]
1186 #define equal_hash_table_list BASE[51]
1187 #define current_package_offset 52
1188 extern void rehash_this_table(Lisp_Object v);
1189 extern Lisp_Object eq_hash_tables, equal_hash_tables;
1190 extern Lisp_Object volatile savecodelimit;
1191 extern Lisp_Object * volatile savestacklimit;
1192 extern Lisp_Object volatile saveheaplimit;
1193 extern Lisp_Object volatile savevheaplimit;
1194 extern char *exit_charvec;
1195 extern intptr_t exit_reason;
1196 extern int procstackp;
1197 #ifdef DEBUG
1198 extern int trace_all;
1199 #endif
1200 extern int garbage_collection_permitted;
1201 #define MAX_INPUT_FILES 40
1202 #define MAX_SYMBOLS_TO_DEFINE 40
1203 #define MAX_FASL_PATHS 20
1204 extern char *files_to_read[MAX_INPUT_FILES],
1205 *symbols_to_define[MAX_SYMBOLS_TO_DEFINE],
1206 *fasl_paths[MAX_FASL_PATHS];
1207 extern int csl_argc;
1208 extern char **csl_argv;
1209 extern int fasl_output_file, output_directory;
1210 extern FILE *binary_read_file;
1211 extern int boffop;
1212 extern void packbyte(int c);
1213 #ifndef COMMON
1214 #ifdef HAVE_FWIN
1215 extern char **loadable_packages;
1216 extern char **switches;
1217 extern void review_switch_settings();
1218 #endif
1219 #endif
1220 #ifdef SOCKETS
1221 extern int sockets_ready;
1222 extern void flush_socket(void);
1223 #endif
1224 extern void report_file(const char *s);
1225 extern CSLbool undefine_this_one[MAX_SYMBOLS_TO_DEFINE];
1226 extern int errorset_min, errorset_max;
1227 extern int number_of_input_files,
1228 number_of_symbols_to_define,
1229 number_of_fasl_paths,
1230 init_flags;
1231 extern int native_code_tag;
1232 extern char *standard_directory;
1233 extern int gc_number;
1234 extern CSLbool gc_method_is_copying;
1235 extern int force_reclaim_method, reclaim_trap_count;
1236 #define INIT_QUIET 1
1237 #define INIT_VERBOSE 2
1238 #define INIT_EXPANDABLE 4
1239 #define Lispify_predicate(p) ((p) ? lisp_true : nil)
1240 extern int tty_count;
1241 extern FILE *spool_file;
1242 extern char spool_file_name[32];
1243 typedef struct Ihandle
1244 {
1245 FILE *f;
1246 long int o;
1247 long int n;
1248 uint32_t chk;
1249 int status;
1250 int nativedir;
1251 } Ihandle;
1252 extern int32_t compression_worth_while;
1253 #define CODESIZE 0x1000
1254 typedef struct entry_point1
1255 {
1256 one_args *p;
1257 char *s;
1258 } entry_point1;
1259 typedef struct entry_point2
1260 {
1261 two_args *p;
1262 char *s;
1263 } entry_point2;
1264 typedef struct entry_pointn
1265 {
1266 n_args *p;
1267 char *s;
1268 } entry_pointn;
1269 extern entry_point1 entries_table1[];
1270 extern entry_point2 entries_table2[];
1271 extern entry_pointn entries_tablen[];
1272 extern entry_pointn entries_table_io[];
1273 extern void set_up_entry_lookup(void);
1274 extern int32_t code_up_fn1(one_args *e);
1275 extern int32_t code_up_fn2(two_args *e);
1276 extern int32_t code_up_fnn(n_args *e);
1277 extern int32_t code_up_io(void *e);
1278 extern int doubled_execution;
1279 extern char *linker_type;
1280 extern char *compiler_command[], *import_data[],
1281 *config_header[], *csl_headers[];
1282 extern Lisp_Object encapsulate_pointer(void *);
1283 typedef void initfn(Lisp_Object *, Lisp_Object **, Lisp_Object * volatile *);
1284 extern int load_dynamic(char *objname, char *modname,
1285 Lisp_Object name, Lisp_Object fns);
1286 extern Lisp_Object Linstate_c_code(Lisp_Object nil,
1287 Lisp_Object name, Lisp_Object fns);
1288 #ifdef MEMORY_TRACE
1289 extern intptr_t memory_base, memory_size;
1290 extern unsigned char *memory_map;
1291 extern FILE *memory_file;
1292 extern void memory_comment(int n);
1293 #endif
1294 #define ARG_CUT_OFF 25
1295 extern void push_args(va_list a, int nargs);
1296 extern void push_args_1(va_list a, int nargs);
1297 extern void Iinit(void);
1298 extern void IreInit(void);
1299 extern void Icontext(Ihandle *);
1300 extern void Irestore_context(Ihandle);
1301 extern void Ilist(void);
1302 extern CSLbool open_output(char *s, int len);
1303 #define IOPEN_OUT 0
1304 #define IOPEN_UNCHECKED 1
1305 #define IOPEN_CHECKED 2
1306 extern CSLbool Iopen(char *name, int len, int dirn, char *expanded_name);
1307 extern CSLbool Iopen_from_stdin(void), Iopen_to_stdout(void);
1308 extern CSLbool IopenRoot(char *expanded_name, int hard, int sixtyfour);
1309 extern CSLbool Iwriterootp(char *expanded);
1310 extern CSLbool Iopen_help(int32_t offset);
1311 extern CSLbool Iopen_banner(int code);
1312 extern CSLbool Imodulep(char *name, int len, char *datestamp, int32_t *size,
1313 char *expanded_name);
1314 extern CSLbool Icopy(char *name, int len);
1315 extern CSLbool Idelete(char *name, int len);
1316 extern CSLbool IcloseInput(int check_checksum);
1317 extern CSLbool IcloseOutput(int write_checksum);
1318 extern CSLbool Ifinished(void);
1319 extern int Igetc(void);
1320 extern int32_t Iread(void *buff, int32_t size);
1321 extern CSLbool Iputc(int ch);
1322 extern CSLbool Iwrite(void *buff, int32_t size);
1323 extern long int Ioutsize(void);
1324 extern char *CSLtmpnam(char *suffix, int32_t suffixlen);
1325 extern int Cmkdir(char *s);
1326 extern char *look_in_lisp_variable(char *o, int prefix);
1327 extern void CSL_MD5_Init(void);
1328 extern void CSL_MD5_Update(unsigned char *data, int len);
1329 extern void CSL_MD5_Final(unsigned char *md);
1330 extern CSLbool CSL_MD5_busy;
1331 extern unsigned char *CSL_MD5(unsigned char *data, int n, unsigned char *md);
1332 extern void checksum(Lisp_Object a);
1333 extern unsigned char unpredictable[256];
1334 extern void inject_randomness(int n);
1335 extern void ensure_screen(void);
1336 extern int window_heading;
1337 extern void my_exit(int n);
1338 extern void *my_malloc(size_t n);
1339 extern clock_t base_time;
1340 extern double *clock_stack;
1341 extern void push_clock(void);
1342 extern double pop_clock(void);
1343 extern double consolidated_time[10], gc_time;
1344 extern CSLbool volatile already_in_gc, tick_on_gc_exit;
1345 extern CSLbool volatile interrupt_pending, tick_pending;
1346 extern int deal_with_tick(void);
1347 extern int current_fp_rep;
1348 #ifndef __cplusplus
1349 #ifdef USE_SIGALTSTACK
1350 extern sigjmp_buf *errorset_buffer;
1351 extern sigjmp_buf my_exit_buffer;
1352 #else
1353 extern jmp_buf *errorset_buffer;
1354 extern jmp_buf my_exit_buffer;
1355 #endif
1356 #endif
1357 extern char *errorset_msg;
1358 extern int errorset_code;
1359 extern void unwind_stack(Lisp_Object *, CSLbool findcatch);
1360 extern CSLbool segvtrap;
1361 extern CSLbool batch_flag;
1362 extern int escaped_printing;
1363 extern void MS_CDECL low_level_signal_handler(int code);
1364 extern int async_interrupt(int a);
1365 extern void MS_CDECL sigint_handler(int code);
1366 extern void record_get(Lisp_Object tag, CSLbool found);
1367 extern int primep(int32_t);
1368 extern void adjust_all(void);
1369 extern void set_up_functions(CSLbool restartp);
1370 extern void get_user_files_checksum(unsigned char *);
1371 extern Lisp_Object acons(Lisp_Object a, Lisp_Object b, Lisp_Object c);
1372 extern Lisp_Object ash(Lisp_Object a, Lisp_Object b);
1373 extern Lisp_Object bytestream_interpret(Lisp_Object code, Lisp_Object lit,
1374 Lisp_Object *entry_stack);
1375 extern CSLbool complex_stringp(Lisp_Object a);
1376 extern void freshline_trace(void);
1377 extern void freshline_debug(void);
1378 extern Lisp_Object cons(Lisp_Object a, Lisp_Object b);
1379 extern Lisp_Object cons_no_gc(Lisp_Object a, Lisp_Object b);
1380 extern Lisp_Object cons_gc_test(Lisp_Object a);
1381 extern void convert_fp_rep(void *p, int old_rep, int new_rep, int type);
1382 extern Lisp_Object Ceval(Lisp_Object u, Lisp_Object env);
1383 extern uint32_t Crand(void);
1384 extern Lisp_Object Cremainder(Lisp_Object a, Lisp_Object b);
1385 extern void Csrand(uint32_t a, uint32_t b);
1386 extern void discard(Lisp_Object a);
1387 extern CSLbool eql_fn(Lisp_Object a, Lisp_Object b);
1388 extern CSLbool cl_equal_fn(Lisp_Object a, Lisp_Object b);
1389 extern CSLbool equal_fn(Lisp_Object a, Lisp_Object b);
1390 #ifdef TRACED_EQUAL
1391 extern CSLbool traced_equal_fn(Lisp_Object a, Lisp_Object b,
1392 char *, int, int);
1393 #define equal_fn(a, b) traced_equal_fn(a, b, __FILE__, __LINE__, 0)
1394 extern void dump_equals();
1395 #endif
1396 extern CSLbool equalp(Lisp_Object a, Lisp_Object b);
1397 extern Lisp_Object apply(Lisp_Object fn, int nargs,
1398 Lisp_Object env, Lisp_Object fname);
1399 extern Lisp_Object apply_lambda(Lisp_Object def, int nargs,
1400 Lisp_Object env, Lisp_Object name);
1401 extern void deallocate_pages(void);
1402 extern void drop_heap_segments(void);
1403 extern Lisp_Object gcd(Lisp_Object a, Lisp_Object b);
1404 extern Lisp_Object get_pname(Lisp_Object a);
1405 #ifdef COMMON
1406 extern Lisp_Object get(Lisp_Object a, Lisp_Object b, Lisp_Object c);
1407 #else
1408 extern Lisp_Object get(Lisp_Object a, Lisp_Object b);
1409 #endif
1410 extern Lisp_Object getvector(int tag, int type, int32_t length);
1411 extern Lisp_Object getvector_init(int32_t n, Lisp_Object v);
1412 extern Lisp_Object getcodevector(int type, int32_t size);
1413 extern uint32_t hash_lisp_string(Lisp_Object s);
1414 extern void lose_C_def(Lisp_Object a);
1415 extern CSLbool geq2(Lisp_Object a, Lisp_Object b);
1416 extern CSLbool greaterp2(Lisp_Object a, Lisp_Object b);
1417 extern CSLbool lesseq2(Lisp_Object a, Lisp_Object b);
1418 extern CSLbool lessp2(Lisp_Object a, Lisp_Object b);
1419 extern Lisp_Object list2(Lisp_Object a, Lisp_Object b);
1420 extern Lisp_Object list2star(Lisp_Object a, Lisp_Object b, Lisp_Object c);
1421 extern Lisp_Object list3(Lisp_Object a, Lisp_Object b, Lisp_Object c);
1422 extern Lisp_Object list3star(Lisp_Object a, Lisp_Object b,
1423 Lisp_Object c, Lisp_Object d);
1424 extern Lisp_Object list4(Lisp_Object a, Lisp_Object b,
1425 Lisp_Object c, Lisp_Object d);
1426 extern Lisp_Object lognot(Lisp_Object a);
1427 extern Lisp_Object macroexpand(Lisp_Object form, Lisp_Object env);
1428 extern Lisp_Object make_one_word_bignum(int32_t n);
1429 extern Lisp_Object make_package(Lisp_Object name);
1430 extern Lisp_Object make_string(const char *b);
1431 extern Lisp_Object make_nstring(char *b, int32_t n);
1432 extern Lisp_Object make_undefined_symbol(char const *s);
1433 extern Lisp_Object make_symbol(char const *s, int restartp,
1434 one_args *f1, two_args *f2, n_args *fn);
1435 extern void MS_CDECL stdout_printf(char *fmt, ...);
1436 extern void MS_CDECL term_printf(char *fmt, ...);
1437 extern void MS_CDECL err_printf(char *fmt, ...);
1438 extern void MS_CDECL debug_printf(char *fmt, ...);
1439 extern void MS_CDECL trace_printf(char *fmt, ...);
1440 extern char *my_getenv(char *name);
1441 extern Lisp_Object ncons(Lisp_Object a);
1442 extern Lisp_Object ndelete(Lisp_Object a, Lisp_Object b);
1443 extern Lisp_Object negate(Lisp_Object a);
1444 extern Lisp_Object nreverse(Lisp_Object a);
1445 extern FILE *open_file(char *filename, char *original_name,
1446 size_t n, char *dirn, FILE *old_file);
1447 extern Lisp_Object plus2(Lisp_Object a, Lisp_Object b);
1448 extern void preserve(char *msg, int len);
1449 extern void preserve_native_code(void);
1450 extern void relocate_native_function(unsigned char *bps);
1451 extern Lisp_Object prin(Lisp_Object u);
1452 extern char *get_string_data(Lisp_Object a, char *why, int32_t *len);
1453 extern void prin_to_stdout(Lisp_Object u);
1454 extern void prin_to_terminal(Lisp_Object u);
1455 extern void prin_to_debug(Lisp_Object u);
1456 extern void prin_to_query(Lisp_Object u);
1457 extern void prin_to_trace(Lisp_Object u);
1458 extern void prin_to_error(Lisp_Object u);
1459 extern void loop_print_stdout(Lisp_Object o);
1460 extern void loop_print_terminal(Lisp_Object o);
1461 extern void loop_print_debug(Lisp_Object o);
1462 extern void loop_print_query(Lisp_Object o);
1463 extern void loop_print_trace(Lisp_Object o);
1464 extern void loop_print_error(Lisp_Object o);
1465 extern void internal_prin(Lisp_Object u, int prefix);
1466 extern Lisp_Object princ(Lisp_Object u);
1467 extern Lisp_Object print(Lisp_Object u);
1468 extern Lisp_Object printc(Lisp_Object u);
1469 extern void print_bignum(Lisp_Object u, CSLbool blankp, int nobreak);
1470 extern void print_bighexoctbin(Lisp_Object u,
1471 int radix, int width, CSLbool blankp, int nobreak);
1472 extern Lisp_Object putprop(Lisp_Object a, Lisp_Object b,
1473 Lisp_Object c);
1474 extern Lisp_Object quot2(Lisp_Object a, Lisp_Object b);
1475 extern Lisp_Object rational(Lisp_Object a);
1476 extern void read_eval_print(int noisy);
1477 extern Lisp_Object reclaim(Lisp_Object value_to_return, char *why,
1478 int stg_class, intptr_t size);
1479 #ifdef DEBUG
1480 extern void validate_all(char *why, int line, char *file);
1481 extern int check_env(Lisp_Object env);
1482 #endif
1483 extern CSLbool do_not_kill_native_code;
1484 extern void set_fns(Lisp_Object sym, one_args *f1,
1485 two_args *f2, n_args *fn);
1486 extern void setup(int restartp, double storesize);
1487 extern Lisp_Object simplify_string(Lisp_Object s);
1488 extern CSLbool stringp(Lisp_Object a);
1489 extern Lisp_Object times2(Lisp_Object a, Lisp_Object b);
1490 extern int32_t thirty_two_bits(Lisp_Object a);
1491 #ifdef HAVE_INT64_T
1492 extern int64_t sixty_four_bits(Lisp_Object a);
1493 #endif
1494 #ifdef DEBUG
1495 extern void validate_string_fn(Lisp_Object a, char *f, int l);
1496 #define validate_string(a) validate_string_fn(a, __FILE__, __LINE__)
1497 #else
1498 #define validate_string(a)
1499 #endif
1500 #ifdef COMMON
1501 #define onevalue(r) (exit_count=1, (r))
1502 #define nvalues(r, n) (exit_count=(n), (r))
1503 #else
1504 #define onevalue(r) (r)
1505 #define nvalues(r, n) (r)
1506 #endif
1507 #ifdef COMMON
1508 #define eval(a, b) Ceval(a, b)
1509 #define voideval(a, b) Ceval(a, b)
1510 #else
1511 #define eval(a, b) \
1512 (is_cons(a) ? Ceval(a, b) : \
1513 is_symbol(a) ? (qvalue(a) == unset_var ? error(1, err_unset_var, a) : \
1514 onevalue(qvalue(a))) : \
1515 onevalue(a))
1516 #define voideval(a, b) \
1517 if (is_cons(a)) Ceval(a, b)
1518 #endif
1519 #define equal(a, b) \
1520 ((a) == (b) || \
1521 (((((a) ^ (b)) & TAG_BITS) == 0) && \
1522 ((unsigned)(((a) & TAG_BITS) - 1) > 3) && \
1523 equal_fn(a, b)))
1524 #define cl_equal(a, b) \
1525 ((a) == (b) || \
1526 (((((a) ^ (b)) & TAG_BITS) == 0) && \
1527 ((unsigned)(((a) & TAG_BITS) - 1) > 3) && \
1528 cl_equal_fn(a, b)))
1529 #define eql(a, b) \
1530 ((a) == (b) || \
1531 (((((a) ^ (b)) & TAG_BITS) == 0) && \
1532 ((unsigned)(((a) & TAG_BITS) - 1) > 3) && \
1533 eql_fn(a, b)))
1534 #ifndef IMULTIPLY
1535 extern uint32_t Imultiply(uint32_t *rlow, uint32_t a,
1536 uint32_t b, uint32_t c);
1537 #endif
1538 #ifndef IDIVIDE
1539 extern uint32_t Idivide(uint32_t *qp, uint32_t a,
1540 uint32_t b, uint32_t c);
1541 extern uint32_t Idiv10_9(uint32_t *qp, uint32_t a, uint32_t b);
1542 #endif
1543 #define argcheck(var, n, msg) if ((var)!=(n)) return aerror(msg);
1544 extern n_args *zero_arg_functions[];
1545 extern one_args *one_arg_functions[];
1546 extern two_args *two_arg_functions[];
1547 extern n_args *three_arg_functions[];
1548 extern void *useful_functions[];
1549 extern char *address_of_var(int n);
1550 typedef struct setup_type
1551 {
1552 char *name;
1553 one_args *one;
1554 two_args *two;
1555 n_args *n;
1556 } setup_type;
1557 typedef struct setup_type_1
1558 {
1559 char *name;
1560 one_args *one;
1561 two_args *two;
1562 n_args *n;
1563 uint32_t c1;
1564 uint32_t c2;
1565 } setup_type_1;
1566 extern setup_type const
1567 arith06_setup[], arith08_setup[], arith10_setup[], arith12_setup[],
1568 char_setup[], eval1_setup[], eval2_setup[], eval3_setup[],
1569 funcs1_setup[], funcs2_setup[], funcs3_setup[], print_setup[],
1570 read_setup[], mpi_setup[];
1571 extern setup_type const
1572 u01_setup[], u02_setup[], u03_setup[], u04_setup[],
1573 u05_setup[], u06_setup[], u07_setup[], u08_setup[], u09_setup[],
1574 u10_setup[], u11_setup[], u12_setup[], u13_setup[], u14_setup[],
1575 u15_setup[], u16_setup[], u17_setup[], u18_setup[], u19_setup[],
1576 u20_setup[], u21_setup[], u22_setup[], u23_setup[], u24_setup[],
1577 u25_setup[], u26_setup[], u27_setup[], u28_setup[], u29_setup[],
1578 u30_setup[], u31_setup[], u32_setup[], u33_setup[], u34_setup[],
1579 u35_setup[], u36_setup[], u37_setup[], u38_setup[], u39_setup[],
1580 u40_setup[], u41_setup[], u42_setup[], u43_setup[], u44_setup[],
1581 u45_setup[], u46_setup[], u47_setup[], u48_setup[], u49_setup[],
1582 u50_setup[], u51_setup[], u52_setup[], u53_setup[], u54_setup[],
1583 u55_setup[], u56_setup[], u57_setup[], u58_setup[], u59_setup[],
1584 u60_setup[];
1585 extern setup_type const *setup_tables[];
1586 #ifdef NAG
1587 extern setup_type const nag_setup[], asp_setup[];
1588 extern setup_type const socket_setup[], xdr_setup[], grep_setup[];
1589 extern setup_type const gr_setup[], axfns_setup[];
1590 #endif
1591 #ifdef OPENMATH
1592 extern setup_type const om_setup[];
1593 extern setup_type const om_parse_setup[];
1594 #endif
1595 extern char *find_image_directory(int argc, char *argv[]);
1596 extern char program_name[64];
1597 extern Lisp_Object declare_fn(Lisp_Object args, Lisp_Object env);
1598 extern Lisp_Object function_fn(Lisp_Object args, Lisp_Object env);
1599 extern Lisp_Object let_fn_1(Lisp_Object bvl, Lisp_Object body,
1600 Lisp_Object env, int compilerp);
1601 extern Lisp_Object mv_call_fn(Lisp_Object args, Lisp_Object env);
1602 extern Lisp_Object progn_fn(Lisp_Object args, Lisp_Object env);
1603 extern Lisp_Object quote_fn(Lisp_Object args, Lisp_Object env);
1604 extern Lisp_Object tagbody_fn(Lisp_Object args, Lisp_Object env);
1605 extern Lisp_Object resource_exceeded();
1606 extern int64_t time_base, space_base, io_base, errors_base;
1607 extern int64_t time_now, space_now, io_now, errors_now;
1608 extern int64_t time_limit, space_limit, io_limit, errors_limit;
1609 extern CSLbool symbol_protect_flag, warn_about_protected_symbols;
1610 #ifdef JIT
1611 extern char *Jcompile(Lisp_Object def, Lisp_Object env);
1612 extern unsigned long jit_size;
1613 #define JIT_INIT_SIZE 8192
1614 #endif
1615 #ifdef __cplusplus
1616 }
1617 #endif
1618 #endif
1619 #ifndef header_arith_h
1620 #define header_arith_h 1
1621 #define TWO_32 4294967296.0
1622 #define TWO_31 2147483648.0
1623 #define TWO_24 16777216.0
1624 #define TWO_22 4194304.0
1625 #define TWO_21 2097152.0
1626 #define TWO_20 1048576.0
1627 #define M2_31_1 -2147483649.0
1628 #define _pi 3.14159265358979323846
1629 #define _half_pi 1.57079632679489661923
1630 #define boole_clr 0
1631 #define boole_and 1
1632 #define boole_andc2 2
1633 #define boole_1 3
1634 #define boole_andc1 4
1635 #define boole_2 5
1636 #define boole_xor 6
1637 #define boole_ior 7
1638 #define boole_nor 8
1639 #define boole_eqv 9
1640 #define boole_c2 10
1641 #define boole_orc2 11
1642 #define boole_c1 12
1643 #define boole_orc1 13
1644 #define boole_nand 14
1645 #define boole_set 15
1646 #define top_bit_set(n) (((int32_t)(n)) < 0)
1647 #define top_bit(n) (((uint32_t)(n)) >> 31)
1648 #define set_top_bit(n) ((n) | (uint32_t)0x80000000)
1649 #define clear_top_bit(n) ((n) & 0x7fffffff)
1650 #define signed_overflow(n) top_bit_set((n) ^ (((int32_t)(n))<<1))
1651 #ifdef HAVE_UINT64_T
1652 #define IMULTIPLY 1
1653 #define Dmultiply(hi, lo, a, b, c) \
1654 do { uint64_t r64 = (uint64_t)(a) * (uint64_t)(b) + \
1655 (uint32_t)(c); \
1656 (lo) = 0x7fffffffu & (uint32_t)r64; \
1657 (hi) = (uint32_t)(r64 >> 31); } while (0)
1658 #define IDIVIDE 1
1659 #define Ddivide(r, q, a, b, c) \
1660 do { uint64_t r64 = (((uint64_t)(a)) << 31) | (uint64_t)(b); \
1661 uint64_t c64 = (uint64_t)(uint32_t)(c); \
1662 q = (uint32_t)(r64 / c64); \
1663 r = (uint32_t)(r64 % c64); } while (0)
1664 #define Ddiv10_9(r, q, a, b) Ddivide(r, q, a, b, 1000000000u)
1665 #else
1666 #define Dmultiply(hi, lo, a, b, c) ((hi) = Imultiply(&(lo), (a), (b), (c)))
1667 #define Ddivide(r, q, a, b, c) ((r) = Idivide(&(q), (a), (b), (c)))
1668 #define Ddiv10_9(r, q, a, b) ((r) = Idiv10_9(&(q), (a), (b)))
1669 #endif
1670 #define fix_mask (-0x08000000)
1671 #define fixnum_minusp(a) ((int32_t)(a) < 0)
1672 #define bignum_minusp(a) \
1673 ((int32_t)bignum_digits(a)[((bignum_length(a)-CELL)/4)-1]<0)
1674 extern Lisp_Object negateb(Lisp_Object);
1675 extern Lisp_Object copyb(Lisp_Object);
1676 extern Lisp_Object negate(Lisp_Object);
1677 extern Lisp_Object plus2(Lisp_Object a, Lisp_Object b);
1678 extern Lisp_Object difference2(Lisp_Object a, Lisp_Object b);
1679 extern Lisp_Object times2(Lisp_Object a, Lisp_Object b);
1680 extern Lisp_Object quot2(Lisp_Object a, Lisp_Object b);
1681 extern Lisp_Object CLquot2(Lisp_Object a, Lisp_Object b);
1682 extern Lisp_Object quotbn(Lisp_Object a, int32_t n);
1683 extern Lisp_Object quotbn1(Lisp_Object a, int32_t n);
1684 extern Lisp_Object quotbb(Lisp_Object a, Lisp_Object b);
1685 extern Lisp_Object Cremainder(Lisp_Object a, Lisp_Object b);
1686 extern Lisp_Object rembi(Lisp_Object a, Lisp_Object b);
1687 extern Lisp_Object rembb(Lisp_Object a, Lisp_Object b);
1688 extern Lisp_Object shrink_bignum(Lisp_Object a, int32_t lena);
1689 extern Lisp_Object modulus(Lisp_Object a, Lisp_Object b);
1690 extern Lisp_Object rational(Lisp_Object a);
1691 extern Lisp_Object rationalize(Lisp_Object a);
1692 extern Lisp_Object lcm(Lisp_Object a, Lisp_Object b);
1693 extern Lisp_Object lengthen_by_one_bit(Lisp_Object a, int32_t msd);
1694 extern CSLbool numeq2(Lisp_Object a, Lisp_Object b);
1695 extern CSLbool zerop(Lisp_Object a);
1696 extern CSLbool onep(Lisp_Object a);
1697 extern CSLbool minusp(Lisp_Object a);
1698 extern CSLbool plusp(Lisp_Object a);
1699 extern CSLbool lesspbd(Lisp_Object a, double b);
1700 extern CSLbool lessprd(Lisp_Object a, double b);
1701 extern CSLbool lesspdb(double a, Lisp_Object b);
1702 extern CSLbool lesspdr(double a, Lisp_Object b);
1703 extern Lisp_Object make_one_word_bignum(int32_t n);
1704 extern Lisp_Object make_two_word_bignum(int32_t a, uint32_t b);
1705 extern Lisp_Object make_n_word_bignum(int32_t a1, uint32_t a2,
1706 uint32_t a3, int32_t n);
1707 extern Lisp_Object make_sfloat(double d);
1708 extern double float_of_integer(Lisp_Object a);
1709 extern Lisp_Object add1(Lisp_Object p);
1710 extern Lisp_Object sub1(Lisp_Object p);
1711 extern Lisp_Object integerp(Lisp_Object p);
1712 extern double float_of_number(Lisp_Object a);
1713 extern Lisp_Object make_boxfloat(double a, int32_t type);
1714 extern Lisp_Object make_complex(Lisp_Object r, Lisp_Object i);
1715 extern Lisp_Object make_ratio(Lisp_Object p, Lisp_Object q);
1716 extern Lisp_Object ash(Lisp_Object a, Lisp_Object b);
1717 extern Lisp_Object lognot(Lisp_Object a);
1718 extern Lisp_Object logior2(Lisp_Object a, Lisp_Object b);
1719 extern Lisp_Object logxor2(Lisp_Object a, Lisp_Object b);
1720 extern Lisp_Object logand2(Lisp_Object a, Lisp_Object b);
1721 extern Lisp_Object logeqv2(Lisp_Object a, Lisp_Object b);
1722 extern Lisp_Object rationalf(double d);
1723 extern int _reduced_exp(double, double *);
1724 extern CSLbool lesspbi(Lisp_Object a, Lisp_Object b);
1725 extern CSLbool lesspib(Lisp_Object a, Lisp_Object b);
1726 #ifdef COMMON
1727 typedef struct Complex
1728 {
1729 double real;
1730 double imag;
1731 } Complex;
1732 extern Complex MS_CDECL Cln(Complex a);
1733 extern Complex MS_CDECL Ccos(Complex a);
1734 extern Complex MS_CDECL Cexp(Complex a);
1735 extern Complex MS_CDECL Cpow(Complex a, Complex b);
1736 extern double MS_CDECL Cabs(Complex a);
1737 #endif
1738 #endif
1739 #ifndef header_entries_h
1740 #define header_entries_h 1
1741 #ifdef __cplusplus
1742 extern "C" {
1743 #endif
1744 extern Lisp_Object MS_CDECL Lbatchp(Lisp_Object env, int nargs, ...);
1745 extern Lisp_Object MS_CDECL bytecounts(Lisp_Object nil, int nargs, ...);
1746 extern Lisp_Object MS_CDECL Ldate(Lisp_Object env, int nargs, ...);
1747 extern Lisp_Object MS_CDECL Ldatestamp(Lisp_Object nil, int nargs, ...);
1748 extern Lisp_Object MS_CDECL Leject(Lisp_Object env, int nargs, ...);
1749 extern Lisp_Object MS_CDECL Lerror(Lisp_Object env, int nargs, ...);
1750 extern Lisp_Object MS_CDECL Lerror0(Lisp_Object env, int nargs, ...);
1751 extern Lisp_Object MS_CDECL Lflush(Lisp_Object nil, int nargs, ...);
1752 extern Lisp_Object MS_CDECL Lgc0(Lisp_Object nil, int nargs, ...);
1753 extern Lisp_Object MS_CDECL Lgctime(Lisp_Object env, int nargs, ...);
1754 extern Lisp_Object MS_CDECL Lgensym(Lisp_Object env, int nargs, ...);
1755 extern Lisp_Object MS_CDECL Llist_modules(Lisp_Object env, int nargs, ...);
1756 extern Lisp_Object MS_CDECL Llibrary_members0(Lisp_Object env, int nargs, ...);
1757 extern Lisp_Object MS_CDECL Llposn(Lisp_Object env, int nargs, ...);
1758 extern Lisp_Object MS_CDECL Lmapstore0(Lisp_Object env, int nargs, ...);
1759 extern Lisp_Object MS_CDECL Lnext_random(Lisp_Object env, int nargs, ...);
1760 extern Lisp_Object MS_CDECL Lposn(Lisp_Object env, int nargs, ...);
1761 extern Lisp_Object MS_CDECL Lread(Lisp_Object env, int nargs, ...);
1762 extern Lisp_Object MS_CDECL Lreadch(Lisp_Object env, int nargs, ...);
1763 extern Lisp_Object MS_CDECL Lrtell(Lisp_Object nil, int nargs, ...);
1764 extern Lisp_Object MS_CDECL Lterpri(Lisp_Object env, int nargs, ...);
1765 extern Lisp_Object MS_CDECL Ltime(Lisp_Object env, int nargs, ...);
1766 extern Lisp_Object MS_CDECL Ltmpnam(Lisp_Object nil, int nargs, ...);
1767 extern Lisp_Object MS_CDECL Ltyi(Lisp_Object env, int nargs, ...);
1768 extern Lisp_Object autoload1(Lisp_Object env, Lisp_Object a1);
1769 extern Lisp_Object bytecoded1(Lisp_Object env, Lisp_Object a);
1770 extern Lisp_Object byteopt1(Lisp_Object def, Lisp_Object a);
1771 extern Lisp_Object byteoptrest1(Lisp_Object def, Lisp_Object a);
1772 extern Lisp_Object double_bytecoded1(Lisp_Object env, Lisp_Object a);
1773 extern Lisp_Object double_byteopt1(Lisp_Object def, Lisp_Object a);
1774 extern Lisp_Object double_byteoptrest1(Lisp_Object def, Lisp_Object a);
1775 extern Lisp_Object double_funarged1(Lisp_Object env, Lisp_Object a1);
1776 extern Lisp_Object double_hardopt1(Lisp_Object def, Lisp_Object a);
1777 extern Lisp_Object double_hardoptrest1(Lisp_Object def, Lisp_Object a);
1778 extern Lisp_Object double_interpreted1(Lisp_Object env, Lisp_Object a1);
1779 extern Lisp_Object funarged1(Lisp_Object env, Lisp_Object a1);
1780 extern Lisp_Object tracefunarged1(Lisp_Object env, Lisp_Object a1);
1781 extern Lisp_Object hardopt1(Lisp_Object def, Lisp_Object a);
1782 extern Lisp_Object hardoptrest1(Lisp_Object def, Lisp_Object a);
1783 extern Lisp_Object interpreted1(Lisp_Object env, Lisp_Object a1);
1784 extern Lisp_Object tracebytecoded1(Lisp_Object env, Lisp_Object a);
1785 extern Lisp_Object jitcompileme1(Lisp_Object env, Lisp_Object a);
1786 extern Lisp_Object tracebyteopt1(Lisp_Object def, Lisp_Object a);
1787 extern Lisp_Object tracebyteoptrest1(Lisp_Object def, Lisp_Object a);
1788 extern Lisp_Object tracebytecoded1(Lisp_Object env, Lisp_Object a);
1789 extern Lisp_Object traceinterpreted1(Lisp_Object env, Lisp_Object a1);
1790 extern Lisp_Object tracehardopt1(Lisp_Object def, Lisp_Object a);
1791 extern Lisp_Object tracehardoptrest1(Lisp_Object def, Lisp_Object a);
1792 extern Lisp_Object undefined1(Lisp_Object env, Lisp_Object a1);
1793 extern Lisp_Object f1_as_0(Lisp_Object env, Lisp_Object a);
1794 extern Lisp_Object f1_as_1(Lisp_Object env, Lisp_Object a);
1795 #ifdef CJAVA
1796 extern Lisp_Object java1(Lisp_Object env, Lisp_Object a);
1797 #endif
1798 extern Lisp_Object Labsval(Lisp_Object env, Lisp_Object a);
1799 extern Lisp_Object Ladd1(Lisp_Object env, Lisp_Object a);
1800 extern Lisp_Object Lalpha_char_p(Lisp_Object env, Lisp_Object a);
1801 extern Lisp_Object Lapply0(Lisp_Object env, Lisp_Object a);
1802 extern Lisp_Object Lapply_1(Lisp_Object env, Lisp_Object fn);
1803 extern Lisp_Object Latan(Lisp_Object env, Lisp_Object a);
1804 extern Lisp_Object Latom(Lisp_Object env, Lisp_Object a);
1805 extern Lisp_Object Lbanner(Lisp_Object env, Lisp_Object a);
1806 extern Lisp_Object Lboundp(Lisp_Object env, Lisp_Object a);
1807 extern Lisp_Object Lbpsp(Lisp_Object nil, Lisp_Object a);
1808 extern Lisp_Object Lbpsupbv(Lisp_Object nil, Lisp_Object v);
1809 extern Lisp_Object Lcaaaar(Lisp_Object env, Lisp_Object a);
1810 extern Lisp_Object Lcaaadr(Lisp_Object env, Lisp_Object a);
1811 extern Lisp_Object Lcaaar(Lisp_Object env, Lisp_Object a);
1812 extern Lisp_Object Lcaadar(Lisp_Object env, Lisp_Object a);
1813 extern Lisp_Object Lcaaddr(Lisp_Object env, Lisp_Object a);
1814 extern Lisp_Object Lcaadr(Lisp_Object env, Lisp_Object a);
1815 extern Lisp_Object Lcaar(Lisp_Object env, Lisp_Object a);
1816 extern Lisp_Object Lcaar(Lisp_Object env, Lisp_Object a);
1817 extern Lisp_Object Lcadaar(Lisp_Object env, Lisp_Object a);
1818 extern Lisp_Object Lcadadr(Lisp_Object env, Lisp_Object a);
1819 extern Lisp_Object Lcadar(Lisp_Object env, Lisp_Object a);
1820 extern Lisp_Object Lcaddar(Lisp_Object env, Lisp_Object a);
1821 extern Lisp_Object Lcadddr(Lisp_Object env, Lisp_Object a);
1822 extern Lisp_Object Lcaddr(Lisp_Object env, Lisp_Object a);
1823 extern Lisp_Object Lcadr(Lisp_Object env, Lisp_Object a);
1824 extern Lisp_Object Lcadr(Lisp_Object env, Lisp_Object a);
1825 extern Lisp_Object Lcar(Lisp_Object env, Lisp_Object a);
1826 extern Lisp_Object Lcar(Lisp_Object env, Lisp_Object a);
1827 extern Lisp_Object Lcdaaar(Lisp_Object env, Lisp_Object a);
1828 extern Lisp_Object Lcdaadr(Lisp_Object env, Lisp_Object a);
1829 extern Lisp_Object Lcdaar(Lisp_Object env, Lisp_Object a);
1830 extern Lisp_Object Lcdadar(Lisp_Object env, Lisp_Object a);
1831 extern Lisp_Object Lcdaddr(Lisp_Object env, Lisp_Object a);
1832 extern Lisp_Object Lcdadr(Lisp_Object env, Lisp_Object a);
1833 extern Lisp_Object Lcdar(Lisp_Object env, Lisp_Object a);
1834 extern Lisp_Object Lcdar(Lisp_Object env, Lisp_Object a);
1835 extern Lisp_Object Lcddaar(Lisp_Object env, Lisp_Object a);
1836 extern Lisp_Object Lcddadr(Lisp_Object env, Lisp_Object a);
1837 extern Lisp_Object Lcddar(Lisp_Object env, Lisp_Object a);
1838 extern Lisp_Object Lcdddar(Lisp_Object env, Lisp_Object a);
1839 extern Lisp_Object Lcddddr(Lisp_Object env, Lisp_Object a);
1840 extern Lisp_Object Lcdddr(Lisp_Object env, Lisp_Object a);
1841 extern Lisp_Object Lcddr(Lisp_Object env, Lisp_Object a);
1842 extern Lisp_Object Lcddr(Lisp_Object env, Lisp_Object a);
1843 extern Lisp_Object Lcdr(Lisp_Object env, Lisp_Object a);
1844 extern Lisp_Object Lcdr(Lisp_Object env, Lisp_Object a);
1845 extern Lisp_Object Lchar_code(Lisp_Object env, Lisp_Object a);
1846 extern Lisp_Object Lclose(Lisp_Object env, Lisp_Object a);
1847 extern Lisp_Object Lcodep(Lisp_Object env, Lisp_Object a);
1848 extern Lisp_Object Lcompress(Lisp_Object env, Lisp_Object a);
1849 extern Lisp_Object Lconsp(Lisp_Object env, Lisp_Object a);
1850 extern Lisp_Object Lconstantp(Lisp_Object env, Lisp_Object a);
1851 extern Lisp_Object Lcopy_module(Lisp_Object env, Lisp_Object a);
1852 extern Lisp_Object Ldefine_in_module(Lisp_Object env, Lisp_Object a);
1853 extern Lisp_Object Ldelete_module(Lisp_Object env, Lisp_Object a);
1854 extern Lisp_Object Ldigitp(Lisp_Object env, Lisp_Object a);
1855 extern Lisp_Object Lendp(Lisp_Object env, Lisp_Object a);
1856 extern Lisp_Object Lerror1(Lisp_Object nil, Lisp_Object a1);
1857 extern Lisp_Object Lerrorset1(Lisp_Object nil, Lisp_Object form);
1858 extern Lisp_Object Leval(Lisp_Object env, Lisp_Object a);
1859 extern Lisp_Object Levenp(Lisp_Object env, Lisp_Object a);
1860 extern Lisp_Object Levlis(Lisp_Object env, Lisp_Object a);
1861 extern Lisp_Object Lexplode(Lisp_Object env, Lisp_Object a);
1862 extern Lisp_Object Lexplode2lc(Lisp_Object env, Lisp_Object a);
1863 extern Lisp_Object Lexplode2lcn(Lisp_Object nil, Lisp_Object a);
1864 extern Lisp_Object Lexplode2n(Lisp_Object env, Lisp_Object a);
1865 extern Lisp_Object Lexplodec(Lisp_Object env, Lisp_Object a);
1866 extern Lisp_Object Lexplodecn(Lisp_Object env, Lisp_Object a);
1867 extern Lisp_Object Lexplodehex(Lisp_Object nil, Lisp_Object a);
1868 extern Lisp_Object Lexploden(Lisp_Object env, Lisp_Object a);
1869 extern Lisp_Object Lexplodeoctal(Lisp_Object nil, Lisp_Object a);
1870 extern Lisp_Object Lfixp(Lisp_Object env, Lisp_Object a);
1871 extern Lisp_Object Lfloat(Lisp_Object env, Lisp_Object a);
1872 extern Lisp_Object Lfloatp(Lisp_Object env, Lisp_Object a);
1873 extern Lisp_Object Lfrexp(Lisp_Object nil, Lisp_Object a);
1874 extern Lisp_Object Lfuncall1(Lisp_Object env, Lisp_Object fn);
1875 extern Lisp_Object Lgc(Lisp_Object nil, Lisp_Object a);
1876 extern Lisp_Object Lgensym1(Lisp_Object env, Lisp_Object a);
1877 extern Lisp_Object Lgensym2(Lisp_Object env, Lisp_Object a);
1878 extern Lisp_Object Lgetd(Lisp_Object env, Lisp_Object a);
1879 extern Lisp_Object Lgetenv(Lisp_Object env, Lisp_Object a);
1880 extern Lisp_Object Lget_bps(Lisp_Object env, Lisp_Object a);
1881 extern Lisp_Object Lhelp(Lisp_Object nil, Lisp_Object a);
1882 extern Lisp_Object Liadd1(Lisp_Object env, Lisp_Object a);
1883 extern Lisp_Object Lidentity(Lisp_Object env, Lisp_Object a);
1884 extern Lisp_Object Liminus(Lisp_Object env, Lisp_Object a);
1885 extern Lisp_Object Liminusp(Lisp_Object env, Lisp_Object a);
1886 extern Lisp_Object Lindirect(Lisp_Object env, Lisp_Object a);
1887 extern Lisp_Object Lintegerp(Lisp_Object env, Lisp_Object a);
1888 extern Lisp_Object Lintern(Lisp_Object env, Lisp_Object a);
1889 extern Lisp_Object Lionep(Lisp_Object nil, Lisp_Object a);
1890 extern Lisp_Object Lisub1(Lisp_Object env, Lisp_Object a);
1891 extern Lisp_Object Lizerop(Lisp_Object nil, Lisp_Object a);
1892 extern Lisp_Object Llength(Lisp_Object env, Lisp_Object a);
1893 extern Lisp_Object Llengthc(Lisp_Object env, Lisp_Object a);
1894 extern Lisp_Object Llibrary_members(Lisp_Object nil, Lisp_Object a);
1895 extern Lisp_Object Llinelength(Lisp_Object env, Lisp_Object a);
1896 extern Lisp_Object Llist_to_string(Lisp_Object env, Lisp_Object a);
1897 extern Lisp_Object Llist_to_vector(Lisp_Object env, Lisp_Object a);
1898 extern Lisp_Object Lload_module(Lisp_Object env, Lisp_Object a);
1899 extern Lisp_Object Lload_source(Lisp_Object env, Lisp_Object a);
1900 extern Lisp_Object Llognot(Lisp_Object env, Lisp_Object a);
1901 extern Lisp_Object Llog_1(Lisp_Object nil, Lisp_Object a);
1902 extern Lisp_Object Llsd(Lisp_Object env, Lisp_Object a);
1903 extern Lisp_Object Lmacroexpand(Lisp_Object env, Lisp_Object a);
1904 extern Lisp_Object Lmacroexpand_1(Lisp_Object env, Lisp_Object a);
1905 extern Lisp_Object Lmacro_function(Lisp_Object env, Lisp_Object a);
1906 extern Lisp_Object Lmake_global(Lisp_Object env, Lisp_Object a);
1907 extern Lisp_Object Lmake_special(Lisp_Object env, Lisp_Object a);
1908 extern Lisp_Object Lmapstore(Lisp_Object env, Lisp_Object a);
1909 extern Lisp_Object Lmd5(Lisp_Object env, Lisp_Object a1);
1910 extern Lisp_Object Lmd60(Lisp_Object env, Lisp_Object a1);
1911 extern Lisp_Object Lminus(Lisp_Object env, Lisp_Object a);
1912 extern Lisp_Object Lminusp(Lisp_Object env, Lisp_Object a);
1913 extern Lisp_Object Lmkevect(Lisp_Object nil, Lisp_Object n);
1914 extern Lisp_Object Lmkquote(Lisp_Object env, Lisp_Object a);
1915 extern Lisp_Object Lmkvect(Lisp_Object env, Lisp_Object a);
1916 extern Lisp_Object Lmodular_minus(Lisp_Object env, Lisp_Object a);
1917 extern Lisp_Object Lmodular_number(Lisp_Object env, Lisp_Object a);
1918 extern Lisp_Object Lmodular_reciprocal(Lisp_Object env, Lisp_Object a);
1919 extern Lisp_Object Lmodule_exists(Lisp_Object env, Lisp_Object a);
1920 extern Lisp_Object Lmsd(Lisp_Object env, Lisp_Object a);
1921 extern Lisp_Object Lmv_list(Lisp_Object nil, Lisp_Object a);
1922 extern Lisp_Object Lncons(Lisp_Object env, Lisp_Object a);
1923 extern Lisp_Object Lnreverse(Lisp_Object env, Lisp_Object a);
1924 extern Lisp_Object Lnull(Lisp_Object env, Lisp_Object a);
1925 extern Lisp_Object Lnumberp(Lisp_Object env, Lisp_Object a);
1926 extern Lisp_Object Loddp(Lisp_Object env, Lisp_Object a);
1927 extern Lisp_Object Lonep(Lisp_Object env, Lisp_Object a);
1928 extern Lisp_Object Lpagelength(Lisp_Object env, Lisp_Object a);
1929 extern Lisp_Object Lplist(Lisp_Object env, Lisp_Object a);
1930 extern Lisp_Object Lplusp(Lisp_Object env, Lisp_Object a);
1931 extern Lisp_Object Lprin(Lisp_Object env, Lisp_Object a);
1932 extern Lisp_Object Lprin(Lisp_Object env, Lisp_Object a);
1933 extern Lisp_Object Lprin2a(Lisp_Object nil, Lisp_Object a);
1934 extern Lisp_Object Lprinc(Lisp_Object env, Lisp_Object a);
1935 extern Lisp_Object Lprinc(Lisp_Object env, Lisp_Object a);
1936 extern Lisp_Object Lprint(Lisp_Object env, Lisp_Object a);
1937 extern Lisp_Object Lprintc(Lisp_Object env, Lisp_Object a);
1938 extern Lisp_Object Lrandom(Lisp_Object env, Lisp_Object a);
1939 extern Lisp_Object Lrational(Lisp_Object env, Lisp_Object a);
1940 extern Lisp_Object Lrdf1(Lisp_Object env, Lisp_Object a);
1941 extern Lisp_Object Lrds(Lisp_Object env, Lisp_Object a);
1942 extern Lisp_Object Lremd(Lisp_Object env, Lisp_Object a);
1943 extern Lisp_Object Lreverse(Lisp_Object env, Lisp_Object a);
1944 extern Lisp_Object Lsetpchar(Lisp_Object env, Lisp_Object a);
1945 extern Lisp_Object Lset_small_modulus(Lisp_Object env, Lisp_Object a);
1946 extern Lisp_Object Lsmkvect(Lisp_Object env, Lisp_Object a);
1947 extern Lisp_Object Lspecial_char(Lisp_Object env, Lisp_Object a);
1948 extern Lisp_Object Lspecial_form_p(Lisp_Object env, Lisp_Object a);
1949 extern Lisp_Object Lspool(Lisp_Object env, Lisp_Object a);
1950 extern Lisp_Object Lstart_module(Lisp_Object env, Lisp_Object a);
1951 extern Lisp_Object Lstop(Lisp_Object env, Lisp_Object a);
1952 extern Lisp_Object Lstringp(Lisp_Object env, Lisp_Object a);
1953 extern Lisp_Object Lsub1(Lisp_Object env, Lisp_Object a);
1954 extern Lisp_Object Lsymbolp(Lisp_Object env, Lisp_Object a);
1955 extern Lisp_Object Lsymbol_argcount(Lisp_Object env, Lisp_Object a);
1956 extern Lisp_Object Lsymbol_argcode(Lisp_Object env, Lisp_Object a);
1957 extern Lisp_Object Lsymbol_env(Lisp_Object env, Lisp_Object a);
1958 extern Lisp_Object Lsymbol_function(Lisp_Object env, Lisp_Object a);
1959 extern Lisp_Object Lsymbol_globalp(Lisp_Object env, Lisp_Object a);
1960 extern Lisp_Object Lsymbol_name(Lisp_Object env, Lisp_Object a);
1961 extern Lisp_Object Lsymbol_restore_fns(Lisp_Object env, Lisp_Object a);
1962 extern Lisp_Object Lsymbol_specialp(Lisp_Object env, Lisp_Object a);
1963 extern Lisp_Object Lsymbol_value(Lisp_Object env, Lisp_Object a);
1964 extern Lisp_Object Lsystem(Lisp_Object env, Lisp_Object a);
1965 extern Lisp_Object Lthreevectorp(Lisp_Object env, Lisp_Object a);
1966 extern Lisp_Object Ltrace(Lisp_Object env, Lisp_Object a);
1967 extern Lisp_Object Ltruncate(Lisp_Object env, Lisp_Object a);
1968 extern Lisp_Object Lttab(Lisp_Object env, Lisp_Object a);
1969 extern Lisp_Object Ltyo(Lisp_Object env, Lisp_Object a);
1970 extern Lisp_Object Lunintern(Lisp_Object env, Lisp_Object a);
1971 extern Lisp_Object Lunmake_global(Lisp_Object env, Lisp_Object a);
1972 extern Lisp_Object Lunmake_special(Lisp_Object env, Lisp_Object a);
1973 extern Lisp_Object Luntrace(Lisp_Object env, Lisp_Object a);
1974 extern Lisp_Object Lupbv(Lisp_Object env, Lisp_Object a);
1975 extern Lisp_Object Lsimple_vectorp(Lisp_Object env, Lisp_Object a);
1976 extern Lisp_Object Lvectorp(Lisp_Object env, Lisp_Object a);
1977 extern Lisp_Object Lverbos(Lisp_Object env, Lisp_Object a);
1978 extern Lisp_Object Lwhitespace_char_p(Lisp_Object env, Lisp_Object a);
1979 extern Lisp_Object Lwritable_libraryp(Lisp_Object env, Lisp_Object a);
1980 extern Lisp_Object Lwrite_module(Lisp_Object env, Lisp_Object a);
1981 extern Lisp_Object Lwrs(Lisp_Object env, Lisp_Object a);
1982 extern Lisp_Object Lxtab(Lisp_Object env, Lisp_Object a);
1983 extern Lisp_Object Lxtab(Lisp_Object env, Lisp_Object a);
1984 extern Lisp_Object Lzerop(Lisp_Object env, Lisp_Object a);
1985 #ifdef COMMON
1986 extern Lisp_Object Lfind_symbol_1(Lisp_Object nil, Lisp_Object str);
1987 extern Lisp_Object Llistp(Lisp_Object env, Lisp_Object a);
1988 #endif
1989 extern Lisp_Object autoload2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
1990 extern Lisp_Object bytecoded2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
1991 extern Lisp_Object byteopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1992 extern Lisp_Object byteoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1993 extern Lisp_Object double_bytecoded2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
1994 extern Lisp_Object double_byteopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1995 extern Lisp_Object double_byteoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1996 extern Lisp_Object double_funarged2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
1997 extern Lisp_Object double_hardopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1998 extern Lisp_Object double_hardoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
1999 extern Lisp_Object double_interpreted2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2000 extern Lisp_Object funarged2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2001 extern Lisp_Object tracefunarged2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2002 extern Lisp_Object hardopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2003 extern Lisp_Object hardoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2004 extern Lisp_Object interpreted2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2005 extern Lisp_Object tracebyteopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2006 extern Lisp_Object tracebyteoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2007 extern Lisp_Object tracebytecoded2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2008 extern Lisp_Object jitcompileme2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2009 extern Lisp_Object traceinterpreted2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2010 extern Lisp_Object tracehardopt2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2011 extern Lisp_Object tracehardoptrest2(Lisp_Object def, Lisp_Object a, Lisp_Object b);
2012 extern Lisp_Object undefined2(Lisp_Object env, Lisp_Object a1, Lisp_Object a2);
2013 extern Lisp_Object f2_as_0(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2014 extern Lisp_Object f2_as_1(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2015 extern Lisp_Object f2_as_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2016 #ifdef CJAVA
2017 extern Lisp_Object java2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2018 #endif
2019 extern Lisp_Object Lappend(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2020 extern Lisp_Object Lapply_2(Lisp_Object env, Lisp_Object fn, Lisp_Object a1);
2021 extern Lisp_Object Lapply1(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2022 extern Lisp_Object Lash(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2023 extern Lisp_Object Lash1(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2024 extern Lisp_Object Lassoc(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2025 extern Lisp_Object Latan2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2026 extern Lisp_Object Latan2d(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2027 extern Lisp_Object Latsoc(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2028 extern Lisp_Object Lbpsgetv(Lisp_Object nil, Lisp_Object v, Lisp_Object n);
2029 extern Lisp_Object Lcons(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2030 extern Lisp_Object Lcopy_native(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2031 extern Lisp_Object Ldeleq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2032 extern Lisp_Object Ldelete(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2033 extern Lisp_Object Ldifference2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2034 extern Lisp_Object Ldivide(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2035 extern Lisp_Object Lelt(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2036 extern Lisp_Object Leq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2037 extern Lisp_Object Leqcar(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2038 extern Lisp_Object Lequalcar(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2039 extern Lisp_Object Leql(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2040 extern Lisp_Object Leqn(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2041 extern Lisp_Object Lcl_equal(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2042 extern Lisp_Object Lequal(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2043 extern Lisp_Object Lerror2(Lisp_Object nil, Lisp_Object a1, Lisp_Object a2);
2044 extern Lisp_Object Lerrorset2(Lisp_Object nil, Lisp_Object form, Lisp_Object ffg1);
2045 extern Lisp_Object Lexpt(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2046 extern Lisp_Object Lflag(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2047 extern Lisp_Object Lflagp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2048 extern Lisp_Object Lflagpcar(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2049 extern Lisp_Object Lfuncall2(Lisp_Object env, Lisp_Object fn, Lisp_Object a1);
2050 extern Lisp_Object Lgcd(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2051 extern Lisp_Object Lgeq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2052 extern Lisp_Object Lget(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2053 extern Lisp_Object Lget_hash_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2054 extern Lisp_Object Lgetv(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2055 extern Lisp_Object Lgreaterp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2056 extern Lisp_Object Lhelp_2(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2057 extern Lisp_Object Lidifference(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2058 extern Lisp_Object Ligeq(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2059 extern Lisp_Object Ligreaterp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2060 extern Lisp_Object Lileq(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2061 extern Lisp_Object Lilessp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2062 extern Lisp_Object Limax(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2063 extern Lisp_Object Limin(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2064 extern Lisp_Object Linorm(Lisp_Object nil, Lisp_Object a, Lisp_Object k);
2065 extern Lisp_Object Linstate_c_code(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2066 extern Lisp_Object Lintersect(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2067 extern Lisp_Object Liplus2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2068 extern Lisp_Object Liquotient(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2069 extern Lisp_Object Liremainder(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2070 extern Lisp_Object Lirightshift(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2071 extern Lisp_Object Litimes2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2072 extern Lisp_Object Llcm(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2073 extern Lisp_Object Lleq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2074 extern Lisp_Object Llessp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2075 extern Lisp_Object Llist2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2076 extern Lisp_Object Llog(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2077 extern Lisp_Object Llog_2(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2078 extern Lisp_Object Lmake_random_state(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2079 extern Lisp_Object Lmake_random_state(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2080 extern Lisp_Object Lmax2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2081 extern Lisp_Object Lmember(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2082 extern Lisp_Object Lmemq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2083 extern Lisp_Object Lmin2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2084 extern Lisp_Object Lmod(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2085 extern Lisp_Object Lmodular_difference(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2086 extern Lisp_Object Lmodular_expt(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2087 extern Lisp_Object Lmodular_plus(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2088 extern Lisp_Object Lmodular_quotient(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2089 extern Lisp_Object Lmodular_times(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2090 extern Lisp_Object Lnconc(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2091 extern Lisp_Object Lneq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2092 extern Lisp_Object Lnreverse2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2093 extern Lisp_Object Lorderp(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2094 extern Lisp_Object Lpair(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2095 extern Lisp_Object Lplus2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2096 extern Lisp_Object Lquotient(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2097 extern Lisp_Object Lrem(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2098 extern Lisp_Object Lremflag(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2099 extern Lisp_Object Lremprop(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2100 extern Lisp_Object Lresource_limit2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2101 extern Lisp_Object Lrplaca(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2102 extern Lisp_Object Lrplacd(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2103 extern Lisp_Object Lrseek(Lisp_Object nil, Lisp_Object a);
2104 extern Lisp_Object Lset(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2105 extern Lisp_Object Lset_help_file(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2106 extern Lisp_Object Lsgetv(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2107 extern Lisp_Object Lsmemq(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2108 extern Lisp_Object Lsubla(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2109 extern Lisp_Object Lsublis(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2110 extern Lisp_Object Lsymbol_protect(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2111 extern Lisp_Object Lsymbol_set_definition(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2112 extern Lisp_Object Lsymbol_set_env(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2113 extern Lisp_Object Ltimes2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2114 extern Lisp_Object Lunion(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2115 extern Lisp_Object Lwrite_help_module(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2116 extern Lisp_Object Lxcons(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2117 #ifdef COMMON
2118 extern Lisp_Object Laref2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2119 extern Lisp_Object Latan_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2120 extern Lisp_Object Lelt(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2121 extern Lisp_Object Lfloat_2(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2122 extern Lisp_Object Lintern_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2123 extern Lisp_Object Lmacroexpand_1_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2124 extern Lisp_Object Lmacroexpand_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2125 extern Lisp_Object Lrandom_2(Lisp_Object nil, Lisp_Object a, Lisp_Object b);
2126 extern Lisp_Object Ltruncate_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2127 extern Lisp_Object Lunintern_2(Lisp_Object env, Lisp_Object a, Lisp_Object b);
2128 #endif
2129 extern Lisp_Object MS_CDECL autoloadn(Lisp_Object env, int nargs, ...);
2130 extern Lisp_Object MS_CDECL bytecoded0(Lisp_Object env, int nargs, ...);
2131 extern Lisp_Object MS_CDECL bytecoded3(Lisp_Object env, int nargs, ...);
2132 extern Lisp_Object MS_CDECL bytecodedn(Lisp_Object env, int nargs, ...);
2133 extern Lisp_Object MS_CDECL byteoptn(Lisp_Object def, int nargs, ...);
2134 extern Lisp_Object MS_CDECL byteoptrestn(Lisp_Object def, int nargs, ...);
2135 extern Lisp_Object MS_CDECL double_bytecoded0(Lisp_Object env, int nargs, ...);
2136 extern Lisp_Object MS_CDECL double_bytecoded3(Lisp_Object env, int nargs, ...);
2137 extern Lisp_Object MS_CDECL double_bytecodedn(Lisp_Object env, int nargs, ...);
2138 extern Lisp_Object MS_CDECL double_byteoptn(Lisp_Object def, int nargs, ...);
2139 extern Lisp_Object MS_CDECL double_byteoptrestn(Lisp_Object def, int nargs, ...);
2140 extern Lisp_Object MS_CDECL double_funargedn(Lisp_Object env, int nargs, ...);
2141 extern Lisp_Object MS_CDECL double_hardoptn(Lisp_Object def, int nargs, ...);
2142 extern Lisp_Object MS_CDECL double_hardoptrestn(Lisp_Object def, int nargs, ...);
2143 extern Lisp_Object MS_CDECL double_interpretedn(Lisp_Object env, int nargs, ...);
2144 extern Lisp_Object MS_CDECL funargedn(Lisp_Object env, int nargs, ...);
2145 extern Lisp_Object MS_CDECL tracefunargedn(Lisp_Object env, int nargs, ...);
2146 extern Lisp_Object MS_CDECL hardoptn(Lisp_Object def, int nargs, ...);
2147 extern Lisp_Object MS_CDECL hardoptrestn(Lisp_Object def, int nargs, ...);
2148 extern Lisp_Object MS_CDECL interpretedn(Lisp_Object env, int nargs, ...);
2149 extern Lisp_Object MS_CDECL tracebyteoptn(Lisp_Object def, int nargs, ...);
2150 extern Lisp_Object MS_CDECL tracebyteoptrestn(Lisp_Object def, int nargs, ...);
2151 extern Lisp_Object MS_CDECL tracebytecoded0(Lisp_Object env, int nargs, ...);
2152 extern Lisp_Object MS_CDECL tracebytecoded3(Lisp_Object env, int nargs, ...);
2153 extern Lisp_Object MS_CDECL tracebytecodedn(Lisp_Object env, int nargs, ...);
2154 extern Lisp_Object MS_CDECL jitcompileme0(Lisp_Object env, int nargs, ...);
2155 extern Lisp_Object MS_CDECL jitcompileme3(Lisp_Object env, int nargs, ...);
2156 extern Lisp_Object MS_CDECL jitcompilemen(Lisp_Object env, int nargs, ...);
2157 extern Lisp_Object MS_CDECL traceinterpretedn(Lisp_Object env, int nargs, ...);
2158 extern Lisp_Object MS_CDECL tracehardoptn(Lisp_Object def, int nargs, ...);
2159 extern Lisp_Object MS_CDECL tracehardoptrestn(Lisp_Object def, int nargs, ...);
2160 extern Lisp_Object MS_CDECL undefinedn(Lisp_Object env, int nargs, ...);
2161 extern Lisp_Object MS_CDECL f0_as_0(Lisp_Object env, int nargs, ...);
2162 extern Lisp_Object MS_CDECL f3_as_0(Lisp_Object env, int nargs, ...);
2163 extern Lisp_Object MS_CDECL f3_as_1(Lisp_Object env, int nargs, ...);
2164 extern Lisp_Object MS_CDECL f3_as_2(Lisp_Object env, int nargs, ...);
2165 extern Lisp_Object MS_CDECL f3_as_3(Lisp_Object env, int nargs, ...);
2166 #ifdef CJAVA
2167 extern Lisp_Object MS_CDECL java0(Lisp_Object env, int nargs, ...);
2168 extern Lisp_Object MS_CDECL java3(Lisp_Object env, int nargs, ...);
2169 extern Lisp_Object MS_CDECL javan(Lisp_Object env, int nargs, ...);
2170 #endif
2171 extern Lisp_Object MS_CDECL Lacons(Lisp_Object env, int nargs, ...);
2172 extern Lisp_Object MS_CDECL Lapply_n(Lisp_Object env, int nargs, ...);
2173 extern Lisp_Object MS_CDECL Lapply2(Lisp_Object env, int nargs, ...);
2174 extern Lisp_Object MS_CDECL Lapply3(Lisp_Object env, int nargs, ...);
2175 extern Lisp_Object MS_CDECL Lbpsputv(Lisp_Object env, int nargs, ...);
2176 extern Lisp_Object MS_CDECL Lerrorset3(Lisp_Object nil, int nargs, ...);
2177 extern Lisp_Object MS_CDECL Lerrorsetn(Lisp_Object env, int nargs, ...);
2178 extern Lisp_Object MS_CDECL Lfuncalln(Lisp_Object env, int nargs, ...);
2179 extern Lisp_Object MS_CDECL Lhelp_n(Lisp_Object nil, int nargs, ...);
2180 extern Lisp_Object MS_CDECL Llist(Lisp_Object env, int nargs, ...);
2181 extern Lisp_Object MS_CDECL Llist2star(Lisp_Object env, int nargs, ...);
2182 extern Lisp_Object MS_CDECL Llist3(Lisp_Object env, int nargs, ...);
2183 extern Lisp_Object MS_CDECL Llogand(Lisp_Object env, int nargs, ...);
2184 extern Lisp_Object MS_CDECL Llogeqv(Lisp_Object env, int nargs, ...);
2185 extern Lisp_Object MS_CDECL Llogor(Lisp_Object env, int nargs, ...);
2186 extern Lisp_Object MS_CDECL Llogxor(Lisp_Object env, int nargs, ...);
2187 extern Lisp_Object MS_CDECL Lmax(Lisp_Object env, int nargs, ...);
2188 extern Lisp_Object MS_CDECL Lmin(Lisp_Object env, int nargs, ...);
2189 extern Lisp_Object MS_CDECL Lmkhash(Lisp_Object nil, int nargs, ...);
2190 extern Lisp_Object MS_CDECL Lput_hash(Lisp_Object env, int nargs, ...);
2191 extern Lisp_Object MS_CDECL Lputprop(Lisp_Object env, int nargs, ...);
2192 extern Lisp_Object MS_CDECL Lputv(Lisp_Object env, int nargs, ...);
2193 extern Lisp_Object MS_CDECL Lresource_limitn(Lisp_Object env, int nargs, ...);
2194 extern Lisp_Object MS_CDECL Lsputv(Lisp_Object env, int nargs, ...);
2195 extern Lisp_Object MS_CDECL Lsubst(Lisp_Object env, int nargs, ...);
2196 extern Lisp_Object MS_CDECL Lvalues(Lisp_Object env, int nargs, ...);
2197 #ifdef COMMON
2198 extern Lisp_Object MS_CDECL Lappend_n(Lisp_Object nil, int nargs, ...);
2199 extern Lisp_Object MS_CDECL Laref(Lisp_Object env, int nargs, ...);
2200 extern Lisp_Object MS_CDECL Laset(Lisp_Object env, int nargs, ...);
2201 extern Lisp_Object MS_CDECL Leqn_n(Lisp_Object nil, int nargs, ...);
2202 extern Lisp_Object MS_CDECL Lgcd_n(Lisp_Object env, int nargs, ...);
2203 extern Lisp_Object MS_CDECL Lgeq_n(Lisp_Object nil, int nargs, ...);
2204 extern Lisp_Object MS_CDECL Lget_3(Lisp_Object env, int nargs, ...);
2205 extern Lisp_Object MS_CDECL Lgreaterp_n(Lisp_Object nil, int nargs, ...);
2206 extern Lisp_Object MS_CDECL Llcm_n(Lisp_Object env, int nargs, ...);
2207 extern Lisp_Object MS_CDECL Lleq_n(Lisp_Object nil, int nargs, ...);
2208 extern Lisp_Object MS_CDECL Llessp_n(Lisp_Object nil, int nargs, ...);
2209 extern Lisp_Object MS_CDECL Lquotient_n(Lisp_Object nil, int nargs, ...);
2210 #endif
2211 #ifdef OPENMATH
2212 extern Lisp_Object MS_CDECL om_openFileDev(Lisp_Object env, int nargs, ...);
2213 extern Lisp_Object om_openStringDev(Lisp_Object nil, Lisp_Object lstr, Lisp_Object lenc);
2214 extern Lisp_Object om_closeDev(Lisp_Object env, Lisp_Object dev);
2215 extern Lisp_Object om_setDevEncoding(Lisp_Object nil, Lisp_Object ldev, Lisp_Object lenc);
2216 extern Lisp_Object om_makeConn(Lisp_Object nil, Lisp_Object ltimeout);
2217 extern Lisp_Object om_closeConn(Lisp_Object nil, Lisp_Object lconn);
2218 extern Lisp_Object om_getConnInDevice(Lisp_Object nil, Lisp_Object lconn);
2219 extern Lisp_Object om_getConnOutDevice(Lisp_Object nil, Lisp_Object lconn);
2220 extern Lisp_Object MS_CDECL om_connectTCP(Lisp_Object nil, int nargs, ...);
2221 extern Lisp_Object om_bindTCP(Lisp_Object nil, Lisp_Object lconn, Lisp_Object lport);
2222 extern Lisp_Object om_putApp(Lisp_Object nil, Lisp_Object ldev);
2223 extern Lisp_Object om_putEndApp(Lisp_Object nil, Lisp_Object ldev);
2224 extern Lisp_Object om_putAtp(Lisp_Object nil, Lisp_Object ldev);
2225 extern Lisp_Object om_putEndAtp(Lisp_Object nil, Lisp_Object ldev);
2226 extern Lisp_Object om_putAttr(Lisp_Object nil, Lisp_Object ldev);
2227 extern Lisp_Object om_putEndAttr(Lisp_Object nil, Lisp_Object ldev);
2228 extern Lisp_Object om_putBind(Lisp_Object nil, Lisp_Object ldev);
2229 extern Lisp_Object om_putEndBind(Lisp_Object nil, Lisp_Object ldev);
2230 extern Lisp_Object om_putBVar(Lisp_Object nil, Lisp_Object ldev);
2231 extern Lisp_Object om_putEndBVar(Lisp_Object nil, Lisp_Object ldev);
2232 extern Lisp_Object om_putError(Lisp_Object nil, Lisp_Object ldev);
2233 extern Lisp_Object om_putEndError(Lisp_Object nil, Lisp_Object ldev);
2234 extern Lisp_Object om_putObject(Lisp_Object nil, Lisp_Object ldev);
2235 extern Lisp_Object om_putEndObject(Lisp_Object nil, Lisp_Object ldev);
2236 extern Lisp_Object om_putInt(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2237 extern Lisp_Object om_putFloat(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2238 extern Lisp_Object om_putByteArray(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2239 extern Lisp_Object om_putVar(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2240 extern Lisp_Object om_putString(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2241 extern Lisp_Object om_putSymbol(Lisp_Object nil, Lisp_Object ldev, Lisp_Object val);
2242 extern Lisp_Object MS_CDECL om_putSymbol2(Lisp_Object nil, int nargs, ...);
2243 extern Lisp_Object om_getApp(Lisp_Object nil, Lisp_Object ldev);
2244 extern Lisp_Object om_getEndApp(Lisp_Object nil, Lisp_Object ldev);
2245 extern Lisp_Object om_getAtp(Lisp_Object nil, Lisp_Object ldev);
2246 extern Lisp_Object om_getEndAtp(Lisp_Object nil, Lisp_Object ldev);
2247 extern Lisp_Object om_getAttr(Lisp_Object nil, Lisp_Object ldev);
2248 extern Lisp_Object om_getEndAttr(Lisp_Object nil, Lisp_Object ldev);
2249 extern Lisp_Object om_getBind(Lisp_Object nil, Lisp_Object ldev);
2250 extern Lisp_Object om_getEndBind(Lisp_Object nil, Lisp_Object ldev);
2251 extern Lisp_Object om_getBVar(Lisp_Object nil, Lisp_Object ldev);
2252 extern Lisp_Object om_getEndBVar(Lisp_Object nil, Lisp_Object ldev);
2253 extern Lisp_Object om_getError(Lisp_Object nil, Lisp_Object ldev);
2254 extern Lisp_Object om_getEndError(Lisp_Object nil, Lisp_Object ldev);
2255 extern Lisp_Object om_getObject(Lisp_Object nil, Lisp_Object ldev);
2256 extern Lisp_Object om_getEndObject(Lisp_Object nil, Lisp_Object ldev);
2257 extern Lisp_Object om_getInt(Lisp_Object nil, Lisp_Object ldev);
2258 extern Lisp_Object om_getFloat(Lisp_Object nil, Lisp_Object ldev);
2259 extern Lisp_Object om_getByteArray(Lisp_Object nil, Lisp_Object ldev);
2260 extern Lisp_Object om_getVar(Lisp_Object nil, Lisp_Object ldev);
2261 extern Lisp_Object om_getString(Lisp_Object nil, Lisp_Object ldev);
2262 extern Lisp_Object om_getSymbol(Lisp_Object nil, Lisp_Object ldev);
2263 extern Lisp_Object om_getType(Lisp_Object nil, Lisp_Object ldev);
2264 extern Lisp_Object om_stringToStringPtr(Lisp_Object nil, Lisp_Object lstr);
2265 extern Lisp_Object om_stringPtrToString(Lisp_Object nil, Lisp_Object lpstr);
2266 extern Lisp_Object om_read(Lisp_Object nil, Lisp_Object dev);
2267 extern Lisp_Object om_supportsCD(Lisp_Object nil, Lisp_Object lcd);
2268 extern Lisp_Object om_supportsSymbol(Lisp_Object nil, Lisp_Object lcd, Lisp_Object lsym);
2269 extern Lisp_Object MS_CDECL om_listCDs(Lisp_Object nil, int nargs, ...);
2270 extern Lisp_Object om_listSymbols(Lisp_Object nil, Lisp_Object lcd);
2271 extern Lisp_Object om_whichCDs(Lisp_Object nil, Lisp_Object lsym);
2272 #endif
2273 #ifdef __cplusplus
2274 }
2275 #endif
2276 #endif
2277
2278
2279 /* Code for com43 */
2280
CC_com43(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0001,Lisp_Object v0002,Lisp_Object v0003,Lisp_Object v0004,Lisp_Object v0005,...)2281 static Lisp_Object MS_CDECL CC_com43(Lisp_Object env, int nargs,
2282 Lisp_Object v0000, Lisp_Object v0001,
2283 Lisp_Object v0002, Lisp_Object v0003,
2284 Lisp_Object v0004, Lisp_Object v0005, ...)
2285 {
2286 Lisp_Object nil = C_nil;
2287 Lisp_Object v0475, v0476, v0477, v0478;
2288 Lisp_Object fn;
2289 CSL_IGNORE(nil);
2290 argcheck(nargs, 6, "com43");
2291 #ifdef DEBUG
2292 if (check_env(env)) return aerror("env for com43");
2293 #endif
2294 if (stack >= stacklimit)
2295 {
2296 push6(v0005,v0004,v0003,v0002,v0001,v0000);
2297 env = reclaim(env, "stack", GC_STACK, 0);
2298 pop6(v0000,v0001,v0002,v0003,v0004,v0005);
2299 nil = C_nil;
2300 if (exception_pending()) return nil;
2301 }
2302 push(env);
2303 /* space for vars preserved across procedure calls */
2304 push5(nil, nil, nil, nil, nil);
2305 push5(nil, nil, nil, nil, nil);
2306 push5(nil, nil, nil, nil, nil);
2307 push(nil);
2308 /* copy arguments values to proper place */
2309 stack[-4] = v0005;
2310 stack[-5] = v0004;
2311 stack[-6] = v0003;
2312 stack[-7] = v0002;
2313 stack[-8] = v0001;
2314 stack[-9] = v0000;
2315 /* end of prologue */
2316 v0475 = (Lisp_Object)1; /* 0 */
2317 stack[-15] = v0475;
2318 v0477 = elt(env, 1); /* liemat */
2319 v0476 = (Lisp_Object)65; /* 4 */
2320 v0475 = (Lisp_Object)65; /* 4 */
2321 stack[-1] = list3(v0477, v0476, v0475);
2322 nil = C_nil;
2323 if (exception_pending()) goto v0479;
2324 env = stack[-16];
2325 v0477 = elt(env, 2); /* bb */
2326 v0476 = (Lisp_Object)65; /* 4 */
2327 v0475 = (Lisp_Object)65; /* 4 */
2328 stack[0] = list3(v0477, v0476, v0475);
2329 nil = C_nil;
2330 if (exception_pending()) goto v0479;
2331 env = stack[-16];
2332 v0477 = elt(env, 3); /* ff */
2333 v0476 = (Lisp_Object)49; /* 3 */
2334 v0475 = (Lisp_Object)49; /* 3 */
2335 v0475 = list3(v0477, v0476, v0475);
2336 nil = C_nil;
2337 if (exception_pending()) goto v0479;
2338 env = stack[-16];
2339 v0475 = list3(stack[-1], stack[0], v0475);
2340 nil = C_nil;
2341 if (exception_pending()) goto v0479;
2342 env = stack[-16];
2343 fn = elt(env, 16); /* matrix */
2344 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2345 nil = C_nil;
2346 if (exception_pending()) goto v0479;
2347 env = stack[-16];
2348 fn = elt(env, 17); /* aeval */
2349 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2350 nil = C_nil;
2351 if (exception_pending()) goto v0479;
2352 env = stack[-16];
2353 stack[0] = elt(env, 4); /* algebraic */
2354 v0478 = elt(env, 5); /* l_z */
2355 v0477 = (Lisp_Object)65; /* 4 */
2356 v0476 = (Lisp_Object)65; /* 4 */
2357 v0475 = (Lisp_Object)49; /* 3 */
2358 v0475 = list4(v0478, v0477, v0476, v0475);
2359 nil = C_nil;
2360 if (exception_pending()) goto v0479;
2361 env = stack[-16];
2362 v0475 = ncons(v0475);
2363 nil = C_nil;
2364 if (exception_pending()) goto v0479;
2365 env = stack[-16];
2366 fn = elt(env, 18); /* arrayfn */
2367 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2368 nil = C_nil;
2369 if (exception_pending()) goto v0479;
2370 env = stack[-16];
2371 v0475 = (Lisp_Object)17; /* 1 */
2372 stack[-10] = v0475;
2373 goto v0480;
2374
2375 v0480:
2376 v0476 = (Lisp_Object)65; /* 4 */
2377 v0475 = stack[-10];
2378 v0475 = difference2(v0476, v0475);
2379 nil = C_nil;
2380 if (exception_pending()) goto v0479;
2381 env = stack[-16];
2382 v0475 = Lminusp(nil, v0475);
2383 env = stack[-16];
2384 if (v0475 == nil) goto v0481;
2385 v0477 = elt(env, 1); /* liemat */
2386 v0476 = (Lisp_Object)65; /* 4 */
2387 v0475 = (Lisp_Object)17; /* 1 */
2388 stack[0] = list3(v0477, v0476, v0475);
2389 nil = C_nil;
2390 if (exception_pending()) goto v0479;
2391 env = stack[-16];
2392 v0475 = (Lisp_Object)17; /* 1 */
2393 fn = elt(env, 17); /* aeval */
2394 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2395 nil = C_nil;
2396 if (exception_pending()) goto v0479;
2397 env = stack[-16];
2398 fn = elt(env, 19); /* setk */
2399 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2400 nil = C_nil;
2401 if (exception_pending()) goto v0479;
2402 env = stack[-16];
2403 v0476 = elt(env, 9); /* det */
2404 v0475 = elt(env, 1); /* liemat */
2405 v0475 = list2(v0476, v0475);
2406 nil = C_nil;
2407 if (exception_pending()) goto v0479;
2408 env = stack[-16];
2409 fn = elt(env, 17); /* aeval */
2410 v0476 = (*qfn1(fn))(qenv(fn), v0475);
2411 nil = C_nil;
2412 if (exception_pending()) goto v0479;
2413 env = stack[-16];
2414 v0475 = (Lisp_Object)1; /* 0 */
2415 fn = elt(env, 20); /* evalneq */
2416 v0475 = (*qfn2(fn))(qenv(fn), v0476, v0475);
2417 nil = C_nil;
2418 if (exception_pending()) goto v0479;
2419 env = stack[-16];
2420 if (v0475 == nil) goto v0482;
2421 v0475 = (Lisp_Object)17; /* 1 */
2422 fn = elt(env, 17); /* aeval */
2423 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2424 nil = C_nil;
2425 if (exception_pending()) goto v0479;
2426 env = stack[-16];
2427 stack[-15] = v0475;
2428 goto v0483;
2429
2430 v0483:
2431 stack[0] = elt(env, 2); /* bb */
2432 v0477 = elt(env, 10); /* quotient */
2433 v0476 = (Lisp_Object)17; /* 1 */
2434 v0475 = elt(env, 1); /* liemat */
2435 v0475 = list3(v0477, v0476, v0475);
2436 nil = C_nil;
2437 if (exception_pending()) goto v0479;
2438 env = stack[-16];
2439 fn = elt(env, 17); /* aeval */
2440 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2441 nil = C_nil;
2442 if (exception_pending()) goto v0479;
2443 env = stack[-16];
2444 fn = elt(env, 19); /* setk */
2445 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2446 nil = C_nil;
2447 if (exception_pending()) goto v0479;
2448 env = stack[-16];
2449 v0475 = (Lisp_Object)17; /* 1 */
2450 stack[-14] = v0475;
2451 goto v0484;
2452
2453 v0484:
2454 v0476 = (Lisp_Object)49; /* 3 */
2455 v0475 = stack[-14];
2456 v0475 = difference2(v0476, v0475);
2457 nil = C_nil;
2458 if (exception_pending()) goto v0479;
2459 env = stack[-16];
2460 v0475 = Lminusp(nil, v0475);
2461 env = stack[-16];
2462 if (v0475 == nil) goto v0485;
2463 v0475 = (Lisp_Object)17; /* 1 */
2464 stack[-1] = v0475;
2465 goto v0486;
2466
2467 v0486:
2468 v0476 = (Lisp_Object)49; /* 3 */
2469 v0475 = stack[-1];
2470 v0475 = difference2(v0476, v0475);
2471 nil = C_nil;
2472 if (exception_pending()) goto v0479;
2473 env = stack[-16];
2474 v0475 = Lminusp(nil, v0475);
2475 env = stack[-16];
2476 if (v0475 == nil) goto v0487;
2477 v0475 = (Lisp_Object)1; /* 0 */
2478 fn = elt(env, 17); /* aeval */
2479 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2480 nil = C_nil;
2481 if (exception_pending()) goto v0479;
2482 env = stack[-16];
2483 stack[-15] = v0475;
2484 v0475 = (Lisp_Object)17; /* 1 */
2485 stack[-1] = v0475;
2486 goto v0488;
2487
2488 v0488:
2489 v0476 = (Lisp_Object)49; /* 3 */
2490 v0475 = stack[-1];
2491 v0475 = difference2(v0476, v0475);
2492 nil = C_nil;
2493 if (exception_pending()) goto v0479;
2494 env = stack[-16];
2495 v0475 = Lminusp(nil, v0475);
2496 env = stack[-16];
2497 if (v0475 == nil) goto v0489;
2498 v0476 = stack[-15];
2499 v0475 = (Lisp_Object)1; /* 0 */
2500 if (v0476 == v0475) goto v0490;
2501 v0476 = elt(env, 9); /* det */
2502 v0475 = elt(env, 3); /* ff */
2503 v0475 = list2(v0476, v0475);
2504 nil = C_nil;
2505 if (exception_pending()) goto v0479;
2506 env = stack[-16];
2507 fn = elt(env, 17); /* aeval */
2508 v0476 = (*qfn1(fn))(qenv(fn), v0475);
2509 nil = C_nil;
2510 if (exception_pending()) goto v0479;
2511 env = stack[-16];
2512 v0475 = (Lisp_Object)1; /* 0 */
2513 fn = elt(env, 21); /* evalequal */
2514 v0475 = (*qfn2(fn))(qenv(fn), v0476, v0475);
2515 nil = C_nil;
2516 if (exception_pending()) goto v0479;
2517 env = stack[-16];
2518 if (v0475 == nil) goto v0491;
2519 v0475 = elt(env, 14); /* comcom1 */
2520 v0475 = ncons(v0475);
2521 nil = C_nil;
2522 if (exception_pending()) goto v0479;
2523 env = stack[-16];
2524 fn = elt(env, 17); /* aeval */
2525 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2526 nil = C_nil;
2527 if (exception_pending()) goto v0479;
2528 env = stack[-16];
2529 goto v0492;
2530
2531 v0492:
2532 v0477 = elt(env, 2); /* bb */
2533 v0476 = elt(env, 3); /* ff */
2534 v0475 = elt(env, 5); /* l_z */
2535 v0475 = list3(v0477, v0476, v0475);
2536 nil = C_nil;
2537 if (exception_pending()) goto v0479;
2538 env = stack[-16];
2539 fn = elt(env, 22); /* clear */
2540 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2541 nil = C_nil;
2542 if (exception_pending()) goto v0479;
2543 env = stack[-16];
2544 fn = elt(env, 17); /* aeval */
2545 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2546 nil = C_nil;
2547 if (exception_pending()) goto v0479;
2548 v0475 = nil;
2549 { popv(17); return onevalue(v0475); }
2550
2551 v0491:
2552 v0475 = elt(env, 15); /* comcom3 */
2553 v0475 = ncons(v0475);
2554 nil = C_nil;
2555 if (exception_pending()) goto v0479;
2556 env = stack[-16];
2557 fn = elt(env, 17); /* aeval */
2558 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2559 nil = C_nil;
2560 if (exception_pending()) goto v0479;
2561 env = stack[-16];
2562 goto v0492;
2563
2564 v0490:
2565 v0475 = elt(env, 13); /* comcom0 */
2566 v0475 = ncons(v0475);
2567 nil = C_nil;
2568 if (exception_pending()) goto v0479;
2569 env = stack[-16];
2570 fn = elt(env, 17); /* aeval */
2571 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2572 nil = C_nil;
2573 if (exception_pending()) goto v0479;
2574 env = stack[-16];
2575 goto v0492;
2576
2577 v0489:
2578 v0475 = (Lisp_Object)17; /* 1 */
2579 stack[0] = v0475;
2580 goto v0493;
2581
2582 v0493:
2583 v0476 = (Lisp_Object)49; /* 3 */
2584 v0475 = stack[0];
2585 v0475 = difference2(v0476, v0475);
2586 nil = C_nil;
2587 if (exception_pending()) goto v0479;
2588 env = stack[-16];
2589 v0475 = Lminusp(nil, v0475);
2590 env = stack[-16];
2591 if (v0475 == nil) goto v0494;
2592 v0475 = stack[-1];
2593 v0475 = add1(v0475);
2594 nil = C_nil;
2595 if (exception_pending()) goto v0479;
2596 env = stack[-16];
2597 stack[-1] = v0475;
2598 goto v0488;
2599
2600 v0494:
2601 v0477 = elt(env, 3); /* ff */
2602 v0476 = stack[-1];
2603 v0475 = stack[0];
2604 v0475 = list3(v0477, v0476, v0475);
2605 nil = C_nil;
2606 if (exception_pending()) goto v0479;
2607 env = stack[-16];
2608 fn = elt(env, 23); /* aeval!* */
2609 v0476 = (*qfn1(fn))(qenv(fn), v0475);
2610 nil = C_nil;
2611 if (exception_pending()) goto v0479;
2612 env = stack[-16];
2613 v0475 = (Lisp_Object)1; /* 0 */
2614 fn = elt(env, 20); /* evalneq */
2615 v0475 = (*qfn2(fn))(qenv(fn), v0476, v0475);
2616 nil = C_nil;
2617 if (exception_pending()) goto v0479;
2618 env = stack[-16];
2619 if (v0475 == nil) goto v0495;
2620 v0475 = (Lisp_Object)17; /* 1 */
2621 fn = elt(env, 23); /* aeval!* */
2622 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2623 nil = C_nil;
2624 if (exception_pending()) goto v0479;
2625 env = stack[-16];
2626 stack[-15] = v0475;
2627 v0475 = (Lisp_Object)49; /* 3 */
2628 fn = elt(env, 23); /* aeval!* */
2629 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2630 nil = C_nil;
2631 if (exception_pending()) goto v0479;
2632 env = stack[-16];
2633 stack[-1] = v0475;
2634 v0475 = (Lisp_Object)49; /* 3 */
2635 fn = elt(env, 23); /* aeval!* */
2636 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2637 nil = C_nil;
2638 if (exception_pending()) goto v0479;
2639 env = stack[-16];
2640 stack[0] = v0475;
2641 goto v0495;
2642
2643 v0495:
2644 v0475 = stack[0];
2645 v0475 = add1(v0475);
2646 nil = C_nil;
2647 if (exception_pending()) goto v0479;
2648 env = stack[-16];
2649 stack[0] = v0475;
2650 goto v0493;
2651
2652 v0487:
2653 v0477 = elt(env, 3); /* ff */
2654 v0476 = (Lisp_Object)17; /* 1 */
2655 v0475 = stack[-1];
2656 stack[0] = list3(v0477, v0476, v0475);
2657 nil = C_nil;
2658 if (exception_pending()) goto v0479;
2659 env = stack[-16];
2660 v0478 = elt(env, 5); /* l_z */
2661 v0477 = (Lisp_Object)17; /* 1 */
2662 v0476 = (Lisp_Object)33; /* 2 */
2663 v0475 = stack[-1];
2664 v0475 = list4(v0478, v0477, v0476, v0475);
2665 nil = C_nil;
2666 if (exception_pending()) goto v0479;
2667 env = stack[-16];
2668 fn = elt(env, 23); /* aeval!* */
2669 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2670 nil = C_nil;
2671 if (exception_pending()) goto v0479;
2672 env = stack[-16];
2673 fn = elt(env, 19); /* setk */
2674 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2675 nil = C_nil;
2676 if (exception_pending()) goto v0479;
2677 env = stack[-16];
2678 v0477 = elt(env, 3); /* ff */
2679 v0476 = (Lisp_Object)33; /* 2 */
2680 v0475 = stack[-1];
2681 stack[0] = list3(v0477, v0476, v0475);
2682 nil = C_nil;
2683 if (exception_pending()) goto v0479;
2684 env = stack[-16];
2685 v0478 = elt(env, 5); /* l_z */
2686 v0477 = (Lisp_Object)17; /* 1 */
2687 v0476 = (Lisp_Object)49; /* 3 */
2688 v0475 = stack[-1];
2689 v0475 = list4(v0478, v0477, v0476, v0475);
2690 nil = C_nil;
2691 if (exception_pending()) goto v0479;
2692 env = stack[-16];
2693 fn = elt(env, 23); /* aeval!* */
2694 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2695 nil = C_nil;
2696 if (exception_pending()) goto v0479;
2697 env = stack[-16];
2698 fn = elt(env, 19); /* setk */
2699 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2700 nil = C_nil;
2701 if (exception_pending()) goto v0479;
2702 env = stack[-16];
2703 v0477 = elt(env, 3); /* ff */
2704 v0476 = (Lisp_Object)49; /* 3 */
2705 v0475 = stack[-1];
2706 stack[0] = list3(v0477, v0476, v0475);
2707 nil = C_nil;
2708 if (exception_pending()) goto v0479;
2709 env = stack[-16];
2710 v0478 = elt(env, 5); /* l_z */
2711 v0477 = (Lisp_Object)33; /* 2 */
2712 v0476 = (Lisp_Object)49; /* 3 */
2713 v0475 = stack[-1];
2714 v0475 = list4(v0478, v0477, v0476, v0475);
2715 nil = C_nil;
2716 if (exception_pending()) goto v0479;
2717 env = stack[-16];
2718 fn = elt(env, 23); /* aeval!* */
2719 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2720 nil = C_nil;
2721 if (exception_pending()) goto v0479;
2722 env = stack[-16];
2723 fn = elt(env, 19); /* setk */
2724 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
2725 nil = C_nil;
2726 if (exception_pending()) goto v0479;
2727 env = stack[-16];
2728 v0475 = stack[-1];
2729 v0475 = add1(v0475);
2730 nil = C_nil;
2731 if (exception_pending()) goto v0479;
2732 env = stack[-16];
2733 stack[-1] = v0475;
2734 goto v0486;
2735
2736 v0485:
2737 v0478 = elt(env, 5); /* l_z */
2738 v0477 = (Lisp_Object)17; /* 1 */
2739 v0476 = (Lisp_Object)33; /* 2 */
2740 v0475 = stack[-14];
2741 stack[-13] = list4(v0478, v0477, v0476, v0475);
2742 nil = C_nil;
2743 if (exception_pending()) goto v0479;
2744 env = stack[-16];
2745 v0475 = (Lisp_Object)17; /* 1 */
2746 stack[-12] = v0475;
2747 v0475 = (Lisp_Object)1; /* 0 */
2748 stack[-11] = v0475;
2749 goto v0496;
2750
2751 v0496:
2752 v0476 = (Lisp_Object)65; /* 4 */
2753 v0475 = stack[-12];
2754 v0475 = difference2(v0476, v0475);
2755 nil = C_nil;
2756 if (exception_pending()) goto v0479;
2757 env = stack[-16];
2758 v0475 = Lminusp(nil, v0475);
2759 env = stack[-16];
2760 if (v0475 == nil) goto v0497;
2761 v0475 = stack[-11];
2762 fn = elt(env, 19); /* setk */
2763 v0475 = (*qfn2(fn))(qenv(fn), stack[-13], v0475);
2764 nil = C_nil;
2765 if (exception_pending()) goto v0479;
2766 env = stack[-16];
2767 v0478 = elt(env, 5); /* l_z */
2768 v0477 = (Lisp_Object)17; /* 1 */
2769 v0476 = (Lisp_Object)49; /* 3 */
2770 v0475 = stack[-14];
2771 stack[-13] = list4(v0478, v0477, v0476, v0475);
2772 nil = C_nil;
2773 if (exception_pending()) goto v0479;
2774 env = stack[-16];
2775 v0475 = (Lisp_Object)17; /* 1 */
2776 stack[-12] = v0475;
2777 v0475 = (Lisp_Object)1; /* 0 */
2778 stack[-11] = v0475;
2779 goto v0498;
2780
2781 v0498:
2782 v0476 = (Lisp_Object)65; /* 4 */
2783 v0475 = stack[-12];
2784 v0475 = difference2(v0476, v0475);
2785 nil = C_nil;
2786 if (exception_pending()) goto v0479;
2787 env = stack[-16];
2788 v0475 = Lminusp(nil, v0475);
2789 env = stack[-16];
2790 if (v0475 == nil) goto v0499;
2791 v0475 = stack[-11];
2792 fn = elt(env, 19); /* setk */
2793 v0475 = (*qfn2(fn))(qenv(fn), stack[-13], v0475);
2794 nil = C_nil;
2795 if (exception_pending()) goto v0479;
2796 env = stack[-16];
2797 v0478 = elt(env, 5); /* l_z */
2798 v0477 = (Lisp_Object)33; /* 2 */
2799 v0476 = (Lisp_Object)49; /* 3 */
2800 v0475 = stack[-14];
2801 stack[-13] = list4(v0478, v0477, v0476, v0475);
2802 nil = C_nil;
2803 if (exception_pending()) goto v0479;
2804 env = stack[-16];
2805 v0475 = (Lisp_Object)17; /* 1 */
2806 stack[-12] = v0475;
2807 v0475 = (Lisp_Object)1; /* 0 */
2808 stack[-11] = v0475;
2809 goto v0500;
2810
2811 v0500:
2812 v0476 = (Lisp_Object)65; /* 4 */
2813 v0475 = stack[-12];
2814 v0475 = difference2(v0476, v0475);
2815 nil = C_nil;
2816 if (exception_pending()) goto v0479;
2817 env = stack[-16];
2818 v0475 = Lminusp(nil, v0475);
2819 env = stack[-16];
2820 if (v0475 == nil) goto v0501;
2821 v0475 = stack[-11];
2822 fn = elt(env, 19); /* setk */
2823 v0475 = (*qfn2(fn))(qenv(fn), stack[-13], v0475);
2824 nil = C_nil;
2825 if (exception_pending()) goto v0479;
2826 env = stack[-16];
2827 v0478 = elt(env, 5); /* l_z */
2828 v0477 = (Lisp_Object)17; /* 1 */
2829 v0476 = (Lisp_Object)65; /* 4 */
2830 v0475 = stack[-14];
2831 stack[-9] = list4(v0478, v0477, v0476, v0475);
2832 nil = C_nil;
2833 if (exception_pending()) goto v0479;
2834 env = stack[-16];
2835 v0475 = (Lisp_Object)17; /* 1 */
2836 stack[-8] = v0475;
2837 v0475 = (Lisp_Object)1; /* 0 */
2838 stack[-7] = v0475;
2839 goto v0502;
2840
2841 v0502:
2842 v0476 = (Lisp_Object)65; /* 4 */
2843 v0475 = stack[-8];
2844 v0475 = difference2(v0476, v0475);
2845 nil = C_nil;
2846 if (exception_pending()) goto v0479;
2847 env = stack[-16];
2848 v0475 = Lminusp(nil, v0475);
2849 env = stack[-16];
2850 if (v0475 == nil) goto v0503;
2851 v0475 = stack[-7];
2852 fn = elt(env, 19); /* setk */
2853 v0475 = (*qfn2(fn))(qenv(fn), stack[-9], v0475);
2854 nil = C_nil;
2855 if (exception_pending()) goto v0479;
2856 env = stack[-16];
2857 v0478 = elt(env, 5); /* l_z */
2858 v0477 = (Lisp_Object)33; /* 2 */
2859 v0476 = (Lisp_Object)65; /* 4 */
2860 v0475 = stack[-14];
2861 stack[-9] = list4(v0478, v0477, v0476, v0475);
2862 nil = C_nil;
2863 if (exception_pending()) goto v0479;
2864 env = stack[-16];
2865 v0475 = (Lisp_Object)17; /* 1 */
2866 stack[-8] = v0475;
2867 v0475 = (Lisp_Object)1; /* 0 */
2868 stack[-7] = v0475;
2869 goto v0504;
2870
2871 v0504:
2872 v0476 = (Lisp_Object)65; /* 4 */
2873 v0475 = stack[-8];
2874 v0475 = difference2(v0476, v0475);
2875 nil = C_nil;
2876 if (exception_pending()) goto v0479;
2877 env = stack[-16];
2878 v0475 = Lminusp(nil, v0475);
2879 env = stack[-16];
2880 if (v0475 == nil) goto v0505;
2881 v0475 = stack[-7];
2882 fn = elt(env, 19); /* setk */
2883 v0475 = (*qfn2(fn))(qenv(fn), stack[-9], v0475);
2884 nil = C_nil;
2885 if (exception_pending()) goto v0479;
2886 env = stack[-16];
2887 v0478 = elt(env, 5); /* l_z */
2888 v0477 = (Lisp_Object)49; /* 3 */
2889 v0476 = (Lisp_Object)65; /* 4 */
2890 v0475 = stack[-14];
2891 stack[-9] = list4(v0478, v0477, v0476, v0475);
2892 nil = C_nil;
2893 if (exception_pending()) goto v0479;
2894 env = stack[-16];
2895 v0475 = (Lisp_Object)17; /* 1 */
2896 stack[-8] = v0475;
2897 v0475 = (Lisp_Object)1; /* 0 */
2898 stack[-7] = v0475;
2899 goto v0506;
2900
2901 v0506:
2902 v0476 = (Lisp_Object)65; /* 4 */
2903 v0475 = stack[-8];
2904 v0475 = difference2(v0476, v0475);
2905 nil = C_nil;
2906 if (exception_pending()) goto v0479;
2907 env = stack[-16];
2908 v0475 = Lminusp(nil, v0475);
2909 env = stack[-16];
2910 if (v0475 == nil) goto v0507;
2911 v0475 = stack[-7];
2912 fn = elt(env, 19); /* setk */
2913 v0475 = (*qfn2(fn))(qenv(fn), stack[-9], v0475);
2914 nil = C_nil;
2915 if (exception_pending()) goto v0479;
2916 env = stack[-16];
2917 v0475 = stack[-14];
2918 v0475 = add1(v0475);
2919 nil = C_nil;
2920 if (exception_pending()) goto v0479;
2921 env = stack[-16];
2922 stack[-14] = v0475;
2923 goto v0484;
2924
2925 v0507:
2926 stack[-6] = elt(env, 11); /* plus */
2927 v0475 = (Lisp_Object)17; /* 1 */
2928 stack[-5] = v0475;
2929 v0475 = (Lisp_Object)1; /* 0 */
2930 stack[-4] = v0475;
2931 goto v0508;
2932
2933 v0508:
2934 v0476 = (Lisp_Object)65; /* 4 */
2935 v0475 = stack[-5];
2936 v0475 = difference2(v0476, v0475);
2937 nil = C_nil;
2938 if (exception_pending()) goto v0479;
2939 env = stack[-16];
2940 v0475 = Lminusp(nil, v0475);
2941 env = stack[-16];
2942 if (v0475 == nil) goto v0509;
2943 v0475 = stack[-4];
2944 v0476 = v0475;
2945 v0475 = stack[-7];
2946 v0475 = list3(stack[-6], v0476, v0475);
2947 nil = C_nil;
2948 if (exception_pending()) goto v0479;
2949 env = stack[-16];
2950 fn = elt(env, 23); /* aeval!* */
2951 v0475 = (*qfn1(fn))(qenv(fn), v0475);
2952 nil = C_nil;
2953 if (exception_pending()) goto v0479;
2954 env = stack[-16];
2955 stack[-7] = v0475;
2956 v0475 = stack[-8];
2957 v0475 = add1(v0475);
2958 nil = C_nil;
2959 if (exception_pending()) goto v0479;
2960 env = stack[-16];
2961 stack[-8] = v0475;
2962 goto v0506;
2963
2964 v0509:
2965 stack[-3] = elt(env, 11); /* plus */
2966 stack[-2] = elt(env, 12); /* times */
2967 v0477 = elt(env, 1); /* liemat */
2968 v0476 = (Lisp_Object)49; /* 3 */
2969 v0475 = stack[-8];
2970 stack[-1] = list3(v0477, v0476, v0475);
2971 nil = C_nil;
2972 if (exception_pending()) goto v0479;
2973 env = stack[-16];
2974 v0478 = elt(env, 7); /* cc */
2975 v0477 = stack[-8];
2976 v0476 = stack[-15];
2977 v0475 = stack[-5];
2978 stack[0] = list4(v0478, v0477, v0476, v0475);
2979 nil = C_nil;
2980 if (exception_pending()) goto v0479;
2981 env = stack[-16];
2982 v0477 = elt(env, 2); /* bb */
2983 v0476 = stack[-5];
2984 v0475 = stack[-14];
2985 v0475 = list3(v0477, v0476, v0475);
2986 nil = C_nil;
2987 if (exception_pending()) goto v0479;
2988 env = stack[-16];
2989 v0475 = list4(stack[-2], stack[-1], stack[0], v0475);
2990 nil = C_nil;
2991 if (exception_pending()) goto v0479;
2992 env = stack[-16];
2993 fn = elt(env, 23); /* aeval!* */
2994 v0476 = (*qfn1(fn))(qenv(fn), v0475);
2995 nil = C_nil;
2996 if (exception_pending()) goto v0479;
2997 env = stack[-16];
2998 v0475 = stack[-4];
2999 v0475 = list3(stack[-3], v0476, v0475);
3000 nil = C_nil;
3001 if (exception_pending()) goto v0479;
3002 env = stack[-16];
3003 fn = elt(env, 23); /* aeval!* */
3004 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3005 nil = C_nil;
3006 if (exception_pending()) goto v0479;
3007 env = stack[-16];
3008 stack[-4] = v0475;
3009 v0475 = stack[-5];
3010 v0475 = add1(v0475);
3011 nil = C_nil;
3012 if (exception_pending()) goto v0479;
3013 env = stack[-16];
3014 stack[-5] = v0475;
3015 goto v0508;
3016
3017 v0505:
3018 stack[-6] = elt(env, 11); /* plus */
3019 v0475 = (Lisp_Object)17; /* 1 */
3020 stack[-5] = v0475;
3021 v0475 = (Lisp_Object)1; /* 0 */
3022 stack[-4] = v0475;
3023 goto v0510;
3024
3025 v0510:
3026 v0476 = (Lisp_Object)65; /* 4 */
3027 v0475 = stack[-5];
3028 v0475 = difference2(v0476, v0475);
3029 nil = C_nil;
3030 if (exception_pending()) goto v0479;
3031 env = stack[-16];
3032 v0475 = Lminusp(nil, v0475);
3033 env = stack[-16];
3034 if (v0475 == nil) goto v0511;
3035 v0475 = stack[-4];
3036 v0476 = v0475;
3037 v0475 = stack[-7];
3038 v0475 = list3(stack[-6], v0476, v0475);
3039 nil = C_nil;
3040 if (exception_pending()) goto v0479;
3041 env = stack[-16];
3042 fn = elt(env, 23); /* aeval!* */
3043 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3044 nil = C_nil;
3045 if (exception_pending()) goto v0479;
3046 env = stack[-16];
3047 stack[-7] = v0475;
3048 v0475 = stack[-8];
3049 v0475 = add1(v0475);
3050 nil = C_nil;
3051 if (exception_pending()) goto v0479;
3052 env = stack[-16];
3053 stack[-8] = v0475;
3054 goto v0504;
3055
3056 v0511:
3057 stack[-3] = elt(env, 11); /* plus */
3058 stack[-2] = elt(env, 12); /* times */
3059 v0477 = elt(env, 1); /* liemat */
3060 v0476 = (Lisp_Object)33; /* 2 */
3061 v0475 = stack[-8];
3062 stack[-1] = list3(v0477, v0476, v0475);
3063 nil = C_nil;
3064 if (exception_pending()) goto v0479;
3065 env = stack[-16];
3066 v0478 = elt(env, 7); /* cc */
3067 v0477 = stack[-8];
3068 v0476 = stack[-15];
3069 v0475 = stack[-5];
3070 stack[0] = list4(v0478, v0477, v0476, v0475);
3071 nil = C_nil;
3072 if (exception_pending()) goto v0479;
3073 env = stack[-16];
3074 v0477 = elt(env, 2); /* bb */
3075 v0476 = stack[-5];
3076 v0475 = stack[-14];
3077 v0475 = list3(v0477, v0476, v0475);
3078 nil = C_nil;
3079 if (exception_pending()) goto v0479;
3080 env = stack[-16];
3081 v0475 = list4(stack[-2], stack[-1], stack[0], v0475);
3082 nil = C_nil;
3083 if (exception_pending()) goto v0479;
3084 env = stack[-16];
3085 fn = elt(env, 23); /* aeval!* */
3086 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3087 nil = C_nil;
3088 if (exception_pending()) goto v0479;
3089 env = stack[-16];
3090 v0475 = stack[-4];
3091 v0475 = list3(stack[-3], v0476, v0475);
3092 nil = C_nil;
3093 if (exception_pending()) goto v0479;
3094 env = stack[-16];
3095 fn = elt(env, 23); /* aeval!* */
3096 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3097 nil = C_nil;
3098 if (exception_pending()) goto v0479;
3099 env = stack[-16];
3100 stack[-4] = v0475;
3101 v0475 = stack[-5];
3102 v0475 = add1(v0475);
3103 nil = C_nil;
3104 if (exception_pending()) goto v0479;
3105 env = stack[-16];
3106 stack[-5] = v0475;
3107 goto v0510;
3108
3109 v0503:
3110 stack[-6] = elt(env, 11); /* plus */
3111 v0475 = (Lisp_Object)17; /* 1 */
3112 stack[-5] = v0475;
3113 v0475 = (Lisp_Object)1; /* 0 */
3114 stack[-4] = v0475;
3115 goto v0512;
3116
3117 v0512:
3118 v0476 = (Lisp_Object)65; /* 4 */
3119 v0475 = stack[-5];
3120 v0475 = difference2(v0476, v0475);
3121 nil = C_nil;
3122 if (exception_pending()) goto v0479;
3123 env = stack[-16];
3124 v0475 = Lminusp(nil, v0475);
3125 env = stack[-16];
3126 if (v0475 == nil) goto v0513;
3127 v0475 = stack[-4];
3128 v0476 = v0475;
3129 v0475 = stack[-7];
3130 v0475 = list3(stack[-6], v0476, v0475);
3131 nil = C_nil;
3132 if (exception_pending()) goto v0479;
3133 env = stack[-16];
3134 fn = elt(env, 23); /* aeval!* */
3135 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3136 nil = C_nil;
3137 if (exception_pending()) goto v0479;
3138 env = stack[-16];
3139 stack[-7] = v0475;
3140 v0475 = stack[-8];
3141 v0475 = add1(v0475);
3142 nil = C_nil;
3143 if (exception_pending()) goto v0479;
3144 env = stack[-16];
3145 stack[-8] = v0475;
3146 goto v0502;
3147
3148 v0513:
3149 stack[-3] = elt(env, 11); /* plus */
3150 stack[-2] = elt(env, 12); /* times */
3151 v0477 = elt(env, 1); /* liemat */
3152 v0476 = (Lisp_Object)17; /* 1 */
3153 v0475 = stack[-8];
3154 stack[-1] = list3(v0477, v0476, v0475);
3155 nil = C_nil;
3156 if (exception_pending()) goto v0479;
3157 env = stack[-16];
3158 v0478 = elt(env, 7); /* cc */
3159 v0477 = stack[-8];
3160 v0476 = stack[-15];
3161 v0475 = stack[-5];
3162 stack[0] = list4(v0478, v0477, v0476, v0475);
3163 nil = C_nil;
3164 if (exception_pending()) goto v0479;
3165 env = stack[-16];
3166 v0477 = elt(env, 2); /* bb */
3167 v0476 = stack[-5];
3168 v0475 = stack[-14];
3169 v0475 = list3(v0477, v0476, v0475);
3170 nil = C_nil;
3171 if (exception_pending()) goto v0479;
3172 env = stack[-16];
3173 v0475 = list4(stack[-2], stack[-1], stack[0], v0475);
3174 nil = C_nil;
3175 if (exception_pending()) goto v0479;
3176 env = stack[-16];
3177 fn = elt(env, 23); /* aeval!* */
3178 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3179 nil = C_nil;
3180 if (exception_pending()) goto v0479;
3181 env = stack[-16];
3182 v0475 = stack[-4];
3183 v0475 = list3(stack[-3], v0476, v0475);
3184 nil = C_nil;
3185 if (exception_pending()) goto v0479;
3186 env = stack[-16];
3187 fn = elt(env, 23); /* aeval!* */
3188 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3189 nil = C_nil;
3190 if (exception_pending()) goto v0479;
3191 env = stack[-16];
3192 stack[-4] = v0475;
3193 v0475 = stack[-5];
3194 v0475 = add1(v0475);
3195 nil = C_nil;
3196 if (exception_pending()) goto v0479;
3197 env = stack[-16];
3198 stack[-5] = v0475;
3199 goto v0512;
3200
3201 v0501:
3202 stack[-10] = elt(env, 11); /* plus */
3203 v0475 = (Lisp_Object)17; /* 1 */
3204 stack[-9] = v0475;
3205 v0475 = (Lisp_Object)1; /* 0 */
3206 stack[-8] = v0475;
3207 goto v0514;
3208
3209 v0514:
3210 v0476 = (Lisp_Object)65; /* 4 */
3211 v0475 = stack[-9];
3212 v0475 = difference2(v0476, v0475);
3213 nil = C_nil;
3214 if (exception_pending()) goto v0479;
3215 env = stack[-16];
3216 v0475 = Lminusp(nil, v0475);
3217 env = stack[-16];
3218 if (v0475 == nil) goto v0515;
3219 v0475 = stack[-8];
3220 v0476 = v0475;
3221 v0475 = stack[-11];
3222 v0475 = list3(stack[-10], v0476, v0475);
3223 nil = C_nil;
3224 if (exception_pending()) goto v0479;
3225 env = stack[-16];
3226 fn = elt(env, 23); /* aeval!* */
3227 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3228 nil = C_nil;
3229 if (exception_pending()) goto v0479;
3230 env = stack[-16];
3231 stack[-11] = v0475;
3232 v0475 = stack[-12];
3233 v0475 = add1(v0475);
3234 nil = C_nil;
3235 if (exception_pending()) goto v0479;
3236 env = stack[-16];
3237 stack[-12] = v0475;
3238 goto v0500;
3239
3240 v0515:
3241 stack[-7] = elt(env, 11); /* plus */
3242 v0475 = (Lisp_Object)17; /* 1 */
3243 stack[-6] = v0475;
3244 v0475 = (Lisp_Object)1; /* 0 */
3245 stack[-5] = v0475;
3246 goto v0516;
3247
3248 v0516:
3249 v0476 = (Lisp_Object)65; /* 4 */
3250 v0475 = stack[-6];
3251 v0475 = difference2(v0476, v0475);
3252 nil = C_nil;
3253 if (exception_pending()) goto v0479;
3254 env = stack[-16];
3255 v0475 = Lminusp(nil, v0475);
3256 env = stack[-16];
3257 if (v0475 == nil) goto v0517;
3258 v0475 = stack[-5];
3259 v0476 = v0475;
3260 v0475 = stack[-8];
3261 v0475 = list3(stack[-7], v0476, v0475);
3262 nil = C_nil;
3263 if (exception_pending()) goto v0479;
3264 env = stack[-16];
3265 fn = elt(env, 23); /* aeval!* */
3266 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3267 nil = C_nil;
3268 if (exception_pending()) goto v0479;
3269 env = stack[-16];
3270 stack[-8] = v0475;
3271 v0475 = stack[-9];
3272 v0475 = add1(v0475);
3273 nil = C_nil;
3274 if (exception_pending()) goto v0479;
3275 env = stack[-16];
3276 stack[-9] = v0475;
3277 goto v0514;
3278
3279 v0517:
3280 stack[-4] = elt(env, 11); /* plus */
3281 stack[-3] = elt(env, 12); /* times */
3282 v0477 = elt(env, 1); /* liemat */
3283 v0476 = (Lisp_Object)33; /* 2 */
3284 v0475 = stack[-12];
3285 stack[-2] = list3(v0477, v0476, v0475);
3286 nil = C_nil;
3287 if (exception_pending()) goto v0479;
3288 env = stack[-16];
3289 v0477 = elt(env, 1); /* liemat */
3290 v0476 = (Lisp_Object)49; /* 3 */
3291 v0475 = stack[-9];
3292 stack[-1] = list3(v0477, v0476, v0475);
3293 nil = C_nil;
3294 if (exception_pending()) goto v0479;
3295 env = stack[-16];
3296 v0478 = elt(env, 7); /* cc */
3297 v0477 = stack[-12];
3298 v0476 = stack[-9];
3299 v0475 = stack[-6];
3300 stack[0] = list4(v0478, v0477, v0476, v0475);
3301 nil = C_nil;
3302 if (exception_pending()) goto v0479;
3303 env = stack[-16];
3304 v0477 = elt(env, 2); /* bb */
3305 v0476 = stack[-6];
3306 v0475 = stack[-14];
3307 v0475 = list3(v0477, v0476, v0475);
3308 nil = C_nil;
3309 if (exception_pending()) goto v0479;
3310 env = stack[-16];
3311 v0475 = list2(stack[0], v0475);
3312 nil = C_nil;
3313 if (exception_pending()) goto v0479;
3314 env = stack[-16];
3315 v0475 = list3star(stack[-3], stack[-2], stack[-1], v0475);
3316 nil = C_nil;
3317 if (exception_pending()) goto v0479;
3318 env = stack[-16];
3319 fn = elt(env, 23); /* aeval!* */
3320 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3321 nil = C_nil;
3322 if (exception_pending()) goto v0479;
3323 env = stack[-16];
3324 v0475 = stack[-5];
3325 v0475 = list3(stack[-4], v0476, v0475);
3326 nil = C_nil;
3327 if (exception_pending()) goto v0479;
3328 env = stack[-16];
3329 fn = elt(env, 23); /* aeval!* */
3330 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3331 nil = C_nil;
3332 if (exception_pending()) goto v0479;
3333 env = stack[-16];
3334 stack[-5] = v0475;
3335 v0475 = stack[-6];
3336 v0475 = add1(v0475);
3337 nil = C_nil;
3338 if (exception_pending()) goto v0479;
3339 env = stack[-16];
3340 stack[-6] = v0475;
3341 goto v0516;
3342
3343 v0499:
3344 stack[-10] = elt(env, 11); /* plus */
3345 v0475 = (Lisp_Object)17; /* 1 */
3346 stack[-9] = v0475;
3347 v0475 = (Lisp_Object)1; /* 0 */
3348 stack[-8] = v0475;
3349 goto v0518;
3350
3351 v0518:
3352 v0476 = (Lisp_Object)65; /* 4 */
3353 v0475 = stack[-9];
3354 v0475 = difference2(v0476, v0475);
3355 nil = C_nil;
3356 if (exception_pending()) goto v0479;
3357 env = stack[-16];
3358 v0475 = Lminusp(nil, v0475);
3359 env = stack[-16];
3360 if (v0475 == nil) goto v0519;
3361 v0475 = stack[-8];
3362 v0476 = v0475;
3363 v0475 = stack[-11];
3364 v0475 = list3(stack[-10], v0476, v0475);
3365 nil = C_nil;
3366 if (exception_pending()) goto v0479;
3367 env = stack[-16];
3368 fn = elt(env, 23); /* aeval!* */
3369 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3370 nil = C_nil;
3371 if (exception_pending()) goto v0479;
3372 env = stack[-16];
3373 stack[-11] = v0475;
3374 v0475 = stack[-12];
3375 v0475 = add1(v0475);
3376 nil = C_nil;
3377 if (exception_pending()) goto v0479;
3378 env = stack[-16];
3379 stack[-12] = v0475;
3380 goto v0498;
3381
3382 v0519:
3383 stack[-7] = elt(env, 11); /* plus */
3384 v0475 = (Lisp_Object)17; /* 1 */
3385 stack[-6] = v0475;
3386 v0475 = (Lisp_Object)1; /* 0 */
3387 stack[-5] = v0475;
3388 goto v0520;
3389
3390 v0520:
3391 v0476 = (Lisp_Object)65; /* 4 */
3392 v0475 = stack[-6];
3393 v0475 = difference2(v0476, v0475);
3394 nil = C_nil;
3395 if (exception_pending()) goto v0479;
3396 env = stack[-16];
3397 v0475 = Lminusp(nil, v0475);
3398 env = stack[-16];
3399 if (v0475 == nil) goto v0521;
3400 v0475 = stack[-5];
3401 v0476 = v0475;
3402 v0475 = stack[-8];
3403 v0475 = list3(stack[-7], v0476, v0475);
3404 nil = C_nil;
3405 if (exception_pending()) goto v0479;
3406 env = stack[-16];
3407 fn = elt(env, 23); /* aeval!* */
3408 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3409 nil = C_nil;
3410 if (exception_pending()) goto v0479;
3411 env = stack[-16];
3412 stack[-8] = v0475;
3413 v0475 = stack[-9];
3414 v0475 = add1(v0475);
3415 nil = C_nil;
3416 if (exception_pending()) goto v0479;
3417 env = stack[-16];
3418 stack[-9] = v0475;
3419 goto v0518;
3420
3421 v0521:
3422 stack[-4] = elt(env, 11); /* plus */
3423 stack[-3] = elt(env, 12); /* times */
3424 v0477 = elt(env, 1); /* liemat */
3425 v0476 = (Lisp_Object)17; /* 1 */
3426 v0475 = stack[-12];
3427 stack[-2] = list3(v0477, v0476, v0475);
3428 nil = C_nil;
3429 if (exception_pending()) goto v0479;
3430 env = stack[-16];
3431 v0477 = elt(env, 1); /* liemat */
3432 v0476 = (Lisp_Object)49; /* 3 */
3433 v0475 = stack[-9];
3434 stack[-1] = list3(v0477, v0476, v0475);
3435 nil = C_nil;
3436 if (exception_pending()) goto v0479;
3437 env = stack[-16];
3438 v0478 = elt(env, 7); /* cc */
3439 v0477 = stack[-12];
3440 v0476 = stack[-9];
3441 v0475 = stack[-6];
3442 stack[0] = list4(v0478, v0477, v0476, v0475);
3443 nil = C_nil;
3444 if (exception_pending()) goto v0479;
3445 env = stack[-16];
3446 v0477 = elt(env, 2); /* bb */
3447 v0476 = stack[-6];
3448 v0475 = stack[-14];
3449 v0475 = list3(v0477, v0476, v0475);
3450 nil = C_nil;
3451 if (exception_pending()) goto v0479;
3452 env = stack[-16];
3453 v0475 = list2(stack[0], v0475);
3454 nil = C_nil;
3455 if (exception_pending()) goto v0479;
3456 env = stack[-16];
3457 v0475 = list3star(stack[-3], stack[-2], stack[-1], v0475);
3458 nil = C_nil;
3459 if (exception_pending()) goto v0479;
3460 env = stack[-16];
3461 fn = elt(env, 23); /* aeval!* */
3462 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3463 nil = C_nil;
3464 if (exception_pending()) goto v0479;
3465 env = stack[-16];
3466 v0475 = stack[-5];
3467 v0475 = list3(stack[-4], v0476, v0475);
3468 nil = C_nil;
3469 if (exception_pending()) goto v0479;
3470 env = stack[-16];
3471 fn = elt(env, 23); /* aeval!* */
3472 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3473 nil = C_nil;
3474 if (exception_pending()) goto v0479;
3475 env = stack[-16];
3476 stack[-5] = v0475;
3477 v0475 = stack[-6];
3478 v0475 = add1(v0475);
3479 nil = C_nil;
3480 if (exception_pending()) goto v0479;
3481 env = stack[-16];
3482 stack[-6] = v0475;
3483 goto v0520;
3484
3485 v0497:
3486 stack[-10] = elt(env, 11); /* plus */
3487 v0475 = (Lisp_Object)17; /* 1 */
3488 stack[-9] = v0475;
3489 v0475 = (Lisp_Object)1; /* 0 */
3490 stack[-8] = v0475;
3491 goto v0522;
3492
3493 v0522:
3494 v0476 = (Lisp_Object)65; /* 4 */
3495 v0475 = stack[-9];
3496 v0475 = difference2(v0476, v0475);
3497 nil = C_nil;
3498 if (exception_pending()) goto v0479;
3499 env = stack[-16];
3500 v0475 = Lminusp(nil, v0475);
3501 env = stack[-16];
3502 if (v0475 == nil) goto v0523;
3503 v0475 = stack[-8];
3504 v0476 = v0475;
3505 v0475 = stack[-11];
3506 v0475 = list3(stack[-10], v0476, v0475);
3507 nil = C_nil;
3508 if (exception_pending()) goto v0479;
3509 env = stack[-16];
3510 fn = elt(env, 23); /* aeval!* */
3511 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3512 nil = C_nil;
3513 if (exception_pending()) goto v0479;
3514 env = stack[-16];
3515 stack[-11] = v0475;
3516 v0475 = stack[-12];
3517 v0475 = add1(v0475);
3518 nil = C_nil;
3519 if (exception_pending()) goto v0479;
3520 env = stack[-16];
3521 stack[-12] = v0475;
3522 goto v0496;
3523
3524 v0523:
3525 stack[-7] = elt(env, 11); /* plus */
3526 v0475 = (Lisp_Object)17; /* 1 */
3527 stack[-6] = v0475;
3528 v0475 = (Lisp_Object)1; /* 0 */
3529 stack[-5] = v0475;
3530 goto v0524;
3531
3532 v0524:
3533 v0476 = (Lisp_Object)65; /* 4 */
3534 v0475 = stack[-6];
3535 v0475 = difference2(v0476, v0475);
3536 nil = C_nil;
3537 if (exception_pending()) goto v0479;
3538 env = stack[-16];
3539 v0475 = Lminusp(nil, v0475);
3540 env = stack[-16];
3541 if (v0475 == nil) goto v0525;
3542 v0475 = stack[-5];
3543 v0476 = v0475;
3544 v0475 = stack[-8];
3545 v0475 = list3(stack[-7], v0476, v0475);
3546 nil = C_nil;
3547 if (exception_pending()) goto v0479;
3548 env = stack[-16];
3549 fn = elt(env, 23); /* aeval!* */
3550 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3551 nil = C_nil;
3552 if (exception_pending()) goto v0479;
3553 env = stack[-16];
3554 stack[-8] = v0475;
3555 v0475 = stack[-9];
3556 v0475 = add1(v0475);
3557 nil = C_nil;
3558 if (exception_pending()) goto v0479;
3559 env = stack[-16];
3560 stack[-9] = v0475;
3561 goto v0522;
3562
3563 v0525:
3564 stack[-4] = elt(env, 11); /* plus */
3565 stack[-3] = elt(env, 12); /* times */
3566 v0477 = elt(env, 1); /* liemat */
3567 v0476 = (Lisp_Object)17; /* 1 */
3568 v0475 = stack[-12];
3569 stack[-2] = list3(v0477, v0476, v0475);
3570 nil = C_nil;
3571 if (exception_pending()) goto v0479;
3572 env = stack[-16];
3573 v0477 = elt(env, 1); /* liemat */
3574 v0476 = (Lisp_Object)33; /* 2 */
3575 v0475 = stack[-9];
3576 stack[-1] = list3(v0477, v0476, v0475);
3577 nil = C_nil;
3578 if (exception_pending()) goto v0479;
3579 env = stack[-16];
3580 v0478 = elt(env, 7); /* cc */
3581 v0477 = stack[-12];
3582 v0476 = stack[-9];
3583 v0475 = stack[-6];
3584 stack[0] = list4(v0478, v0477, v0476, v0475);
3585 nil = C_nil;
3586 if (exception_pending()) goto v0479;
3587 env = stack[-16];
3588 v0477 = elt(env, 2); /* bb */
3589 v0476 = stack[-6];
3590 v0475 = stack[-14];
3591 v0475 = list3(v0477, v0476, v0475);
3592 nil = C_nil;
3593 if (exception_pending()) goto v0479;
3594 env = stack[-16];
3595 v0475 = list2(stack[0], v0475);
3596 nil = C_nil;
3597 if (exception_pending()) goto v0479;
3598 env = stack[-16];
3599 v0475 = list3star(stack[-3], stack[-2], stack[-1], v0475);
3600 nil = C_nil;
3601 if (exception_pending()) goto v0479;
3602 env = stack[-16];
3603 fn = elt(env, 23); /* aeval!* */
3604 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3605 nil = C_nil;
3606 if (exception_pending()) goto v0479;
3607 env = stack[-16];
3608 v0475 = stack[-5];
3609 v0475 = list3(stack[-4], v0476, v0475);
3610 nil = C_nil;
3611 if (exception_pending()) goto v0479;
3612 env = stack[-16];
3613 fn = elt(env, 23); /* aeval!* */
3614 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3615 nil = C_nil;
3616 if (exception_pending()) goto v0479;
3617 env = stack[-16];
3618 stack[-5] = v0475;
3619 v0475 = stack[-6];
3620 v0475 = add1(v0475);
3621 nil = C_nil;
3622 if (exception_pending()) goto v0479;
3623 env = stack[-16];
3624 stack[-6] = v0475;
3625 goto v0524;
3626
3627 v0482:
3628 v0475 = (Lisp_Object)33; /* 2 */
3629 stack[-2] = v0475;
3630 goto v0526;
3631
3632 v0526:
3633 v0476 = (Lisp_Object)65; /* 4 */
3634 v0475 = stack[-2];
3635 v0475 = difference2(v0476, v0475);
3636 nil = C_nil;
3637 if (exception_pending()) goto v0479;
3638 env = stack[-16];
3639 v0475 = Lminusp(nil, v0475);
3640 env = stack[-16];
3641 if (!(v0475 == nil)) goto v0483;
3642 stack[-1] = elt(env, 1); /* liemat */
3643 stack[0] = (Lisp_Object)65; /* 4 */
3644 v0475 = stack[-2];
3645 v0475 = sub1(v0475);
3646 nil = C_nil;
3647 if (exception_pending()) goto v0479;
3648 env = stack[-16];
3649 stack[0] = list3(stack[-1], stack[0], v0475);
3650 nil = C_nil;
3651 if (exception_pending()) goto v0479;
3652 env = stack[-16];
3653 v0475 = (Lisp_Object)1; /* 0 */
3654 fn = elt(env, 23); /* aeval!* */
3655 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3656 nil = C_nil;
3657 if (exception_pending()) goto v0479;
3658 env = stack[-16];
3659 fn = elt(env, 19); /* setk */
3660 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
3661 nil = C_nil;
3662 if (exception_pending()) goto v0479;
3663 env = stack[-16];
3664 v0477 = elt(env, 1); /* liemat */
3665 v0476 = (Lisp_Object)65; /* 4 */
3666 v0475 = stack[-2];
3667 stack[0] = list3(v0477, v0476, v0475);
3668 nil = C_nil;
3669 if (exception_pending()) goto v0479;
3670 env = stack[-16];
3671 v0475 = (Lisp_Object)17; /* 1 */
3672 fn = elt(env, 23); /* aeval!* */
3673 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3674 nil = C_nil;
3675 if (exception_pending()) goto v0479;
3676 env = stack[-16];
3677 fn = elt(env, 19); /* setk */
3678 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
3679 nil = C_nil;
3680 if (exception_pending()) goto v0479;
3681 env = stack[-16];
3682 v0476 = elt(env, 9); /* det */
3683 v0475 = elt(env, 1); /* liemat */
3684 v0475 = list2(v0476, v0475);
3685 nil = C_nil;
3686 if (exception_pending()) goto v0479;
3687 env = stack[-16];
3688 fn = elt(env, 23); /* aeval!* */
3689 v0476 = (*qfn1(fn))(qenv(fn), v0475);
3690 nil = C_nil;
3691 if (exception_pending()) goto v0479;
3692 env = stack[-16];
3693 v0475 = (Lisp_Object)1; /* 0 */
3694 fn = elt(env, 20); /* evalneq */
3695 v0475 = (*qfn2(fn))(qenv(fn), v0476, v0475);
3696 nil = C_nil;
3697 if (exception_pending()) goto v0479;
3698 env = stack[-16];
3699 if (v0475 == nil) goto v0527;
3700 v0475 = stack[-2];
3701 fn = elt(env, 23); /* aeval!* */
3702 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3703 nil = C_nil;
3704 if (exception_pending()) goto v0479;
3705 env = stack[-16];
3706 stack[-15] = v0475;
3707 v0475 = (Lisp_Object)65; /* 4 */
3708 fn = elt(env, 23); /* aeval!* */
3709 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3710 nil = C_nil;
3711 if (exception_pending()) goto v0479;
3712 env = stack[-16];
3713 stack[-2] = v0475;
3714 goto v0527;
3715
3716 v0527:
3717 v0475 = stack[-2];
3718 v0475 = add1(v0475);
3719 nil = C_nil;
3720 if (exception_pending()) goto v0479;
3721 env = stack[-16];
3722 stack[-2] = v0475;
3723 goto v0526;
3724
3725 v0481:
3726 v0478 = elt(env, 7); /* cc */
3727 v0477 = (Lisp_Object)33; /* 2 */
3728 v0476 = (Lisp_Object)17; /* 1 */
3729 v0475 = stack[-10];
3730 stack[-1] = list4(v0478, v0477, v0476, v0475);
3731 nil = C_nil;
3732 if (exception_pending()) goto v0479;
3733 env = stack[-16];
3734 stack[0] = elt(env, 8); /* minus */
3735 v0478 = elt(env, 7); /* cc */
3736 v0477 = (Lisp_Object)17; /* 1 */
3737 v0476 = (Lisp_Object)33; /* 2 */
3738 v0475 = stack[-10];
3739 v0475 = list4(v0478, v0477, v0476, v0475);
3740 nil = C_nil;
3741 if (exception_pending()) goto v0479;
3742 env = stack[-16];
3743 v0475 = list2(stack[0], v0475);
3744 nil = C_nil;
3745 if (exception_pending()) goto v0479;
3746 env = stack[-16];
3747 fn = elt(env, 23); /* aeval!* */
3748 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3749 nil = C_nil;
3750 if (exception_pending()) goto v0479;
3751 env = stack[-16];
3752 fn = elt(env, 19); /* setk */
3753 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3754 nil = C_nil;
3755 if (exception_pending()) goto v0479;
3756 env = stack[-16];
3757 v0478 = elt(env, 7); /* cc */
3758 v0477 = (Lisp_Object)49; /* 3 */
3759 v0476 = (Lisp_Object)17; /* 1 */
3760 v0475 = stack[-10];
3761 stack[-1] = list4(v0478, v0477, v0476, v0475);
3762 nil = C_nil;
3763 if (exception_pending()) goto v0479;
3764 env = stack[-16];
3765 stack[0] = elt(env, 8); /* minus */
3766 v0478 = elt(env, 7); /* cc */
3767 v0477 = (Lisp_Object)17; /* 1 */
3768 v0476 = (Lisp_Object)49; /* 3 */
3769 v0475 = stack[-10];
3770 v0475 = list4(v0478, v0477, v0476, v0475);
3771 nil = C_nil;
3772 if (exception_pending()) goto v0479;
3773 env = stack[-16];
3774 v0475 = list2(stack[0], v0475);
3775 nil = C_nil;
3776 if (exception_pending()) goto v0479;
3777 env = stack[-16];
3778 fn = elt(env, 23); /* aeval!* */
3779 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3780 nil = C_nil;
3781 if (exception_pending()) goto v0479;
3782 env = stack[-16];
3783 fn = elt(env, 19); /* setk */
3784 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3785 nil = C_nil;
3786 if (exception_pending()) goto v0479;
3787 env = stack[-16];
3788 v0478 = elt(env, 7); /* cc */
3789 v0477 = (Lisp_Object)49; /* 3 */
3790 v0476 = (Lisp_Object)33; /* 2 */
3791 v0475 = stack[-10];
3792 stack[-1] = list4(v0478, v0477, v0476, v0475);
3793 nil = C_nil;
3794 if (exception_pending()) goto v0479;
3795 env = stack[-16];
3796 stack[0] = elt(env, 8); /* minus */
3797 v0478 = elt(env, 7); /* cc */
3798 v0477 = (Lisp_Object)33; /* 2 */
3799 v0476 = (Lisp_Object)49; /* 3 */
3800 v0475 = stack[-10];
3801 v0475 = list4(v0478, v0477, v0476, v0475);
3802 nil = C_nil;
3803 if (exception_pending()) goto v0479;
3804 env = stack[-16];
3805 v0475 = list2(stack[0], v0475);
3806 nil = C_nil;
3807 if (exception_pending()) goto v0479;
3808 env = stack[-16];
3809 fn = elt(env, 23); /* aeval!* */
3810 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3811 nil = C_nil;
3812 if (exception_pending()) goto v0479;
3813 env = stack[-16];
3814 fn = elt(env, 19); /* setk */
3815 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3816 nil = C_nil;
3817 if (exception_pending()) goto v0479;
3818 env = stack[-16];
3819 v0478 = elt(env, 7); /* cc */
3820 v0477 = (Lisp_Object)65; /* 4 */
3821 v0476 = (Lisp_Object)17; /* 1 */
3822 v0475 = stack[-10];
3823 stack[-1] = list4(v0478, v0477, v0476, v0475);
3824 nil = C_nil;
3825 if (exception_pending()) goto v0479;
3826 env = stack[-16];
3827 stack[0] = elt(env, 8); /* minus */
3828 v0478 = elt(env, 7); /* cc */
3829 v0477 = (Lisp_Object)17; /* 1 */
3830 v0476 = (Lisp_Object)65; /* 4 */
3831 v0475 = stack[-10];
3832 v0475 = list4(v0478, v0477, v0476, v0475);
3833 nil = C_nil;
3834 if (exception_pending()) goto v0479;
3835 env = stack[-16];
3836 v0475 = list2(stack[0], v0475);
3837 nil = C_nil;
3838 if (exception_pending()) goto v0479;
3839 env = stack[-16];
3840 fn = elt(env, 23); /* aeval!* */
3841 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3842 nil = C_nil;
3843 if (exception_pending()) goto v0479;
3844 env = stack[-16];
3845 fn = elt(env, 19); /* setk */
3846 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3847 nil = C_nil;
3848 if (exception_pending()) goto v0479;
3849 env = stack[-16];
3850 v0478 = elt(env, 7); /* cc */
3851 v0477 = (Lisp_Object)65; /* 4 */
3852 v0476 = (Lisp_Object)33; /* 2 */
3853 v0475 = stack[-10];
3854 stack[-1] = list4(v0478, v0477, v0476, v0475);
3855 nil = C_nil;
3856 if (exception_pending()) goto v0479;
3857 env = stack[-16];
3858 stack[0] = elt(env, 8); /* minus */
3859 v0478 = elt(env, 7); /* cc */
3860 v0477 = (Lisp_Object)33; /* 2 */
3861 v0476 = (Lisp_Object)65; /* 4 */
3862 v0475 = stack[-10];
3863 v0475 = list4(v0478, v0477, v0476, v0475);
3864 nil = C_nil;
3865 if (exception_pending()) goto v0479;
3866 env = stack[-16];
3867 v0475 = list2(stack[0], v0475);
3868 nil = C_nil;
3869 if (exception_pending()) goto v0479;
3870 env = stack[-16];
3871 fn = elt(env, 23); /* aeval!* */
3872 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3873 nil = C_nil;
3874 if (exception_pending()) goto v0479;
3875 env = stack[-16];
3876 fn = elt(env, 19); /* setk */
3877 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3878 nil = C_nil;
3879 if (exception_pending()) goto v0479;
3880 env = stack[-16];
3881 v0478 = elt(env, 7); /* cc */
3882 v0477 = (Lisp_Object)65; /* 4 */
3883 v0476 = (Lisp_Object)49; /* 3 */
3884 v0475 = stack[-10];
3885 stack[-1] = list4(v0478, v0477, v0476, v0475);
3886 nil = C_nil;
3887 if (exception_pending()) goto v0479;
3888 env = stack[-16];
3889 stack[0] = elt(env, 8); /* minus */
3890 v0478 = elt(env, 7); /* cc */
3891 v0477 = (Lisp_Object)49; /* 3 */
3892 v0476 = (Lisp_Object)65; /* 4 */
3893 v0475 = stack[-10];
3894 v0475 = list4(v0478, v0477, v0476, v0475);
3895 nil = C_nil;
3896 if (exception_pending()) goto v0479;
3897 env = stack[-16];
3898 v0475 = list2(stack[0], v0475);
3899 nil = C_nil;
3900 if (exception_pending()) goto v0479;
3901 env = stack[-16];
3902 fn = elt(env, 23); /* aeval!* */
3903 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3904 nil = C_nil;
3905 if (exception_pending()) goto v0479;
3906 env = stack[-16];
3907 fn = elt(env, 19); /* setk */
3908 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3909 nil = C_nil;
3910 if (exception_pending()) goto v0479;
3911 env = stack[-16];
3912 v0478 = elt(env, 7); /* cc */
3913 v0477 = (Lisp_Object)17; /* 1 */
3914 v0476 = (Lisp_Object)17; /* 1 */
3915 v0475 = stack[-10];
3916 stack[-3] = list4(v0478, v0477, v0476, v0475);
3917 nil = C_nil;
3918 if (exception_pending()) goto v0479;
3919 env = stack[-16];
3920 v0478 = elt(env, 7); /* cc */
3921 v0477 = (Lisp_Object)33; /* 2 */
3922 v0476 = (Lisp_Object)33; /* 2 */
3923 v0475 = stack[-10];
3924 stack[-2] = list4(v0478, v0477, v0476, v0475);
3925 nil = C_nil;
3926 if (exception_pending()) goto v0479;
3927 env = stack[-16];
3928 v0478 = elt(env, 7); /* cc */
3929 v0477 = (Lisp_Object)49; /* 3 */
3930 v0476 = (Lisp_Object)49; /* 3 */
3931 v0475 = stack[-10];
3932 stack[-1] = list4(v0478, v0477, v0476, v0475);
3933 nil = C_nil;
3934 if (exception_pending()) goto v0479;
3935 env = stack[-16];
3936 v0478 = elt(env, 7); /* cc */
3937 v0477 = (Lisp_Object)65; /* 4 */
3938 v0476 = (Lisp_Object)65; /* 4 */
3939 v0475 = stack[-10];
3940 stack[0] = list4(v0478, v0477, v0476, v0475);
3941 nil = C_nil;
3942 if (exception_pending()) goto v0479;
3943 env = stack[-16];
3944 v0475 = (Lisp_Object)1; /* 0 */
3945 fn = elt(env, 23); /* aeval!* */
3946 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3947 nil = C_nil;
3948 if (exception_pending()) goto v0479;
3949 env = stack[-16];
3950 fn = elt(env, 19); /* setk */
3951 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
3952 nil = C_nil;
3953 if (exception_pending()) goto v0479;
3954 env = stack[-16];
3955 fn = elt(env, 19); /* setk */
3956 v0475 = (*qfn2(fn))(qenv(fn), stack[-1], v0475);
3957 nil = C_nil;
3958 if (exception_pending()) goto v0479;
3959 env = stack[-16];
3960 fn = elt(env, 19); /* setk */
3961 v0475 = (*qfn2(fn))(qenv(fn), stack[-2], v0475);
3962 nil = C_nil;
3963 if (exception_pending()) goto v0479;
3964 env = stack[-16];
3965 fn = elt(env, 19); /* setk */
3966 v0475 = (*qfn2(fn))(qenv(fn), stack[-3], v0475);
3967 nil = C_nil;
3968 if (exception_pending()) goto v0479;
3969 env = stack[-16];
3970 v0477 = elt(env, 1); /* liemat */
3971 v0476 = (Lisp_Object)17; /* 1 */
3972 v0475 = stack[-10];
3973 stack[0] = list3(v0477, v0476, v0475);
3974 nil = C_nil;
3975 if (exception_pending()) goto v0479;
3976 env = stack[-16];
3977 v0478 = elt(env, 7); /* cc */
3978 v0477 = stack[-9];
3979 v0476 = stack[-8];
3980 v0475 = stack[-10];
3981 v0475 = list4(v0478, v0477, v0476, v0475);
3982 nil = C_nil;
3983 if (exception_pending()) goto v0479;
3984 env = stack[-16];
3985 fn = elt(env, 23); /* aeval!* */
3986 v0475 = (*qfn1(fn))(qenv(fn), v0475);
3987 nil = C_nil;
3988 if (exception_pending()) goto v0479;
3989 env = stack[-16];
3990 fn = elt(env, 19); /* setk */
3991 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
3992 nil = C_nil;
3993 if (exception_pending()) goto v0479;
3994 env = stack[-16];
3995 v0477 = elt(env, 1); /* liemat */
3996 v0476 = (Lisp_Object)33; /* 2 */
3997 v0475 = stack[-10];
3998 stack[0] = list3(v0477, v0476, v0475);
3999 nil = C_nil;
4000 if (exception_pending()) goto v0479;
4001 env = stack[-16];
4002 v0478 = elt(env, 7); /* cc */
4003 v0477 = stack[-7];
4004 v0476 = stack[-6];
4005 v0475 = stack[-10];
4006 v0475 = list4(v0478, v0477, v0476, v0475);
4007 nil = C_nil;
4008 if (exception_pending()) goto v0479;
4009 env = stack[-16];
4010 fn = elt(env, 23); /* aeval!* */
4011 v0475 = (*qfn1(fn))(qenv(fn), v0475);
4012 nil = C_nil;
4013 if (exception_pending()) goto v0479;
4014 env = stack[-16];
4015 fn = elt(env, 19); /* setk */
4016 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
4017 nil = C_nil;
4018 if (exception_pending()) goto v0479;
4019 env = stack[-16];
4020 v0477 = elt(env, 1); /* liemat */
4021 v0476 = (Lisp_Object)49; /* 3 */
4022 v0475 = stack[-10];
4023 stack[0] = list3(v0477, v0476, v0475);
4024 nil = C_nil;
4025 if (exception_pending()) goto v0479;
4026 env = stack[-16];
4027 v0478 = elt(env, 7); /* cc */
4028 v0477 = stack[-5];
4029 v0476 = stack[-4];
4030 v0475 = stack[-10];
4031 v0475 = list4(v0478, v0477, v0476, v0475);
4032 nil = C_nil;
4033 if (exception_pending()) goto v0479;
4034 env = stack[-16];
4035 fn = elt(env, 23); /* aeval!* */
4036 v0475 = (*qfn1(fn))(qenv(fn), v0475);
4037 nil = C_nil;
4038 if (exception_pending()) goto v0479;
4039 env = stack[-16];
4040 fn = elt(env, 19); /* setk */
4041 v0475 = (*qfn2(fn))(qenv(fn), stack[0], v0475);
4042 nil = C_nil;
4043 if (exception_pending()) goto v0479;
4044 env = stack[-16];
4045 v0475 = stack[-10];
4046 v0475 = add1(v0475);
4047 nil = C_nil;
4048 if (exception_pending()) goto v0479;
4049 env = stack[-16];
4050 stack[-10] = v0475;
4051 goto v0480;
4052 /* error exit handlers */
4053 v0479:
4054 popv(17);
4055 return nil;
4056 }
4057
4058
4059
4060 /* Code for revalpart */
4061
CC_revalpart(Lisp_Object env,Lisp_Object v0000)4062 static Lisp_Object CC_revalpart(Lisp_Object env,
4063 Lisp_Object v0000)
4064 {
4065 Lisp_Object nil = C_nil;
4066 Lisp_Object v0373, v0371, v0372, v0364, v0577;
4067 Lisp_Object fn;
4068 CSL_IGNORE(nil);
4069 #ifdef DEBUG
4070 if (check_env(env)) return aerror("env for revalpart");
4071 #endif
4072 if (stack >= stacklimit)
4073 {
4074 push(v0000);
4075 env = reclaim(env, "stack", GC_STACK, 0);
4076 pop(v0000);
4077 nil = C_nil;
4078 if (exception_pending()) return nil;
4079 }
4080 push(env);
4081 /* space for vars preserved across procedure calls */
4082 push5(nil, nil, nil, nil, nil);
4083 push3(nil, nil, nil);
4084 /* copy arguments values to proper place */
4085 stack[0] = v0000;
4086 /* end of prologue */
4087 v0373 = stack[0];
4088 if (v0373 == nil) goto v0004;
4089 stack[-7] = qvalue(elt(env, 4)); /* !*intstr */
4090 qvalue(elt(env, 4)) = nil; /* !*intstr */
4091 stack[-6] = nil;
4092 v0373 = qvalue(elt(env, 5)); /* t */
4093 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4094 v0373 = stack[0];
4095 v0373 = qcar(v0373);
4096 fn = elt(env, 14); /* getrtype */
4097 v0371 = (*qfn1(fn))(qenv(fn), v0373);
4098 nil = C_nil;
4099 if (exception_pending()) goto v0578;
4100 env = stack[-8];
4101 stack[-3] = v0371;
4102 v0373 = elt(env, 6); /* list */
4103 if (v0371 == v0373) goto v0463;
4104 v0373 = stack[0];
4105 v0373 = qcar(v0373);
4106 fn = elt(env, 15); /* reval */
4107 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4108 nil = C_nil;
4109 if (exception_pending()) goto v0578;
4110 env = stack[-8];
4111 goto v0473;
4112
4113 v0473:
4114 stack[-5] = v0373;
4115 v0373 = qvalue(elt(env, 7)); /* nil */
4116 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4117 v0373 = stack[0];
4118 v0373 = qcdr(v0373);
4119 stack[-4] = v0373;
4120 goto v0579;
4121
4122 v0579:
4123 v0373 = stack[-4];
4124 if (v0373 == nil) goto v0580;
4125 stack[-2] = nil;
4126 stack[-1] = nil;
4127 v0371 = stack[-5];
4128 v0373 = elt(env, 8); /* !*hold */
4129 v0373 = Leqcar(nil, v0371, v0373);
4130 env = stack[-8];
4131 stack[0] = v0373;
4132 v0373 = stack[-5];
4133 if (!consp(v0373)) goto v0581;
4134 v0373 = stack[-4];
4135 v0373 = qcar(v0373);
4136 fn = elt(env, 15); /* reval */
4137 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4138 nil = C_nil;
4139 if (exception_pending()) goto v0578;
4140 env = stack[-8];
4141 stack[-2] = v0373;
4142 if (is_number(v0373)) goto v0582;
4143 v0577 = elt(env, 11); /* "Invalid argument" */
4144 v0373 = stack[-4];
4145 v0364 = qcar(v0373);
4146 v0372 = elt(env, 12); /* "to part" */
4147 v0371 = qvalue(elt(env, 7)); /* nil */
4148 v0373 = qvalue(elt(env, 5)); /* t */
4149 fn = elt(env, 16); /* msgpri */
4150 v0373 = (*qfnn(fn))(qenv(fn), 5, v0577, v0364, v0372, v0371, v0373);
4151 nil = C_nil;
4152 if (exception_pending()) goto v0578;
4153 env = stack[-8];
4154 goto v0583;
4155
4156 v0583:
4157 v0373 = stack[0];
4158 if (v0373 == nil) goto v0424;
4159 v0373 = stack[-1];
4160 v0373 = qcar(v0373);
4161 stack[-1] = v0373;
4162 v0373 = stack[-1];
4163 if (!consp(v0373)) goto v0584;
4164 v0373 = stack[-1];
4165 v0373 = qcdr(v0373);
4166 stack[-1] = v0373;
4167 goto v0424;
4168
4169 v0424:
4170 v0373 = stack[-6];
4171 if (!(v0373 == nil)) goto v0585;
4172 v0373 = stack[-1];
4173 v0371 = Llength(nil, v0373);
4174 nil = C_nil;
4175 if (exception_pending()) goto v0578;
4176 env = stack[-8];
4177 v0373 = stack[-2];
4178 v0373 = (Lisp_Object)lessp2(v0371, v0373);
4179 nil = C_nil;
4180 if (exception_pending()) goto v0578;
4181 v0373 = v0373 ? lisp_true : nil;
4182 env = stack[-8];
4183 if (v0373 == nil) goto v0412;
4184 v0577 = elt(env, 9); /* "Expression" */
4185 v0364 = stack[-5];
4186 v0372 = elt(env, 10); /* "does not have part" */
4187 v0373 = stack[-4];
4188 v0371 = qcar(v0373);
4189 v0373 = qvalue(elt(env, 7)); /* nil */
4190 fn = elt(env, 16); /* msgpri */
4191 v0373 = (*qfnn(fn))(qenv(fn), 5, v0577, v0364, v0372, v0371, v0373);
4192 nil = C_nil;
4193 if (exception_pending()) goto v0578;
4194 env = stack[-8];
4195 v0373 = qvalue(elt(env, 5)); /* t */
4196 stack[-6] = v0373;
4197 goto v0585;
4198
4199 v0585:
4200 v0373 = stack[-6];
4201 if (v0373 == nil) goto v0586;
4202 v0373 = qvalue(elt(env, 7)); /* nil */
4203 goto v0375;
4204
4205 v0375:
4206 stack[-4] = v0373;
4207 goto v0579;
4208
4209 v0586:
4210 v0373 = stack[-4];
4211 v0373 = qcdr(v0373);
4212 goto v0375;
4213
4214 v0412:
4215 v0373 = stack[0];
4216 if (v0373 == nil) goto v0587;
4217 v0371 = stack[-1];
4218 v0373 = stack[-2];
4219 fn = elt(env, 17); /* pnth */
4220 v0373 = (*qfn2(fn))(qenv(fn), v0371, v0373);
4221 nil = C_nil;
4222 if (exception_pending()) goto v0578;
4223 env = stack[-8];
4224 v0373 = qcar(v0373);
4225 stack[-5] = v0373;
4226 v0373 = stack[-5];
4227 if (!consp(v0373)) goto v0393;
4228 v0371 = stack[-5];
4229 v0373 = elt(env, 8); /* !*hold */
4230 v0373 = Leqcar(nil, v0371, v0373);
4231 env = stack[-8];
4232 v0373 = (v0373 == nil ? lisp_true : nil);
4233 goto v0588;
4234
4235 v0588:
4236 if (v0373 == nil) goto v0585;
4237 v0371 = elt(env, 8); /* !*hold */
4238 v0373 = stack[-5];
4239 v0373 = list2(v0371, v0373);
4240 nil = C_nil;
4241 if (exception_pending()) goto v0578;
4242 env = stack[-8];
4243 stack[-5] = v0373;
4244 goto v0585;
4245
4246 v0393:
4247 v0373 = qvalue(elt(env, 7)); /* nil */
4248 goto v0588;
4249
4250 v0587:
4251 v0371 = stack[-1];
4252 v0373 = stack[-2];
4253 fn = elt(env, 17); /* pnth */
4254 v0373 = (*qfn2(fn))(qenv(fn), v0371, v0373);
4255 nil = C_nil;
4256 if (exception_pending()) goto v0578;
4257 env = stack[-8];
4258 v0373 = qcar(v0373);
4259 stack[0] = v0373;
4260 v0373 = stack[0];
4261 fn = elt(env, 14); /* getrtype */
4262 v0371 = (*qfn1(fn))(qenv(fn), v0373);
4263 nil = C_nil;
4264 if (exception_pending()) goto v0578;
4265 env = stack[-8];
4266 v0373 = elt(env, 6); /* list */
4267 if (v0371 == v0373) goto v0589;
4268 v0373 = qvalue(elt(env, 7)); /* nil */
4269 goto v0590;
4270
4271 v0590:
4272 if (v0373 == nil) goto v0591;
4273 v0373 = stack[0];
4274 fn = elt(env, 18); /* listeval0 */
4275 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4276 nil = C_nil;
4277 if (exception_pending()) goto v0578;
4278 env = stack[-8];
4279 goto v0388;
4280
4281 v0388:
4282 stack[-5] = v0373;
4283 goto v0585;
4284
4285 v0591:
4286 v0371 = stack[-3];
4287 v0373 = elt(env, 6); /* list */
4288 if (v0371 == v0373) goto v0360;
4289 v0373 = stack[0];
4290 goto v0388;
4291
4292 v0360:
4293 v0373 = qvalue(elt(env, 5)); /* t */
4294 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4295 v0373 = stack[0];
4296 fn = elt(env, 15); /* reval */
4297 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4298 nil = C_nil;
4299 if (exception_pending()) goto v0578;
4300 env = stack[-8];
4301 stack[0] = v0373;
4302 v0373 = qvalue(elt(env, 7)); /* nil */
4303 stack[-3] = v0373;
4304 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4305 v0373 = stack[0];
4306 goto v0388;
4307
4308 v0589:
4309 v0373 = elt(env, 6); /* list */
4310 stack[-3] = v0373;
4311 goto v0590;
4312
4313 v0584:
4314 v0577 = elt(env, 9); /* "Expression" */
4315 v0364 = stack[-5];
4316 v0372 = elt(env, 10); /* "does not have part" */
4317 v0373 = stack[-4];
4318 v0371 = qcar(v0373);
4319 v0373 = qvalue(elt(env, 7)); /* nil */
4320 fn = elt(env, 16); /* msgpri */
4321 v0373 = (*qfnn(fn))(qenv(fn), 5, v0577, v0364, v0372, v0371, v0373);
4322 nil = C_nil;
4323 if (exception_pending()) goto v0578;
4324 env = stack[-8];
4325 v0373 = qvalue(elt(env, 5)); /* t */
4326 stack[-6] = v0373;
4327 goto v0424;
4328
4329 v0582:
4330 v0373 = stack[-5];
4331 v0371 = qcar(v0373);
4332 v0373 = elt(env, 13); /* partop */
4333 v0373 = get(v0371, v0373);
4334 env = stack[-8];
4335 stack[-1] = v0373;
4336 if (v0373 == nil) goto v0592;
4337 v0372 = stack[-1];
4338 v0371 = stack[-5];
4339 v0373 = stack[-2];
4340 v0373 = Lapply2(nil, 3, v0372, v0371, v0373);
4341 nil = C_nil;
4342 if (exception_pending()) goto v0578;
4343 env = stack[-8];
4344 stack[-5] = v0373;
4345 v0373 = stack[-4];
4346 v0373 = qcdr(v0373);
4347 stack[-4] = v0373;
4348 goto v0579;
4349
4350 v0592:
4351 v0371 = stack[-2];
4352 v0373 = (Lisp_Object)1; /* 0 */
4353 if (v0371 == v0373) goto v0593;
4354 v0371 = stack[-2];
4355 v0373 = (Lisp_Object)1; /* 0 */
4356 v0373 = (Lisp_Object)lessp2(v0371, v0373);
4357 nil = C_nil;
4358 if (exception_pending()) goto v0578;
4359 v0373 = v0373 ? lisp_true : nil;
4360 env = stack[-8];
4361 if (v0373 == nil) goto v0594;
4362 v0373 = stack[-2];
4363 v0373 = negate(v0373);
4364 nil = C_nil;
4365 if (exception_pending()) goto v0578;
4366 env = stack[-8];
4367 stack[-2] = v0373;
4368 v0373 = stack[-5];
4369 v0373 = qcdr(v0373);
4370 v0373 = Lreverse(nil, v0373);
4371 nil = C_nil;
4372 if (exception_pending()) goto v0578;
4373 env = stack[-8];
4374 stack[-1] = v0373;
4375 goto v0583;
4376
4377 v0594:
4378 v0373 = stack[-5];
4379 v0373 = qcdr(v0373);
4380 stack[-1] = v0373;
4381 goto v0583;
4382
4383 v0593:
4384 v0373 = stack[-5];
4385 v0373 = qcar(v0373);
4386 stack[0] = v0373;
4387 v0373 = stack[0];
4388 fn = elt(env, 14); /* getrtype */
4389 v0371 = (*qfn1(fn))(qenv(fn), v0373);
4390 nil = C_nil;
4391 if (exception_pending()) goto v0578;
4392 env = stack[-8];
4393 v0373 = elt(env, 6); /* list */
4394 if (v0371 == v0373) goto v0595;
4395 v0373 = qvalue(elt(env, 7)); /* nil */
4396 goto v0434;
4397
4398 v0434:
4399 if (v0373 == nil) goto v0596;
4400 v0373 = stack[0];
4401 fn = elt(env, 18); /* listeval0 */
4402 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4403 nil = C_nil;
4404 if (exception_pending()) goto v0578;
4405 env = stack[-8];
4406 goto v0597;
4407
4408 v0597:
4409 stack[-5] = v0373;
4410 v0373 = qvalue(elt(env, 7)); /* nil */
4411 stack[-4] = v0373;
4412 goto v0579;
4413
4414 v0596:
4415 v0371 = stack[-3];
4416 v0373 = elt(env, 6); /* list */
4417 if (v0371 == v0373) goto v0598;
4418 v0373 = stack[0];
4419 goto v0597;
4420
4421 v0598:
4422 v0373 = qvalue(elt(env, 5)); /* t */
4423 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4424 v0373 = stack[0];
4425 fn = elt(env, 15); /* reval */
4426 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4427 nil = C_nil;
4428 if (exception_pending()) goto v0578;
4429 env = stack[-8];
4430 stack[0] = v0373;
4431 v0373 = qvalue(elt(env, 7)); /* nil */
4432 stack[-3] = v0373;
4433 qvalue(elt(env, 4)) = v0373; /* !*intstr */
4434 v0373 = stack[0];
4435 goto v0597;
4436
4437 v0595:
4438 v0373 = elt(env, 6); /* list */
4439 stack[-3] = v0373;
4440 goto v0434;
4441
4442 v0581:
4443 v0577 = elt(env, 9); /* "Expression" */
4444 v0364 = stack[-5];
4445 v0372 = elt(env, 10); /* "does not have part" */
4446 v0373 = stack[-4];
4447 v0371 = qcar(v0373);
4448 v0373 = qvalue(elt(env, 7)); /* nil */
4449 fn = elt(env, 16); /* msgpri */
4450 v0373 = (*qfnn(fn))(qenv(fn), 5, v0577, v0364, v0372, v0371, v0373);
4451 nil = C_nil;
4452 if (exception_pending()) goto v0578;
4453 env = stack[-8];
4454 v0373 = qvalue(elt(env, 5)); /* t */
4455 stack[-6] = v0373;
4456 goto v0583;
4457
4458 v0580:
4459 v0373 = stack[-6];
4460 if (v0373 == nil) goto v0599;
4461 v0373 = (Lisp_Object)1; /* 0 */
4462 goto v0600;
4463
4464 v0600:
4465 qvalue(elt(env, 4)) = stack[-7]; /* !*intstr */
4466 { popv(9); return onevalue(v0373); }
4467
4468 v0599:
4469 v0373 = stack[-5];
4470 fn = elt(env, 15); /* reval */
4471 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4472 nil = C_nil;
4473 if (exception_pending()) goto v0578;
4474 env = stack[-8];
4475 goto v0600;
4476
4477 v0463:
4478 v0373 = stack[0];
4479 v0373 = qcar(v0373);
4480 fn = elt(env, 18); /* listeval0 */
4481 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4482 nil = C_nil;
4483 if (exception_pending()) goto v0578;
4484 env = stack[-8];
4485 goto v0473;
4486
4487 v0004:
4488 v0373 = elt(env, 1); /* "part called without arguments" */
4489 v0371 = v0373;
4490 v0373 = v0371;
4491 qvalue(elt(env, 2)) = v0373; /* errmsg!* */
4492 v0373 = qvalue(elt(env, 3)); /* !*protfg */
4493 if (!(v0373 == nil)) goto v0601;
4494 v0373 = v0371;
4495 fn = elt(env, 19); /* lprie */
4496 v0373 = (*qfn1(fn))(qenv(fn), v0373);
4497 nil = C_nil;
4498 if (exception_pending()) goto v0602;
4499 env = stack[-8];
4500 goto v0601;
4501
4502 v0601:
4503 v0373 = Lerror0(nil, 0);
4504 nil = C_nil;
4505 if (exception_pending()) goto v0602;
4506 v0373 = nil;
4507 { popv(9); return onevalue(v0373); }
4508 /* error exit handlers */
4509 v0602:
4510 popv(9);
4511 return nil;
4512 v0578:
4513 env = stack[-8];
4514 qvalue(elt(env, 4)) = stack[-7]; /* !*intstr */
4515 popv(9);
4516 return nil;
4517 }
4518
4519
4520
4521 /* Code for remred */
4522
CC_remred(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)4523 static Lisp_Object CC_remred(Lisp_Object env,
4524 Lisp_Object v0000, Lisp_Object v0001)
4525 {
4526 Lisp_Object nil = C_nil;
4527 Lisp_Object v0609, v0610;
4528 Lisp_Object fn;
4529 CSL_IGNORE(nil);
4530 #ifdef DEBUG
4531 if (check_env(env)) return aerror("env for remred");
4532 #endif
4533 if (stack >= stacklimit)
4534 {
4535 push2(v0001,v0000);
4536 env = reclaim(env, "stack", GC_STACK, 0);
4537 pop2(v0000,v0001);
4538 nil = C_nil;
4539 if (exception_pending()) return nil;
4540 }
4541 push(env);
4542 /* space for vars preserved across procedure calls */
4543 push5(nil, nil, nil, nil, nil);
4544 push2(nil, nil);
4545 /* copy arguments values to proper place */
4546 stack[-4] = v0001;
4547 stack[-5] = v0000;
4548 /* end of prologue */
4549 stack[-6] = qvalue(elt(env, 1)); /* gg */
4550 qvalue(elt(env, 1)) = nil; /* gg */
4551 v0609 = stack[-5];
4552 v0609 = Lreverse(nil, v0609);
4553 nil = C_nil;
4554 if (exception_pending()) goto v0570;
4555 env = stack[-7];
4556 stack[-5] = v0609;
4557 goto v0611;
4558
4559 v0611:
4560 v0609 = stack[-5];
4561 if (v0609 == nil) goto v0601;
4562 v0609 = stack[-5];
4563 v0609 = qcar(v0609);
4564 stack[-2] = v0609;
4565 v0609 = stack[-5];
4566 v0609 = qcdr(v0609);
4567 stack[-5] = v0609;
4568 v0609 = qvalue(elt(env, 3)); /* t */
4569 stack[-1] = v0609;
4570 v0609 = qvalue(elt(env, 1)); /* gg */
4571 stack[-3] = v0609;
4572 goto v0474;
4573
4574 v0474:
4575 v0609 = stack[-1];
4576 if (v0609 == nil) goto v0600;
4577 v0609 = stack[-3];
4578 if (v0609 == nil) goto v0600;
4579 v0609 = stack[-3];
4580 v0609 = qcar(v0609);
4581 v0610 = v0609;
4582 v0609 = stack[-3];
4583 v0609 = qcdr(v0609);
4584 stack[-3] = v0609;
4585 v0609 = v0610;
4586 v0610 = qcdr(v0609);
4587 v0609 = stack[-2];
4588 v0609 = qcdr(v0609);
4589 fn = elt(env, 4); /* dd */
4590 stack[0] = (*qfn2(fn))(qenv(fn), v0610, v0609);
4591 nil = C_nil;
4592 if (exception_pending()) goto v0570;
4593 env = stack[-7];
4594 v0610 = stack[-4];
4595 v0609 = (Lisp_Object)33; /* 2 */
4596 v0609 = plus2(v0610, v0609);
4597 nil = C_nil;
4598 if (exception_pending()) goto v0570;
4599 env = stack[-7];
4600 v0609 = (Lisp_Object)geq2(stack[0], v0609);
4601 nil = C_nil;
4602 if (exception_pending()) goto v0570;
4603 v0609 = v0609 ? lisp_true : nil;
4604 env = stack[-7];
4605 if (v0609 == nil) goto v0474;
4606 v0609 = qvalue(elt(env, 2)); /* nil */
4607 stack[-1] = v0609;
4608 goto v0474;
4609
4610 v0600:
4611 v0609 = stack[-1];
4612 if (v0609 == nil) goto v0611;
4613 v0610 = stack[-2];
4614 v0609 = qvalue(elt(env, 1)); /* gg */
4615 v0609 = cons(v0610, v0609);
4616 nil = C_nil;
4617 if (exception_pending()) goto v0570;
4618 env = stack[-7];
4619 qvalue(elt(env, 1)) = v0609; /* gg */
4620 goto v0611;
4621
4622 v0601:
4623 v0609 = qvalue(elt(env, 1)); /* gg */
4624 qvalue(elt(env, 1)) = stack[-6]; /* gg */
4625 { popv(8); return onevalue(v0609); }
4626 /* error exit handlers */
4627 v0570:
4628 env = stack[-7];
4629 qvalue(elt(env, 1)) = stack[-6]; /* gg */
4630 popv(8);
4631 return nil;
4632 }
4633
4634
4635
4636 /* Code for anticom_assoc */
4637
CC_anticom_assoc(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)4638 static Lisp_Object CC_anticom_assoc(Lisp_Object env,
4639 Lisp_Object v0000, Lisp_Object v0001)
4640 {
4641 Lisp_Object nil = C_nil;
4642 Lisp_Object v0606, v0613, v0462;
4643 CSL_IGNORE(nil);
4644 #ifdef DEBUG
4645 if (check_env(env)) return aerror("env for anticom_assoc");
4646 #endif
4647 if (stack >= stacklimit)
4648 {
4649 push2(v0001,v0000);
4650 env = reclaim(env, "stack", GC_STACK, 0);
4651 pop2(v0000,v0001);
4652 nil = C_nil;
4653 if (exception_pending()) return nil;
4654 }
4655 push(env);
4656 /* space for vars preserved across procedure calls */
4657 push2(nil, nil);
4658 /* copy arguments values to proper place */
4659 stack[0] = v0001;
4660 v0462 = v0000;
4661 /* end of prologue */
4662 v0606 = stack[0];
4663 if (v0606 == nil) goto v0575;
4664 v0613 = v0462;
4665 v0606 = stack[0];
4666 v0606 = qcar(v0606);
4667 v0606 = qcar(v0606);
4668 if (equal(v0613, v0606)) goto v0531;
4669 v0613 = v0462;
4670 v0606 = stack[0];
4671 v0606 = qcdr(v0606);
4672 v0606 = CC_anticom_assoc(env, v0613, v0606);
4673 nil = C_nil;
4674 if (exception_pending()) goto v0460;
4675 env = stack[-2];
4676 stack[-1] = v0606;
4677 v0606 = stack[-1];
4678 if (v0606 == nil) goto v0614;
4679 v0606 = stack[0];
4680 v0606 = qcar(v0606);
4681 v0606 = qcdr(v0606);
4682 v0606 = Llength(nil, v0606);
4683 nil = C_nil;
4684 if (exception_pending()) goto v0460;
4685 env = stack[-2];
4686 v0606 = Loddp(nil, v0606);
4687 nil = C_nil;
4688 if (exception_pending()) goto v0460;
4689 env = stack[-2];
4690 if (v0606 == nil) { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
4691 stack[0] = stack[-1];
4692 v0606 = stack[-1];
4693 v0606 = qcar(v0606);
4694 v0606 = negate(v0606);
4695 nil = C_nil;
4696 if (exception_pending()) goto v0460;
4697 env = stack[-2];
4698 v0606 = Lrplaca(nil, stack[0], v0606);
4699 nil = C_nil;
4700 if (exception_pending()) goto v0460;
4701 { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
4702
4703 v0614:
4704 v0606 = qvalue(elt(env, 1)); /* nil */
4705 { popv(3); return onevalue(v0606); }
4706
4707 v0531:
4708 v0613 = (Lisp_Object)17; /* 1 */
4709 v0606 = stack[0];
4710 v0606 = qcar(v0606);
4711 popv(3);
4712 return cons(v0613, v0606);
4713
4714 v0575:
4715 v0606 = qvalue(elt(env, 1)); /* nil */
4716 { popv(3); return onevalue(v0606); }
4717 /* error exit handlers */
4718 v0460:
4719 popv(3);
4720 return nil;
4721 }
4722
4723
4724
4725 /* Code for orderfactors */
4726
CC_orderfactors(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)4727 static Lisp_Object CC_orderfactors(Lisp_Object env,
4728 Lisp_Object v0000, Lisp_Object v0001)
4729 {
4730 Lisp_Object nil = C_nil;
4731 Lisp_Object v0618, v0574, v0471, v0469;
4732 Lisp_Object fn;
4733 CSL_IGNORE(nil);
4734 #ifdef DEBUG
4735 if (check_env(env)) return aerror("env for orderfactors");
4736 #endif
4737 CSL_IGNORE(env);
4738 /* copy arguments values to proper place */
4739 v0471 = v0001;
4740 v0469 = v0000;
4741 /* end of prologue */
4742 v0618 = v0469;
4743 v0574 = qcdr(v0618);
4744 v0618 = v0471;
4745 v0618 = qcdr(v0618);
4746 if (equal(v0574, v0618)) goto v0619;
4747 v0618 = v0469;
4748 v0618 = qcdr(v0618);
4749 v0574 = v0471;
4750 v0574 = qcdr(v0574);
4751 return Llessp(nil, v0618, v0574);
4752
4753 v0619:
4754 v0618 = v0469;
4755 v0618 = qcar(v0618);
4756 v0574 = v0471;
4757 v0574 = qcar(v0574);
4758 {
4759 fn = elt(env, 1); /* ordp */
4760 return (*qfn2(fn))(qenv(fn), v0618, v0574);
4761 }
4762 }
4763
4764
4765
4766 /* Code for eval_uni_poly_q */
4767
CC_eval_uni_poly_q(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)4768 static Lisp_Object CC_eval_uni_poly_q(Lisp_Object env,
4769 Lisp_Object v0000, Lisp_Object v0001)
4770 {
4771 Lisp_Object nil = C_nil;
4772 Lisp_Object v0446, v0629, v0630;
4773 Lisp_Object fn;
4774 CSL_IGNORE(nil);
4775 #ifdef DEBUG
4776 if (check_env(env)) return aerror("env for eval_uni_poly_q");
4777 #endif
4778 if (stack >= stacklimit)
4779 {
4780 push2(v0001,v0000);
4781 env = reclaim(env, "stack", GC_STACK, 0);
4782 pop2(v0000,v0001);
4783 nil = C_nil;
4784 if (exception_pending()) return nil;
4785 }
4786 push(env);
4787 /* space for vars preserved across procedure calls */
4788 push4(nil, nil, nil, nil);
4789 /* copy arguments values to proper place */
4790 stack[-1] = v0001;
4791 stack[-2] = v0000;
4792 /* end of prologue */
4793 v0446 = stack[-2];
4794 if (!consp(v0446)) goto v0631;
4795 v0446 = stack[-2];
4796 v0446 = qcar(v0446);
4797 v0629 = qcdr(v0446);
4798 v0446 = (Lisp_Object)17; /* 1 */
4799 v0446 = cons(v0629, v0446);
4800 nil = C_nil;
4801 if (exception_pending()) goto v0632;
4802 env = stack[-4];
4803 v0630 = v0446;
4804 v0446 = stack[-2];
4805 v0446 = qcar(v0446);
4806 v0446 = qcar(v0446);
4807 v0446 = qcdr(v0446);
4808 v0629 = v0446;
4809 v0446 = stack[-2];
4810 v0446 = qcdr(v0446);
4811 stack[-2] = v0446;
4812 goto v0471;
4813
4814 v0471:
4815 v0446 = stack[-2];
4816 if (!consp(v0446)) goto v0443;
4817 stack[-3] = v0630;
4818 stack[0] = stack[-1];
4819 v0446 = stack[-2];
4820 v0446 = qcar(v0446);
4821 v0446 = qcar(v0446);
4822 v0446 = qcdr(v0446);
4823 v0446 = difference2(v0629, v0446);
4824 nil = C_nil;
4825 if (exception_pending()) goto v0632;
4826 env = stack[-4];
4827 fn = elt(env, 2); /* exptsq */
4828 v0446 = (*qfn2(fn))(qenv(fn), stack[0], v0446);
4829 nil = C_nil;
4830 if (exception_pending()) goto v0632;
4831 env = stack[-4];
4832 fn = elt(env, 3); /* multsq */
4833 stack[0] = (*qfn2(fn))(qenv(fn), stack[-3], v0446);
4834 nil = C_nil;
4835 if (exception_pending()) goto v0632;
4836 env = stack[-4];
4837 v0446 = stack[-2];
4838 v0446 = qcar(v0446);
4839 v0629 = qcdr(v0446);
4840 v0446 = (Lisp_Object)17; /* 1 */
4841 v0446 = cons(v0629, v0446);
4842 nil = C_nil;
4843 if (exception_pending()) goto v0632;
4844 env = stack[-4];
4845 fn = elt(env, 4); /* addsq */
4846 v0446 = (*qfn2(fn))(qenv(fn), stack[0], v0446);
4847 nil = C_nil;
4848 if (exception_pending()) goto v0632;
4849 env = stack[-4];
4850 v0630 = v0446;
4851 v0446 = stack[-2];
4852 v0446 = qcar(v0446);
4853 v0446 = qcar(v0446);
4854 v0446 = qcdr(v0446);
4855 v0629 = v0446;
4856 v0446 = stack[-2];
4857 v0446 = qcdr(v0446);
4858 stack[-2] = v0446;
4859 goto v0471;
4860
4861 v0443:
4862 stack[0] = v0630;
4863 v0446 = stack[-1];
4864 fn = elt(env, 2); /* exptsq */
4865 v0446 = (*qfn2(fn))(qenv(fn), v0446, v0629);
4866 nil = C_nil;
4867 if (exception_pending()) goto v0632;
4868 env = stack[-4];
4869 fn = elt(env, 3); /* multsq */
4870 stack[0] = (*qfn2(fn))(qenv(fn), stack[0], v0446);
4871 nil = C_nil;
4872 if (exception_pending()) goto v0632;
4873 env = stack[-4];
4874 v0629 = stack[-2];
4875 v0446 = (Lisp_Object)17; /* 1 */
4876 v0446 = cons(v0629, v0446);
4877 nil = C_nil;
4878 if (exception_pending()) goto v0632;
4879 env = stack[-4];
4880 {
4881 Lisp_Object v0633 = stack[0];
4882 popv(5);
4883 fn = elt(env, 4); /* addsq */
4884 return (*qfn2(fn))(qenv(fn), v0633, v0446);
4885 }
4886
4887 v0631:
4888 v0629 = stack[-2];
4889 v0446 = (Lisp_Object)17; /* 1 */
4890 popv(5);
4891 return cons(v0629, v0446);
4892 /* error exit handlers */
4893 v0632:
4894 popv(5);
4895 return nil;
4896 }
4897
4898
4899
4900 /* Code for general!-gcd!-mod!-p */
4901
CC_generalKgcdKmodKp(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)4902 static Lisp_Object CC_generalKgcdKmodKp(Lisp_Object env,
4903 Lisp_Object v0000, Lisp_Object v0001)
4904 {
4905 Lisp_Object nil = C_nil;
4906 Lisp_Object v0583, v0624, v0636, v0637;
4907 Lisp_Object fn;
4908 CSL_IGNORE(nil);
4909 #ifdef DEBUG
4910 if (check_env(env)) return aerror("env for general-gcd-mod-p");
4911 #endif
4912 CSL_IGNORE(env);
4913 /* copy arguments values to proper place */
4914 v0636 = v0001;
4915 v0637 = v0000;
4916 /* end of prologue */
4917 v0583 = (Lisp_Object)1; /* 0 */
4918 qvalue(elt(env, 1)) = v0583; /* reduction!-count */
4919 v0583 = v0637;
4920 if (v0583 == nil) goto v0608;
4921 v0583 = v0636;
4922 if (v0583 == nil) goto v0638;
4923 v0583 = v0637;
4924 if (!consp(v0583)) goto v0639;
4925 v0583 = v0637;
4926 v0583 = qcar(v0583);
4927 v0583 = (consp(v0583) ? nil : lisp_true);
4928 goto v0612;
4929
4930 v0612:
4931 if (v0583 == nil) goto v0619;
4932 v0583 = (Lisp_Object)17; /* 1 */
4933 return onevalue(v0583);
4934
4935 v0619:
4936 v0583 = v0636;
4937 if (!consp(v0583)) goto v0640;
4938 v0583 = v0636;
4939 v0583 = qcar(v0583);
4940 v0583 = (consp(v0583) ? nil : lisp_true);
4941 goto v0641;
4942
4943 v0641:
4944 if (v0583 == nil) goto v0642;
4945 v0583 = (Lisp_Object)17; /* 1 */
4946 return onevalue(v0583);
4947
4948 v0642:
4949 v0583 = v0637;
4950 v0583 = qcar(v0583);
4951 v0583 = qcar(v0583);
4952 v0624 = qcdr(v0583);
4953 v0583 = v0636;
4954 v0583 = qcar(v0583);
4955 v0583 = qcar(v0583);
4956 v0583 = qcdr(v0583);
4957 if (((int32_t)(v0624)) > ((int32_t)(v0583))) goto v0457;
4958 v0583 = v0636;
4959 v0624 = v0637;
4960 {
4961 fn = elt(env, 3); /* general!-ordered!-gcd!-mod!-p */
4962 return (*qfn2(fn))(qenv(fn), v0583, v0624);
4963 }
4964
4965 v0457:
4966 v0583 = v0637;
4967 v0624 = v0636;
4968 {
4969 fn = elt(env, 3); /* general!-ordered!-gcd!-mod!-p */
4970 return (*qfn2(fn))(qenv(fn), v0583, v0624);
4971 }
4972
4973 v0640:
4974 v0583 = qvalue(elt(env, 2)); /* t */
4975 goto v0641;
4976
4977 v0639:
4978 v0583 = qvalue(elt(env, 2)); /* t */
4979 goto v0612;
4980
4981 v0638:
4982 v0583 = v0637;
4983 {
4984 fn = elt(env, 4); /* monic!-mod!-p */
4985 return (*qfn1(fn))(qenv(fn), v0583);
4986 }
4987
4988 v0608:
4989 v0583 = v0636;
4990 {
4991 fn = elt(env, 4); /* monic!-mod!-p */
4992 return (*qfn1(fn))(qenv(fn), v0583);
4993 }
4994 }
4995
4996
4997
4998 /* Code for ofsf_sminsert */
4999
CC_ofsf_sminsert(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)5000 static Lisp_Object CC_ofsf_sminsert(Lisp_Object env,
5001 Lisp_Object v0000, Lisp_Object v0001)
5002 {
5003 Lisp_Object nil = C_nil;
5004 Lisp_Object v0594, v0655, v0426, v0425, v0423;
5005 Lisp_Object fn;
5006 CSL_IGNORE(nil);
5007 #ifdef DEBUG
5008 if (check_env(env)) return aerror("env for ofsf_sminsert");
5009 #endif
5010 if (stack >= stacklimit)
5011 {
5012 push2(v0001,v0000);
5013 env = reclaim(env, "stack", GC_STACK, 0);
5014 pop2(v0000,v0001);
5015 nil = C_nil;
5016 if (exception_pending()) return nil;
5017 }
5018 push(env);
5019 /* space for vars preserved across procedure calls */
5020 push5(nil, nil, nil, nil, nil);
5021 push(nil);
5022 /* copy arguments values to proper place */
5023 stack[-3] = v0001;
5024 stack[-4] = v0000;
5025 /* end of prologue */
5026 stack[-5] = nil;
5027 goto v0601;
5028
5029 v0601:
5030 v0594 = stack[-3];
5031 v0594 = qcar(v0594);
5032 v0594 = qcdr(v0594);
5033 v0423 = qcar(v0594);
5034 v0594 = stack[-3];
5035 v0594 = qcar(v0594);
5036 v0594 = qcdr(v0594);
5037 v0425 = qcdr(v0594);
5038 v0594 = stack[-4];
5039 v0594 = qcdr(v0594);
5040 v0426 = qcar(v0594);
5041 v0594 = stack[-4];
5042 v0594 = qcdr(v0594);
5043 v0655 = qcdr(v0594);
5044 v0594 = stack[-4];
5045 v0594 = qcar(v0594);
5046 fn = elt(env, 5); /* ofsf_sminsert1 */
5047 v0594 = (*qfnn(fn))(qenv(fn), 5, v0423, v0425, v0426, v0655, v0594);
5048 nil = C_nil;
5049 if (exception_pending()) goto v0656;
5050 env = stack[-6];
5051 stack[-2] = v0594;
5052 v0594 = stack[-2];
5053 if (v0594 == nil) goto v0469;
5054 v0594 = stack[-2];
5055 if (symbolp(v0594)) goto v0469;
5056 v0594 = stack[-3];
5057 v0594 = qcdr(v0594);
5058 stack[-3] = v0594;
5059 v0594 = stack[-2];
5060 stack[-4] = v0594;
5061 goto v0469;
5062
5063 v0469:
5064 v0594 = stack[-2];
5065 if (v0594 == nil) goto v0657;
5066 v0594 = stack[-2];
5067 v0594 = Lsymbolp(nil, v0594);
5068 env = stack[-6];
5069 if (!(v0594 == nil)) goto v0579;
5070 v0594 = stack[-3];
5071 v0594 = (v0594 == nil ? lisp_true : nil);
5072 goto v0579;
5073
5074 v0579:
5075 if (v0594 == nil) goto v0601;
5076 v0655 = stack[-2];
5077 v0594 = elt(env, 2); /* false */
5078 if (v0655 == v0594) goto v0462;
5079 v0655 = stack[-2];
5080 v0594 = elt(env, 3); /* true */
5081 if (v0655 == v0594) { Lisp_Object res = stack[-3]; popv(7); return onevalue(res); }
5082 v0594 = stack[-3];
5083 if (v0594 == nil) goto v0658;
5084 v0594 = stack[-3];
5085 stack[0] = v0594;
5086 v0594 = stack[-3];
5087 v0594 = qcdr(v0594);
5088 stack[-1] = v0594;
5089 goto v0621;
5090
5091 v0621:
5092 v0594 = stack[-1];
5093 if (v0594 == nil) goto v0659;
5094 v0594 = stack[-1];
5095 v0594 = qcar(v0594);
5096 stack[-5] = v0594;
5097 v0594 = stack[-1];
5098 v0594 = qcdr(v0594);
5099 stack[-1] = v0594;
5100 v0594 = stack[-5];
5101 v0594 = qcdr(v0594);
5102 v0423 = qcar(v0594);
5103 v0594 = stack[-5];
5104 v0594 = qcdr(v0594);
5105 v0425 = qcdr(v0594);
5106 v0594 = stack[-4];
5107 v0594 = qcdr(v0594);
5108 v0426 = qcar(v0594);
5109 v0594 = stack[-4];
5110 v0594 = qcdr(v0594);
5111 v0655 = qcdr(v0594);
5112 v0594 = stack[-4];
5113 v0594 = qcar(v0594);
5114 fn = elt(env, 5); /* ofsf_sminsert1 */
5115 v0594 = (*qfnn(fn))(qenv(fn), 5, v0423, v0425, v0426, v0655, v0594);
5116 nil = C_nil;
5117 if (exception_pending()) goto v0656;
5118 env = stack[-6];
5119 stack[-2] = v0594;
5120 v0655 = stack[-2];
5121 v0594 = elt(env, 3); /* true */
5122 if (v0655 == v0594) goto v0566;
5123 v0655 = stack[-2];
5124 v0594 = elt(env, 2); /* false */
5125 if (v0655 == v0594) goto v0440;
5126 v0594 = stack[-2];
5127 if (v0594 == nil) goto v0660;
5128 v0655 = stack[0];
5129 v0594 = stack[-1];
5130 fn = elt(env, 6); /* setcdr */
5131 v0594 = (*qfn2(fn))(qenv(fn), v0655, v0594);
5132 nil = C_nil;
5133 if (exception_pending()) goto v0656;
5134 env = stack[-6];
5135 v0594 = stack[-2];
5136 stack[-4] = v0594;
5137 goto v0621;
5138
5139 v0660:
5140 v0594 = stack[0];
5141 v0594 = qcdr(v0594);
5142 stack[0] = v0594;
5143 goto v0621;
5144
5145 v0440:
5146 v0594 = qvalue(elt(env, 4)); /* nil */
5147 stack[-1] = v0594;
5148 v0594 = elt(env, 2); /* false */
5149 stack[-5] = v0594;
5150 goto v0621;
5151
5152 v0566:
5153 v0594 = qvalue(elt(env, 4)); /* nil */
5154 stack[-1] = v0594;
5155 v0594 = elt(env, 3); /* true */
5156 stack[-5] = v0594;
5157 goto v0621;
5158
5159 v0659:
5160 v0655 = stack[-5];
5161 v0594 = elt(env, 2); /* false */
5162 if (v0655 == v0594) goto v0419;
5163 v0594 = stack[-5];
5164 v0655 = elt(env, 3); /* true */
5165 if (v0594 == v0655) { Lisp_Object res = stack[-3]; popv(7); return onevalue(res); }
5166 v0655 = stack[-4];
5167 v0594 = stack[-3];
5168 popv(7);
5169 return cons(v0655, v0594);
5170
5171 v0419:
5172 v0594 = elt(env, 2); /* false */
5173 { popv(7); return onevalue(v0594); }
5174
5175 v0658:
5176 v0594 = stack[-4];
5177 popv(7);
5178 return ncons(v0594);
5179
5180 v0462:
5181 v0594 = elt(env, 2); /* false */
5182 { popv(7); return onevalue(v0594); }
5183
5184 v0657:
5185 v0594 = qvalue(elt(env, 1)); /* t */
5186 goto v0579;
5187 /* error exit handlers */
5188 v0656:
5189 popv(7);
5190 return nil;
5191 }
5192
5193
5194
5195 /* Code for makefunc */
5196
CC_makefunc(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0001,Lisp_Object v0002,...)5197 static Lisp_Object MS_CDECL CC_makefunc(Lisp_Object env, int nargs,
5198 Lisp_Object v0000, Lisp_Object v0001,
5199 Lisp_Object v0002, ...)
5200 {
5201 Lisp_Object nil = C_nil;
5202 Lisp_Object v0387, v0388, v0684, v0685;
5203 Lisp_Object fn;
5204 CSL_IGNORE(nil);
5205 argcheck(nargs, 3, "makefunc");
5206 #ifdef DEBUG
5207 if (check_env(env)) return aerror("env for makefunc");
5208 #endif
5209 if (stack >= stacklimit)
5210 {
5211 push3(v0002,v0001,v0000);
5212 env = reclaim(env, "stack", GC_STACK, 0);
5213 pop3(v0000,v0001,v0002);
5214 nil = C_nil;
5215 if (exception_pending()) return nil;
5216 }
5217 push(env);
5218 /* space for vars preserved across procedure calls */
5219 push5(nil, nil, nil, nil, nil);
5220 push2(nil, nil);
5221 /* copy arguments values to proper place */
5222 stack[-3] = v0002;
5223 stack[-4] = v0001;
5224 stack[-5] = v0000;
5225 /* end of prologue */
5226 v0387 = qvalue(elt(env, 1)); /* nil */
5227 stack[-6] = v0387;
5228 v0388 = stack[-5];
5229 v0387 = elt(env, 2); /* texpatt */
5230 v0387 = get(v0388, v0387);
5231 env = stack[-7];
5232 if (!(v0387 == nil)) goto v0601;
5233 v0388 = stack[-5];
5234 v0387 = elt(env, 3); /* indexvar */
5235 v0387 = Lflagp(nil, v0388, v0387);
5236 env = stack[-7];
5237 if (v0387 == nil) goto v0686;
5238 v0387 = elt(env, 4); /* ((apply makeexcinx)) */
5239 goto v0601;
5240
5241 v0601:
5242 stack[-1] = v0387;
5243 v0388 = stack[-5];
5244 v0387 = elt(env, 6); /* texuby */
5245 v0387 = get(v0388, v0387);
5246 env = stack[-7];
5247 stack[0] = v0387;
5248 goto v0687;
5249
5250 v0687:
5251 v0387 = stack[-1];
5252 if (v0387 == nil) { Lisp_Object res = stack[-6]; popv(8); return onevalue(res); }
5253 v0387 = stack[-1];
5254 v0387 = qcar(v0387);
5255 v0388 = stack[-1];
5256 v0388 = qcdr(v0388);
5257 stack[-1] = v0388;
5258 v0388 = v0387;
5259 if (!consp(v0388)) goto v0607;
5260 v0388 = v0387;
5261 v0388 = qcar(v0388);
5262 if (!consp(v0388)) goto v0459;
5263 v0387 = qvalue(elt(env, 1)); /* nil */
5264 stack[-2] = v0387;
5265 goto v0458;
5266
5267 v0458:
5268 v0387 = stack[-2];
5269 if (v0387 == nil) goto v0687;
5270 v0388 = stack[-6];
5271 v0387 = stack[-2];
5272 v0387 = Lnconc(nil, v0388, v0387);
5273 nil = C_nil;
5274 if (exception_pending()) goto v0688;
5275 env = stack[-7];
5276 stack[-6] = v0387;
5277 goto v0687;
5278
5279 v0459:
5280 v0388 = v0387;
5281 v0684 = qcar(v0388);
5282 v0388 = elt(env, 7); /* f */
5283 if (v0684 == v0388) goto v0462;
5284 v0388 = v0387;
5285 v0684 = qcar(v0388);
5286 v0388 = elt(env, 8); /* apply */
5287 if (v0684 == v0388) goto v0689;
5288 v0388 = stack[-4];
5289 if (v0388 == nil) goto v0649;
5290 v0388 = v0387;
5291 v0684 = qcar(v0388);
5292 v0388 = elt(env, 9); /* x */
5293 if (v0684 == v0388) goto v0436;
5294 v0388 = v0387;
5295 v0684 = qcar(v0388);
5296 v0388 = elt(env, 10); /* y */
5297 if (v0684 == v0388) goto v0690;
5298 v0388 = v0387;
5299 v0684 = qcar(v0388);
5300 v0388 = elt(env, 12); /* z */
5301 if (v0684 == v0388) goto v0656;
5302 v0388 = v0387;
5303 v0684 = qcar(v0388);
5304 v0388 = elt(env, 13); /* r */
5305 if (v0684 == v0388) goto v0415;
5306 v0388 = v0387;
5307 v0684 = qcar(v0388);
5308 v0388 = elt(env, 14); /* l */
5309 if (v0684 == v0388) goto v0398;
5310 v0388 = v0387;
5311 v0684 = qcar(v0388);
5312 v0388 = elt(env, 15); /* m */
5313 if (v0684 == v0388) goto v0691;
5314 v0387 = qvalue(elt(env, 1)); /* nil */
5315 stack[-2] = v0387;
5316 goto v0458;
5317
5318 v0691:
5319 v0684 = stack[-4];
5320 v0388 = v0387;
5321 v0388 = qcdr(v0388);
5322 v0388 = qcar(v0388);
5323 v0387 = qcdr(v0387);
5324 v0387 = qcdr(v0387);
5325 v0387 = qcar(v0387);
5326 fn = elt(env, 16); /* makemat */
5327 v0387 = (*qfnn(fn))(qenv(fn), 3, v0684, v0388, v0387);
5328 nil = C_nil;
5329 if (exception_pending()) goto v0688;
5330 env = stack[-7];
5331 stack[-2] = v0387;
5332 v0387 = qvalue(elt(env, 1)); /* nil */
5333 stack[-4] = v0387;
5334 goto v0458;
5335
5336 v0398:
5337 v0388 = stack[-4];
5338 v0387 = qcdr(v0387);
5339 v0387 = qcar(v0387);
5340 fn = elt(env, 17); /* makearg */
5341 v0387 = (*qfn2(fn))(qenv(fn), v0388, v0387);
5342 nil = C_nil;
5343 if (exception_pending()) goto v0688;
5344 env = stack[-7];
5345 stack[-2] = v0387;
5346 v0387 = qvalue(elt(env, 1)); /* nil */
5347 stack[-4] = v0387;
5348 goto v0458;
5349
5350 v0415:
5351 v0387 = stack[-4];
5352 v0387 = qcdr(v0387);
5353 if (v0387 == nil) goto v0692;
5354 v0388 = stack[-5];
5355 v0387 = elt(env, 2); /* texpatt */
5356 v0387 = get(v0388, v0387);
5357 env = stack[-7];
5358 stack[-1] = v0387;
5359 v0387 = qvalue(elt(env, 1)); /* nil */
5360 stack[-2] = v0387;
5361 goto v0458;
5362
5363 v0692:
5364 v0387 = stack[-4];
5365 v0684 = qcar(v0387);
5366 v0388 = stack[-3];
5367 v0387 = qvalue(elt(env, 1)); /* nil */
5368 fn = elt(env, 18); /* mktag */
5369 v0387 = (*qfnn(fn))(qenv(fn), 3, v0684, v0388, v0387);
5370 nil = C_nil;
5371 if (exception_pending()) goto v0688;
5372 env = stack[-7];
5373 stack[-2] = v0387;
5374 v0387 = stack[-4];
5375 v0387 = qcdr(v0387);
5376 stack[-4] = v0387;
5377 goto v0458;
5378
5379 v0656:
5380 v0387 = stack[-4];
5381 v0684 = qcar(v0387);
5382 v0388 = (Lisp_Object)1; /* 0 */
5383 v0387 = qvalue(elt(env, 1)); /* nil */
5384 fn = elt(env, 18); /* mktag */
5385 v0387 = (*qfnn(fn))(qenv(fn), 3, v0684, v0388, v0387);
5386 nil = C_nil;
5387 if (exception_pending()) goto v0688;
5388 env = stack[-7];
5389 stack[-2] = v0387;
5390 v0387 = stack[-4];
5391 v0387 = qcdr(v0387);
5392 stack[-4] = v0387;
5393 goto v0458;
5394
5395 v0690:
5396 v0387 = stack[-4];
5397 v0684 = qcar(v0387);
5398 v0388 = stack[-3];
5399 v0387 = qvalue(elt(env, 11)); /* t */
5400 fn = elt(env, 18); /* mktag */
5401 v0387 = (*qfnn(fn))(qenv(fn), 3, v0684, v0388, v0387);
5402 nil = C_nil;
5403 if (exception_pending()) goto v0688;
5404 env = stack[-7];
5405 stack[-2] = v0387;
5406 v0387 = stack[-4];
5407 v0387 = qcdr(v0387);
5408 stack[-4] = v0387;
5409 goto v0458;
5410
5411 v0436:
5412 v0387 = stack[-4];
5413 v0684 = qcar(v0387);
5414 v0388 = stack[-3];
5415 v0387 = qvalue(elt(env, 1)); /* nil */
5416 fn = elt(env, 18); /* mktag */
5417 v0387 = (*qfnn(fn))(qenv(fn), 3, v0684, v0388, v0387);
5418 nil = C_nil;
5419 if (exception_pending()) goto v0688;
5420 env = stack[-7];
5421 stack[-2] = v0387;
5422 v0387 = stack[-4];
5423 v0387 = qcdr(v0387);
5424 stack[-4] = v0387;
5425 goto v0458;
5426
5427 v0649:
5428 v0387 = qvalue(elt(env, 1)); /* nil */
5429 stack[-2] = v0387;
5430 goto v0458;
5431
5432 v0689:
5433 v0387 = qcdr(v0387);
5434 v0685 = qcar(v0387);
5435 v0684 = stack[-5];
5436 v0388 = stack[-4];
5437 v0387 = stack[-3];
5438 v0387 = Lapply3(nil, 4, v0685, v0684, v0388, v0387);
5439 nil = C_nil;
5440 if (exception_pending()) goto v0688;
5441 env = stack[-7];
5442 stack[-2] = v0387;
5443 v0387 = qvalue(elt(env, 1)); /* nil */
5444 stack[-4] = v0387;
5445 goto v0458;
5446
5447 v0462:
5448 v0387 = stack[-4];
5449 if (v0387 == nil) goto v0693;
5450 v0387 = stack[-4];
5451 v0387 = qcar(v0387);
5452 if (!consp(v0387)) goto v0452;
5453 v0387 = stack[0];
5454 if (v0387 == nil) goto v0570;
5455 v0387 = stack[-4];
5456 v0387 = qcar(v0387);
5457 v0388 = qcar(v0387);
5458 v0387 = stack[0];
5459 v0387 = qcar(v0387);
5460 v0387 = (equal(v0388, v0387) ? lisp_true : nil);
5461 goto v0694;
5462
5463 v0694:
5464 if (v0387 == nil) goto v0693;
5465 v0387 = stack[0];
5466 v0387 = qcdr(v0387);
5467 fn = elt(env, 19); /* texexplode */
5468 v0387 = (*qfn1(fn))(qenv(fn), v0387);
5469 nil = C_nil;
5470 if (exception_pending()) goto v0688;
5471 env = stack[-7];
5472 stack[-2] = v0387;
5473 v0387 = stack[-4];
5474 v0387 = qcar(v0387);
5475 v0387 = qcdr(v0387);
5476 v0388 = qcar(v0387);
5477 v0387 = stack[-4];
5478 v0387 = qcdr(v0387);
5479 v0387 = cons(v0388, v0387);
5480 nil = C_nil;
5481 if (exception_pending()) goto v0688;
5482 env = stack[-7];
5483 stack[-4] = v0387;
5484 goto v0458;
5485
5486 v0693:
5487 v0387 = stack[-5];
5488 fn = elt(env, 19); /* texexplode */
5489 v0387 = (*qfn1(fn))(qenv(fn), v0387);
5490 nil = C_nil;
5491 if (exception_pending()) goto v0688;
5492 env = stack[-7];
5493 stack[-2] = v0387;
5494 goto v0458;
5495
5496 v0570:
5497 v0387 = qvalue(elt(env, 1)); /* nil */
5498 goto v0694;
5499
5500 v0452:
5501 v0387 = qvalue(elt(env, 1)); /* nil */
5502 goto v0694;
5503
5504 v0607:
5505 v0387 = ncons(v0387);
5506 nil = C_nil;
5507 if (exception_pending()) goto v0688;
5508 env = stack[-7];
5509 stack[-2] = v0387;
5510 goto v0458;
5511
5512 v0686:
5513 v0387 = elt(env, 5); /* ((f) !\!( (l !,) !\!)) */
5514 goto v0601;
5515 /* error exit handlers */
5516 v0688:
5517 popv(8);
5518 return nil;
5519 }
5520
5521
5522
5523 /* Code for mk_relation_mat */
5524
CC_mk_relation_mat(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)5525 static Lisp_Object CC_mk_relation_mat(Lisp_Object env,
5526 Lisp_Object v0000, Lisp_Object v0001)
5527 {
5528 Lisp_Object nil = C_nil;
5529 Lisp_Object v0614, v0642;
5530 Lisp_Object fn;
5531 CSL_IGNORE(nil);
5532 #ifdef DEBUG
5533 if (check_env(env)) return aerror("env for mk_relation_mat");
5534 #endif
5535 if (stack >= stacklimit)
5536 {
5537 push2(v0001,v0000);
5538 env = reclaim(env, "stack", GC_STACK, 0);
5539 pop2(v0000,v0001);
5540 nil = C_nil;
5541 if (exception_pending()) return nil;
5542 }
5543 push(env);
5544 /* space for vars preserved across procedure calls */
5545 push3(nil, nil, nil);
5546 /* copy arguments values to proper place */
5547 stack[-1] = v0001;
5548 stack[0] = v0000;
5549 /* end of prologue */
5550 v0614 = stack[-1];
5551 v0614 = qcar(v0614);
5552 v0614 = qcdr(v0614);
5553 v0614 = qcar(v0614);
5554 fn = elt(env, 2); /* get!+row!+nr */
5555 v0614 = (*qfn1(fn))(qenv(fn), v0614);
5556 nil = C_nil;
5557 if (exception_pending()) goto v0695;
5558 env = stack[-3];
5559 fn = elt(env, 3); /* mk!+unit!+mat */
5560 v0614 = (*qfn1(fn))(qenv(fn), v0614);
5561 nil = C_nil;
5562 if (exception_pending()) goto v0695;
5563 env = stack[-3];
5564 v0642 = v0614;
5565 v0614 = stack[0];
5566 stack[-2] = v0614;
5567 goto v0696;
5568
5569 v0696:
5570 v0614 = stack[-2];
5571 if (v0614 == nil) { popv(4); return onevalue(v0642); }
5572 v0614 = stack[-2];
5573 v0614 = qcar(v0614);
5574 stack[0] = v0642;
5575 v0642 = v0614;
5576 v0614 = stack[-1];
5577 fn = elt(env, 4); /* get_mat */
5578 v0614 = (*qfn2(fn))(qenv(fn), v0642, v0614);
5579 nil = C_nil;
5580 if (exception_pending()) goto v0695;
5581 env = stack[-3];
5582 fn = elt(env, 5); /* mk!+mat!+mult!+mat */
5583 v0614 = (*qfn2(fn))(qenv(fn), stack[0], v0614);
5584 nil = C_nil;
5585 if (exception_pending()) goto v0695;
5586 env = stack[-3];
5587 v0642 = v0614;
5588 v0614 = stack[-2];
5589 v0614 = qcdr(v0614);
5590 stack[-2] = v0614;
5591 goto v0696;
5592 /* error exit handlers */
5593 v0695:
5594 popv(4);
5595 return nil;
5596 }
5597
5598
5599
5600 /* Code for rl_subat */
5601
CC_rl_subat(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)5602 static Lisp_Object CC_rl_subat(Lisp_Object env,
5603 Lisp_Object v0000, Lisp_Object v0001)
5604 {
5605 Lisp_Object nil = C_nil;
5606 Lisp_Object v0623, v0612;
5607 Lisp_Object fn;
5608 CSL_IGNORE(nil);
5609 #ifdef DEBUG
5610 if (check_env(env)) return aerror("env for rl_subat");
5611 #endif
5612 if (stack >= stacklimit)
5613 {
5614 push2(v0001,v0000);
5615 env = reclaim(env, "stack", GC_STACK, 0);
5616 pop2(v0000,v0001);
5617 nil = C_nil;
5618 if (exception_pending()) return nil;
5619 }
5620 push(env);
5621 /* space for vars preserved across procedure calls */
5622 push(nil);
5623 /* copy arguments values to proper place */
5624 v0623 = v0001;
5625 v0612 = v0000;
5626 /* end of prologue */
5627 stack[0] = qvalue(elt(env, 1)); /* rl_subat!* */
5628 v0623 = list2(v0612, v0623);
5629 nil = C_nil;
5630 if (exception_pending()) goto v0465;
5631 env = stack[-1];
5632 {
5633 Lisp_Object v0529 = stack[0];
5634 popv(2);
5635 fn = elt(env, 2); /* apply */
5636 return (*qfn2(fn))(qenv(fn), v0529, v0623);
5637 }
5638 /* error exit handlers */
5639 v0465:
5640 popv(2);
5641 return nil;
5642 }
5643
5644
5645
5646 /* Code for acfsf_opp */
5647
CC_acfsf_opp(Lisp_Object env,Lisp_Object v0000)5648 static Lisp_Object CC_acfsf_opp(Lisp_Object env,
5649 Lisp_Object v0000)
5650 {
5651 Lisp_Object nil = C_nil;
5652 Lisp_Object v0697, v0638;
5653 CSL_IGNORE(nil);
5654 #ifdef DEBUG
5655 if (check_env(env)) return aerror("env for acfsf_opp");
5656 #endif
5657 CSL_IGNORE(env);
5658 /* copy arguments values to proper place */
5659 v0697 = v0000;
5660 /* end of prologue */
5661 v0638 = elt(env, 1); /* (equal neq) */
5662 v0697 = Lmemq(nil, v0697, v0638);
5663 return onevalue(v0697);
5664 }
5665
5666
5667
5668 /* Code for arbitrary_c */
5669
CC_arbitrary_c(Lisp_Object env,Lisp_Object v0000)5670 static Lisp_Object CC_arbitrary_c(Lisp_Object env,
5671 Lisp_Object v0000)
5672 {
5673 Lisp_Object nil = C_nil;
5674 Lisp_Object v0735, v0736;
5675 Lisp_Object fn;
5676 CSL_IGNORE(nil);
5677 #ifdef DEBUG
5678 if (check_env(env)) return aerror("env for arbitrary_c");
5679 #endif
5680 if (stack >= stacklimit)
5681 {
5682 push(v0000);
5683 env = reclaim(env, "stack", GC_STACK, 0);
5684 pop(v0000);
5685 nil = C_nil;
5686 if (exception_pending()) return nil;
5687 }
5688 push(env);
5689 /* space for vars preserved across procedure calls */
5690 push(nil);
5691 /* copy arguments values to proper place */
5692 stack[0] = v0000;
5693 /* end of prologue */
5694 v0735 = qvalue(elt(env, 1)); /* nil */
5695 qvalue(elt(env, 2)) = v0735; /* found_int */
5696 v0735 = qvalue(elt(env, 1)); /* nil */
5697 qvalue(elt(env, 3)) = v0735; /* found_mat_int */
5698 v0735 = qvalue(elt(env, 1)); /* nil */
5699 qvalue(elt(env, 4)) = v0735; /* found_compl */
5700 v0735 = qvalue(elt(env, 1)); /* nil */
5701 qvalue(elt(env, 5)) = v0735; /* found_mat_compl */
5702 v0735 = stack[0];
5703 v0735 = Lconsp(nil, v0735);
5704 env = stack[-1];
5705 if (v0735 == nil) goto v0631;
5706 v0735 = stack[0];
5707 v0736 = qcar(v0735);
5708 v0735 = elt(env, 6); /* mat */
5709 if (v0736 == v0735) goto v0696;
5710 v0735 = stack[0];
5711 fn = elt(env, 19); /* isarb_compl */
5712 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5713 nil = C_nil;
5714 if (exception_pending()) goto v0737;
5715 env = stack[-1];
5716 v0735 = stack[0];
5717 fn = elt(env, 20); /* isarb_int */
5718 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5719 nil = C_nil;
5720 if (exception_pending()) goto v0737;
5721 env = stack[-1];
5722 goto v0642;
5723
5724 v0642:
5725 v0736 = qvalue(elt(env, 4)); /* found_compl */
5726 v0735 = (Lisp_Object)17; /* 1 */
5727 if (v0736 == v0735) goto v0738;
5728 v0736 = qvalue(elt(env, 2)); /* found_int */
5729 v0735 = (Lisp_Object)17; /* 1 */
5730 v0735 = (v0736 == v0735 ? lisp_true : nil);
5731 goto v0464;
5732
5733 v0464:
5734 if (v0735 == nil) goto v0549;
5735 v0735 = (Lisp_Object)17; /* 1 */
5736 qvalue(elt(env, 8)) = v0735; /* flagg */
5737 v0735 = elt(env, 9); /* "<apply><forall/>" */
5738 fn = elt(env, 21); /* printout */
5739 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5740 nil = C_nil;
5741 if (exception_pending()) goto v0737;
5742 env = stack[-1];
5743 v0736 = qvalue(elt(env, 10)); /* indent */
5744 v0735 = (Lisp_Object)49; /* 3 */
5745 v0735 = plus2(v0736, v0735);
5746 nil = C_nil;
5747 if (exception_pending()) goto v0737;
5748 env = stack[-1];
5749 qvalue(elt(env, 10)) = v0735; /* indent */
5750 v0735 = stack[0];
5751 fn = elt(env, 22); /* print_arb_compl */
5752 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5753 nil = C_nil;
5754 if (exception_pending()) goto v0737;
5755 env = stack[-1];
5756 v0735 = stack[0];
5757 fn = elt(env, 23); /* print_arb_int */
5758 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5759 nil = C_nil;
5760 if (exception_pending()) goto v0737;
5761 env = stack[-1];
5762 v0735 = elt(env, 11); /* "<condition>" */
5763 fn = elt(env, 21); /* printout */
5764 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5765 nil = C_nil;
5766 if (exception_pending()) goto v0737;
5767 env = stack[-1];
5768 v0736 = qvalue(elt(env, 10)); /* indent */
5769 v0735 = (Lisp_Object)49; /* 3 */
5770 v0735 = plus2(v0736, v0735);
5771 nil = C_nil;
5772 if (exception_pending()) goto v0737;
5773 env = stack[-1];
5774 qvalue(elt(env, 10)) = v0735; /* indent */
5775 v0736 = qvalue(elt(env, 4)); /* found_compl */
5776 v0735 = (Lisp_Object)17; /* 1 */
5777 if (v0736 == v0735) goto v0739;
5778 v0735 = qvalue(elt(env, 1)); /* nil */
5779 goto v0573;
5780
5781 v0573:
5782 if (v0735 == nil) goto v0740;
5783 v0735 = elt(env, 12); /* "<apply><and/>" */
5784 fn = elt(env, 21); /* printout */
5785 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5786 nil = C_nil;
5787 if (exception_pending()) goto v0737;
5788 env = stack[-1];
5789 v0736 = qvalue(elt(env, 10)); /* indent */
5790 v0735 = (Lisp_Object)49; /* 3 */
5791 v0735 = plus2(v0736, v0735);
5792 nil = C_nil;
5793 if (exception_pending()) goto v0737;
5794 env = stack[-1];
5795 qvalue(elt(env, 10)) = v0735; /* indent */
5796 goto v0741;
5797
5798 v0741:
5799 v0736 = qvalue(elt(env, 4)); /* found_compl */
5800 v0735 = (Lisp_Object)17; /* 1 */
5801 if (!(v0736 == v0735)) goto v0596;
5802 v0735 = qvalue(elt(env, 13)); /* consts_compl */
5803 fn = elt(env, 24); /* in_complexml */
5804 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5805 nil = C_nil;
5806 if (exception_pending()) goto v0737;
5807 env = stack[-1];
5808 goto v0596;
5809
5810 v0596:
5811 v0736 = qvalue(elt(env, 2)); /* found_int */
5812 v0735 = (Lisp_Object)17; /* 1 */
5813 if (!(v0736 == v0735)) goto v0742;
5814 v0735 = qvalue(elt(env, 14)); /* consts_int */
5815 fn = elt(env, 25); /* in_integerml */
5816 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5817 nil = C_nil;
5818 if (exception_pending()) goto v0737;
5819 env = stack[-1];
5820 goto v0742;
5821
5822 v0742:
5823 v0736 = qvalue(elt(env, 4)); /* found_compl */
5824 v0735 = (Lisp_Object)17; /* 1 */
5825 if (v0736 == v0735) goto v0559;
5826 v0735 = qvalue(elt(env, 1)); /* nil */
5827 goto v0428;
5828
5829 v0428:
5830 if (v0735 == nil) goto v0584;
5831 v0736 = qvalue(elt(env, 10)); /* indent */
5832 v0735 = (Lisp_Object)49; /* 3 */
5833 v0735 = difference2(v0736, v0735);
5834 nil = C_nil;
5835 if (exception_pending()) goto v0737;
5836 env = stack[-1];
5837 qvalue(elt(env, 10)) = v0735; /* indent */
5838 v0735 = elt(env, 15); /* "</apply>" */
5839 fn = elt(env, 21); /* printout */
5840 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5841 nil = C_nil;
5842 if (exception_pending()) goto v0737;
5843 env = stack[-1];
5844 goto v0743;
5845
5846 v0743:
5847 v0736 = qvalue(elt(env, 10)); /* indent */
5848 v0735 = (Lisp_Object)49; /* 3 */
5849 v0735 = difference2(v0736, v0735);
5850 nil = C_nil;
5851 if (exception_pending()) goto v0737;
5852 env = stack[-1];
5853 qvalue(elt(env, 10)) = v0735; /* indent */
5854 v0735 = elt(env, 16); /* "</condition>" */
5855 fn = elt(env, 21); /* printout */
5856 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5857 nil = C_nil;
5858 if (exception_pending()) goto v0737;
5859 env = stack[-1];
5860 goto v0549;
5861
5862 v0549:
5863 v0736 = qvalue(elt(env, 5)); /* found_mat_compl */
5864 v0735 = (Lisp_Object)17; /* 1 */
5865 if (v0736 == v0735) goto v0744;
5866 v0736 = qvalue(elt(env, 3)); /* found_mat_int */
5867 v0735 = (Lisp_Object)17; /* 1 */
5868 v0735 = (v0736 == v0735 ? lisp_true : nil);
5869 goto v0550;
5870
5871 v0550:
5872 if (v0735 == nil) goto v0631;
5873 v0735 = (Lisp_Object)17; /* 1 */
5874 qvalue(elt(env, 8)) = v0735; /* flagg */
5875 v0735 = elt(env, 9); /* "<apply><forall/>" */
5876 fn = elt(env, 21); /* printout */
5877 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5878 nil = C_nil;
5879 if (exception_pending()) goto v0737;
5880 env = stack[-1];
5881 v0736 = qvalue(elt(env, 10)); /* indent */
5882 v0735 = (Lisp_Object)49; /* 3 */
5883 v0735 = plus2(v0736, v0735);
5884 nil = C_nil;
5885 if (exception_pending()) goto v0737;
5886 env = stack[-1];
5887 qvalue(elt(env, 10)) = v0735; /* indent */
5888 v0735 = stack[0];
5889 v0735 = qcdr(v0735);
5890 fn = elt(env, 26); /* printarb_mat_compl */
5891 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5892 nil = C_nil;
5893 if (exception_pending()) goto v0737;
5894 env = stack[-1];
5895 v0735 = stack[0];
5896 v0735 = qcdr(v0735);
5897 fn = elt(env, 27); /* printarb_mat_int */
5898 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5899 nil = C_nil;
5900 if (exception_pending()) goto v0737;
5901 env = stack[-1];
5902 v0735 = elt(env, 11); /* "<condition>" */
5903 fn = elt(env, 21); /* printout */
5904 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5905 nil = C_nil;
5906 if (exception_pending()) goto v0737;
5907 env = stack[-1];
5908 v0736 = qvalue(elt(env, 10)); /* indent */
5909 v0735 = (Lisp_Object)49; /* 3 */
5910 v0735 = plus2(v0736, v0735);
5911 nil = C_nil;
5912 if (exception_pending()) goto v0737;
5913 env = stack[-1];
5914 qvalue(elt(env, 10)) = v0735; /* indent */
5915 v0736 = qvalue(elt(env, 5)); /* found_mat_compl */
5916 v0735 = (Lisp_Object)17; /* 1 */
5917 if (v0736 == v0735) goto v0536;
5918 v0735 = qvalue(elt(env, 1)); /* nil */
5919 goto v0745;
5920
5921 v0745:
5922 if (v0735 == nil) goto v0361;
5923 v0735 = elt(env, 12); /* "<apply><and/>" */
5924 fn = elt(env, 21); /* printout */
5925 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5926 nil = C_nil;
5927 if (exception_pending()) goto v0737;
5928 env = stack[-1];
5929 v0736 = qvalue(elt(env, 10)); /* indent */
5930 v0735 = (Lisp_Object)49; /* 3 */
5931 v0735 = plus2(v0736, v0735);
5932 nil = C_nil;
5933 if (exception_pending()) goto v0737;
5934 env = stack[-1];
5935 qvalue(elt(env, 10)) = v0735; /* indent */
5936 goto v0746;
5937
5938 v0746:
5939 v0736 = qvalue(elt(env, 5)); /* found_mat_compl */
5940 v0735 = (Lisp_Object)17; /* 1 */
5941 if (!(v0736 == v0735)) goto v0747;
5942 v0735 = qvalue(elt(env, 17)); /* consts_mat_compl */
5943 fn = elt(env, 24); /* in_complexml */
5944 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5945 nil = C_nil;
5946 if (exception_pending()) goto v0737;
5947 env = stack[-1];
5948 goto v0747;
5949
5950 v0747:
5951 v0736 = qvalue(elt(env, 3)); /* found_mat_int */
5952 v0735 = (Lisp_Object)17; /* 1 */
5953 if (!(v0736 == v0735)) goto v0351;
5954 v0735 = qvalue(elt(env, 18)); /* consts_mat_int */
5955 fn = elt(env, 25); /* in_integerml */
5956 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5957 nil = C_nil;
5958 if (exception_pending()) goto v0737;
5959 env = stack[-1];
5960 goto v0351;
5961
5962 v0351:
5963 v0736 = qvalue(elt(env, 5)); /* found_mat_compl */
5964 v0735 = (Lisp_Object)17; /* 1 */
5965 if (v0736 == v0735) goto v0748;
5966 v0735 = qvalue(elt(env, 1)); /* nil */
5967 goto v0358;
5968
5969 v0358:
5970 if (v0735 == nil) goto v0348;
5971 v0736 = qvalue(elt(env, 10)); /* indent */
5972 v0735 = (Lisp_Object)49; /* 3 */
5973 v0735 = difference2(v0736, v0735);
5974 nil = C_nil;
5975 if (exception_pending()) goto v0737;
5976 env = stack[-1];
5977 qvalue(elt(env, 10)) = v0735; /* indent */
5978 v0735 = elt(env, 15); /* "</apply>" */
5979 fn = elt(env, 21); /* printout */
5980 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5981 nil = C_nil;
5982 if (exception_pending()) goto v0737;
5983 env = stack[-1];
5984 goto v0749;
5985
5986 v0749:
5987 v0736 = qvalue(elt(env, 10)); /* indent */
5988 v0735 = (Lisp_Object)49; /* 3 */
5989 v0735 = difference2(v0736, v0735);
5990 nil = C_nil;
5991 if (exception_pending()) goto v0737;
5992 env = stack[-1];
5993 qvalue(elt(env, 10)) = v0735; /* indent */
5994 v0735 = elt(env, 16); /* "</condition>" */
5995 fn = elt(env, 21); /* printout */
5996 v0735 = (*qfn1(fn))(qenv(fn), v0735);
5997 nil = C_nil;
5998 if (exception_pending()) goto v0737;
5999 goto v0631;
6000
6001 v0631:
6002 v0735 = nil;
6003 { popv(2); return onevalue(v0735); }
6004
6005 v0348:
6006 v0735 = qvalue(elt(env, 17)); /* consts_mat_compl */
6007 v0736 = Llength(nil, v0735);
6008 nil = C_nil;
6009 if (exception_pending()) goto v0737;
6010 env = stack[-1];
6011 v0735 = (Lisp_Object)17; /* 1 */
6012 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6013 nil = C_nil;
6014 if (exception_pending()) goto v0737;
6015 v0735 = v0735 ? lisp_true : nil;
6016 env = stack[-1];
6017 if (v0735 == nil) goto v0750;
6018 v0736 = qvalue(elt(env, 10)); /* indent */
6019 v0735 = (Lisp_Object)49; /* 3 */
6020 v0735 = difference2(v0736, v0735);
6021 nil = C_nil;
6022 if (exception_pending()) goto v0737;
6023 env = stack[-1];
6024 qvalue(elt(env, 10)) = v0735; /* indent */
6025 v0735 = elt(env, 15); /* "</apply>" */
6026 fn = elt(env, 21); /* printout */
6027 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6028 nil = C_nil;
6029 if (exception_pending()) goto v0737;
6030 env = stack[-1];
6031 goto v0749;
6032
6033 v0750:
6034 v0735 = qvalue(elt(env, 18)); /* consts_mat_int */
6035 v0736 = Llength(nil, v0735);
6036 nil = C_nil;
6037 if (exception_pending()) goto v0737;
6038 env = stack[-1];
6039 v0735 = (Lisp_Object)17; /* 1 */
6040 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6041 nil = C_nil;
6042 if (exception_pending()) goto v0737;
6043 v0735 = v0735 ? lisp_true : nil;
6044 env = stack[-1];
6045 if (v0735 == nil) goto v0749;
6046 v0736 = qvalue(elt(env, 10)); /* indent */
6047 v0735 = (Lisp_Object)49; /* 3 */
6048 v0735 = difference2(v0736, v0735);
6049 nil = C_nil;
6050 if (exception_pending()) goto v0737;
6051 env = stack[-1];
6052 qvalue(elt(env, 10)) = v0735; /* indent */
6053 v0735 = elt(env, 15); /* "</apply>" */
6054 fn = elt(env, 21); /* printout */
6055 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6056 nil = C_nil;
6057 if (exception_pending()) goto v0737;
6058 env = stack[-1];
6059 goto v0749;
6060
6061 v0748:
6062 v0736 = qvalue(elt(env, 3)); /* found_mat_int */
6063 v0735 = (Lisp_Object)17; /* 1 */
6064 v0735 = (v0736 == v0735 ? lisp_true : nil);
6065 goto v0358;
6066
6067 v0361:
6068 v0735 = qvalue(elt(env, 17)); /* consts_mat_compl */
6069 v0736 = Llength(nil, v0735);
6070 nil = C_nil;
6071 if (exception_pending()) goto v0737;
6072 env = stack[-1];
6073 v0735 = (Lisp_Object)17; /* 1 */
6074 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6075 nil = C_nil;
6076 if (exception_pending()) goto v0737;
6077 v0735 = v0735 ? lisp_true : nil;
6078 env = stack[-1];
6079 if (v0735 == nil) goto v0530;
6080 v0735 = elt(env, 12); /* "<apply><and/>" */
6081 fn = elt(env, 21); /* printout */
6082 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6083 nil = C_nil;
6084 if (exception_pending()) goto v0737;
6085 env = stack[-1];
6086 v0736 = qvalue(elt(env, 10)); /* indent */
6087 v0735 = (Lisp_Object)49; /* 3 */
6088 v0735 = plus2(v0736, v0735);
6089 nil = C_nil;
6090 if (exception_pending()) goto v0737;
6091 env = stack[-1];
6092 qvalue(elt(env, 10)) = v0735; /* indent */
6093 goto v0746;
6094
6095 v0530:
6096 v0735 = qvalue(elt(env, 18)); /* consts_mat_int */
6097 v0736 = Llength(nil, v0735);
6098 nil = C_nil;
6099 if (exception_pending()) goto v0737;
6100 env = stack[-1];
6101 v0735 = (Lisp_Object)17; /* 1 */
6102 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6103 nil = C_nil;
6104 if (exception_pending()) goto v0737;
6105 v0735 = v0735 ? lisp_true : nil;
6106 env = stack[-1];
6107 if (v0735 == nil) goto v0746;
6108 v0735 = elt(env, 12); /* "<apply><and/>" */
6109 fn = elt(env, 21); /* printout */
6110 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6111 nil = C_nil;
6112 if (exception_pending()) goto v0737;
6113 env = stack[-1];
6114 v0736 = qvalue(elt(env, 10)); /* indent */
6115 v0735 = (Lisp_Object)49; /* 3 */
6116 v0735 = plus2(v0736, v0735);
6117 nil = C_nil;
6118 if (exception_pending()) goto v0737;
6119 env = stack[-1];
6120 qvalue(elt(env, 10)) = v0735; /* indent */
6121 goto v0746;
6122
6123 v0536:
6124 v0736 = qvalue(elt(env, 3)); /* found_mat_int */
6125 v0735 = (Lisp_Object)17; /* 1 */
6126 v0735 = (v0736 == v0735 ? lisp_true : nil);
6127 goto v0745;
6128
6129 v0744:
6130 v0735 = qvalue(elt(env, 7)); /* t */
6131 goto v0550;
6132
6133 v0584:
6134 v0735 = qvalue(elt(env, 13)); /* consts_compl */
6135 v0736 = Llength(nil, v0735);
6136 nil = C_nil;
6137 if (exception_pending()) goto v0737;
6138 env = stack[-1];
6139 v0735 = (Lisp_Object)17; /* 1 */
6140 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6141 nil = C_nil;
6142 if (exception_pending()) goto v0737;
6143 v0735 = v0735 ? lisp_true : nil;
6144 env = stack[-1];
6145 if (v0735 == nil) goto v0751;
6146 v0736 = qvalue(elt(env, 10)); /* indent */
6147 v0735 = (Lisp_Object)49; /* 3 */
6148 v0735 = difference2(v0736, v0735);
6149 nil = C_nil;
6150 if (exception_pending()) goto v0737;
6151 env = stack[-1];
6152 qvalue(elt(env, 10)) = v0735; /* indent */
6153 v0735 = elt(env, 15); /* "</apply>" */
6154 fn = elt(env, 21); /* printout */
6155 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6156 nil = C_nil;
6157 if (exception_pending()) goto v0737;
6158 env = stack[-1];
6159 goto v0743;
6160
6161 v0751:
6162 v0735 = qvalue(elt(env, 14)); /* consts_int */
6163 v0736 = Llength(nil, v0735);
6164 nil = C_nil;
6165 if (exception_pending()) goto v0737;
6166 env = stack[-1];
6167 v0735 = (Lisp_Object)17; /* 1 */
6168 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6169 nil = C_nil;
6170 if (exception_pending()) goto v0737;
6171 v0735 = v0735 ? lisp_true : nil;
6172 env = stack[-1];
6173 if (v0735 == nil) goto v0743;
6174 v0736 = qvalue(elt(env, 10)); /* indent */
6175 v0735 = (Lisp_Object)49; /* 3 */
6176 v0735 = difference2(v0736, v0735);
6177 nil = C_nil;
6178 if (exception_pending()) goto v0737;
6179 env = stack[-1];
6180 qvalue(elt(env, 10)) = v0735; /* indent */
6181 v0735 = elt(env, 15); /* "</apply>" */
6182 fn = elt(env, 21); /* printout */
6183 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6184 nil = C_nil;
6185 if (exception_pending()) goto v0737;
6186 env = stack[-1];
6187 goto v0743;
6188
6189 v0559:
6190 v0736 = qvalue(elt(env, 2)); /* found_int */
6191 v0735 = (Lisp_Object)17; /* 1 */
6192 v0735 = (v0736 == v0735 ? lisp_true : nil);
6193 goto v0428;
6194
6195 v0740:
6196 v0735 = qvalue(elt(env, 13)); /* consts_compl */
6197 v0736 = Llength(nil, v0735);
6198 nil = C_nil;
6199 if (exception_pending()) goto v0737;
6200 env = stack[-1];
6201 v0735 = (Lisp_Object)17; /* 1 */
6202 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6203 nil = C_nil;
6204 if (exception_pending()) goto v0737;
6205 v0735 = v0735 ? lisp_true : nil;
6206 env = stack[-1];
6207 if (v0735 == nil) goto v0752;
6208 v0735 = elt(env, 12); /* "<apply><and/>" */
6209 fn = elt(env, 21); /* printout */
6210 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6211 nil = C_nil;
6212 if (exception_pending()) goto v0737;
6213 env = stack[-1];
6214 v0736 = qvalue(elt(env, 10)); /* indent */
6215 v0735 = (Lisp_Object)49; /* 3 */
6216 v0735 = plus2(v0736, v0735);
6217 nil = C_nil;
6218 if (exception_pending()) goto v0737;
6219 env = stack[-1];
6220 qvalue(elt(env, 10)) = v0735; /* indent */
6221 goto v0741;
6222
6223 v0752:
6224 v0735 = qvalue(elt(env, 14)); /* consts_int */
6225 v0736 = Llength(nil, v0735);
6226 nil = C_nil;
6227 if (exception_pending()) goto v0737;
6228 env = stack[-1];
6229 v0735 = (Lisp_Object)17; /* 1 */
6230 v0735 = (Lisp_Object)greaterp2(v0736, v0735);
6231 nil = C_nil;
6232 if (exception_pending()) goto v0737;
6233 v0735 = v0735 ? lisp_true : nil;
6234 env = stack[-1];
6235 if (v0735 == nil) goto v0741;
6236 v0735 = elt(env, 12); /* "<apply><and/>" */
6237 fn = elt(env, 21); /* printout */
6238 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6239 nil = C_nil;
6240 if (exception_pending()) goto v0737;
6241 env = stack[-1];
6242 v0736 = qvalue(elt(env, 10)); /* indent */
6243 v0735 = (Lisp_Object)49; /* 3 */
6244 v0735 = plus2(v0736, v0735);
6245 nil = C_nil;
6246 if (exception_pending()) goto v0737;
6247 env = stack[-1];
6248 qvalue(elt(env, 10)) = v0735; /* indent */
6249 goto v0741;
6250
6251 v0739:
6252 v0736 = qvalue(elt(env, 2)); /* found_int */
6253 v0735 = (Lisp_Object)17; /* 1 */
6254 v0735 = (v0736 == v0735 ? lisp_true : nil);
6255 goto v0573;
6256
6257 v0738:
6258 v0735 = qvalue(elt(env, 7)); /* t */
6259 goto v0464;
6260
6261 v0696:
6262 v0735 = stack[0];
6263 v0735 = qcdr(v0735);
6264 fn = elt(env, 28); /* isarb_mat_compl */
6265 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6266 nil = C_nil;
6267 if (exception_pending()) goto v0737;
6268 env = stack[-1];
6269 v0735 = stack[0];
6270 v0735 = qcdr(v0735);
6271 fn = elt(env, 29); /* isarb_mat_int */
6272 v0735 = (*qfn1(fn))(qenv(fn), v0735);
6273 nil = C_nil;
6274 if (exception_pending()) goto v0737;
6275 env = stack[-1];
6276 goto v0642;
6277 /* error exit handlers */
6278 v0737:
6279 popv(2);
6280 return nil;
6281 }
6282
6283
6284
6285 /* Code for crnequiv */
6286
CC_crnequiv(Lisp_Object env,Lisp_Object v0000)6287 static Lisp_Object CC_crnequiv(Lisp_Object env,
6288 Lisp_Object v0000)
6289 {
6290 Lisp_Object nil = C_nil;
6291 Lisp_Object v0574, v0471, v0469;
6292 CSL_IGNORE(nil);
6293 #ifdef DEBUG
6294 if (check_env(env)) return aerror("env for crnequiv");
6295 #endif
6296 CSL_IGNORE(env);
6297 /* copy arguments values to proper place */
6298 v0471 = v0000;
6299 /* end of prologue */
6300 v0574 = v0471;
6301 v0574 = qcdr(v0574);
6302 v0471 = v0574;
6303 v0574 = qcdr(v0574);
6304 v0469 = qcar(v0574);
6305 v0574 = (Lisp_Object)1; /* 0 */
6306 if (v0469 == v0574) goto v0639;
6307 v0574 = qvalue(elt(env, 1)); /* nil */
6308 goto v0015;
6309
6310 v0015:
6311 if (v0574 == nil) goto v0686;
6312 v0574 = v0471;
6313 v0574 = qcar(v0574);
6314 v0574 = qcar(v0574);
6315 return onevalue(v0574);
6316
6317 v0686:
6318 v0574 = qvalue(elt(env, 1)); /* nil */
6319 return onevalue(v0574);
6320
6321 v0639:
6322 v0574 = v0471;
6323 v0574 = qcar(v0574);
6324 v0469 = qcdr(v0574);
6325 v0574 = (Lisp_Object)17; /* 1 */
6326 v0574 = (v0469 == v0574 ? lisp_true : nil);
6327 goto v0015;
6328 }
6329
6330
6331
6332 /* Code for mkdep */
6333
CC_mkdep(Lisp_Object env,Lisp_Object v0000)6334 static Lisp_Object CC_mkdep(Lisp_Object env,
6335 Lisp_Object v0000)
6336 {
6337 Lisp_Object nil = C_nil;
6338 Lisp_Object v0473, v0463, v0641;
6339 Lisp_Object fn;
6340 CSL_IGNORE(nil);
6341 #ifdef DEBUG
6342 if (check_env(env)) return aerror("env for mkdep");
6343 #endif
6344 if (stack >= stacklimit)
6345 {
6346 push(v0000);
6347 env = reclaim(env, "stack", GC_STACK, 0);
6348 pop(v0000);
6349 nil = C_nil;
6350 if (exception_pending()) return nil;
6351 }
6352 push(env);
6353 /* space for vars preserved across procedure calls */
6354 push2(nil, nil);
6355 /* copy arguments values to proper place */
6356 stack[0] = v0000;
6357 /* end of prologue */
6358 v0473 = stack[0];
6359 v0473 = qcdr(v0473);
6360 stack[-1] = v0473;
6361 goto v0005;
6362
6363 v0005:
6364 v0473 = stack[-1];
6365 if (v0473 == nil) goto v0697;
6366 v0473 = stack[-1];
6367 v0473 = qcar(v0473);
6368 v0463 = stack[0];
6369 v0641 = qcar(v0463);
6370 v0463 = v0473;
6371 v0473 = qvalue(elt(env, 2)); /* t */
6372 fn = elt(env, 3); /* depend1 */
6373 v0473 = (*qfnn(fn))(qenv(fn), 3, v0641, v0463, v0473);
6374 nil = C_nil;
6375 if (exception_pending()) goto v0686;
6376 env = stack[-2];
6377 v0473 = stack[-1];
6378 v0473 = qcdr(v0473);
6379 stack[-1] = v0473;
6380 goto v0005;
6381
6382 v0697:
6383 v0473 = qvalue(elt(env, 1)); /* nil */
6384 { popv(3); return onevalue(v0473); }
6385 /* error exit handlers */
6386 v0686:
6387 popv(3);
6388 return nil;
6389 }
6390
6391
6392
6393 /* Code for fl2bfexp */
6394
CC_fl2bfexp(Lisp_Object env,Lisp_Object v0000)6395 static Lisp_Object CC_fl2bfexp(Lisp_Object env,
6396 Lisp_Object v0000)
6397 {
6398 Lisp_Object nil = C_nil;
6399 Lisp_Object v0601, v0611;
6400 Lisp_Object fn;
6401 CSL_IGNORE(nil);
6402 #ifdef DEBUG
6403 if (check_env(env)) return aerror("env for fl2bfexp");
6404 #endif
6405 CSL_IGNORE(env);
6406 /* copy arguments values to proper place */
6407 v0611 = v0000;
6408 /* end of prologue */
6409 v0601 = qvalue(elt(env, 1)); /* !*bftag */
6410 if (v0601 == nil) goto v0631;
6411 v0601 = v0611;
6412 {
6413 fn = elt(env, 2); /* expfl2bf */
6414 return (*qfn1(fn))(qenv(fn), v0601);
6415 }
6416
6417 v0631:
6418 v0601 = v0611;
6419 {
6420 fn = elt(env, 3); /* exp */
6421 return (*qfn1(fn))(qenv(fn), v0601);
6422 }
6423 }
6424
6425
6426
6427 /* Code for makeanewindex */
6428
CC_makeanewindex(Lisp_Object env,int nargs,...)6429 static Lisp_Object MS_CDECL CC_makeanewindex(Lisp_Object env, int nargs, ...)
6430 {
6431 Lisp_Object nil = C_nil;
6432 Lisp_Object v0600, v0474;
6433 Lisp_Object fn;
6434 CSL_IGNORE(nil);
6435 argcheck(nargs, 0, "makeanewindex");
6436 #ifdef DEBUG
6437 if (check_env(env)) return aerror("env for makeanewindex");
6438 #endif
6439 if (stack >= stacklimit)
6440 {
6441 env = reclaim(env, "stack", GC_STACK, 0);
6442 nil = C_nil;
6443 if (exception_pending()) return nil;
6444 }
6445 push(env);
6446 /* space for vars preserved across procedure calls */
6447 push2(nil, nil);
6448 /* end of prologue */
6449 v0600 = (Lisp_Object)1; /* 0 */
6450 stack[0] = v0600;
6451 goto v0005;
6452
6453 v0005:
6454 v0600 = stack[0];
6455 v0600 = add1(v0600);
6456 nil = C_nil;
6457 if (exception_pending()) goto v0463;
6458 env = stack[-2];
6459 stack[0] = v0600;
6460 v0474 = elt(env, 1); /* idx */
6461 v0600 = stack[0];
6462 fn = elt(env, 2); /* mkid */
6463 v0600 = (*qfn2(fn))(qenv(fn), v0474, v0600);
6464 nil = C_nil;
6465 if (exception_pending()) goto v0463;
6466 env = stack[-2];
6467 stack[-1] = v0600;
6468 v0600 = stack[-1];
6469 fn = elt(env, 3); /* isanindex */
6470 v0600 = (*qfn1(fn))(qenv(fn), v0600);
6471 nil = C_nil;
6472 if (exception_pending()) goto v0463;
6473 env = stack[-2];
6474 if (!(v0600 == nil)) goto v0005;
6475 v0600 = stack[-1];
6476 fn = elt(env, 4); /* putanewindex */
6477 v0600 = (*qfn1(fn))(qenv(fn), v0600);
6478 nil = C_nil;
6479 if (exception_pending()) goto v0463;
6480 { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
6481 /* error exit handlers */
6482 v0463:
6483 popv(3);
6484 return nil;
6485 }
6486
6487
6488
6489 /* Code for mk_simple_map_ */
6490
CC_mk_simple_map_(Lisp_Object env,Lisp_Object v0000)6491 static Lisp_Object CC_mk_simple_map_(Lisp_Object env,
6492 Lisp_Object v0000)
6493 {
6494 Lisp_Object nil = C_nil;
6495 Lisp_Object v0696, v0619, v0623, v0612;
6496 Lisp_Object fn;
6497 CSL_IGNORE(nil);
6498 #ifdef DEBUG
6499 if (check_env(env)) return aerror("env for mk_simple_map_");
6500 #endif
6501 CSL_IGNORE(env);
6502 /* copy arguments values to proper place */
6503 v0696 = v0000;
6504 /* end of prologue */
6505 v0612 = v0696;
6506 v0623 = qvalue(elt(env, 1)); /* nil */
6507 v0619 = qvalue(elt(env, 1)); /* nil */
6508 v0696 = qvalue(elt(env, 1)); /* nil */
6509 {
6510 fn = elt(env, 2); /* mk_simple_map_1 */
6511 return (*qfnn(fn))(qenv(fn), 4, v0612, v0623, v0619, v0696);
6512 }
6513 }
6514
6515
6516
6517 /* Code for fillin1 */
6518
CC_fillin1(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)6519 static Lisp_Object CC_fillin1(Lisp_Object env,
6520 Lisp_Object v0000, Lisp_Object v0001)
6521 {
6522 Lisp_Object nil = C_nil;
6523 Lisp_Object v0458, v0607;
6524 Lisp_Object fn;
6525 CSL_IGNORE(nil);
6526 #ifdef DEBUG
6527 if (check_env(env)) return aerror("env for fillin1");
6528 #endif
6529 if (stack >= stacklimit)
6530 {
6531 push2(v0001,v0000);
6532 env = reclaim(env, "stack", GC_STACK, 0);
6533 pop2(v0000,v0001);
6534 nil = C_nil;
6535 if (exception_pending()) return nil;
6536 }
6537 push(env);
6538 /* space for vars preserved across procedure calls */
6539 push3(nil, nil, nil);
6540 /* copy arguments values to proper place */
6541 stack[0] = v0001;
6542 stack[-1] = v0000;
6543 /* end of prologue */
6544 stack[-2] = nil;
6545 goto v0683;
6546
6547 v0683:
6548 v0607 = stack[0];
6549 v0458 = (Lisp_Object)1; /* 0 */
6550 v0458 = (Lisp_Object)lessp2(v0607, v0458);
6551 nil = C_nil;
6552 if (exception_pending()) goto v0627;
6553 v0458 = v0458 ? lisp_true : nil;
6554 env = stack[-3];
6555 if (v0458 == nil) goto v0697;
6556 v0458 = stack[-2];
6557 {
6558 popv(4);
6559 fn = elt(env, 1); /* nreverse */
6560 return (*qfn1(fn))(qenv(fn), v0458);
6561 }
6562
6563 v0697:
6564 v0458 = stack[-1];
6565 if (v0458 == nil) goto v0466;
6566 v0458 = stack[-1];
6567 v0458 = qcar(v0458);
6568 v0607 = qcar(v0458);
6569 v0458 = stack[0];
6570 if (!(equal(v0607, v0458))) goto v0466;
6571 v0458 = stack[-1];
6572 v0458 = qcar(v0458);
6573 v0607 = qcdr(v0458);
6574 v0458 = stack[-2];
6575 v0458 = cons(v0607, v0458);
6576 nil = C_nil;
6577 if (exception_pending()) goto v0627;
6578 env = stack[-3];
6579 stack[-2] = v0458;
6580 v0458 = stack[-1];
6581 v0458 = qcdr(v0458);
6582 stack[-1] = v0458;
6583 v0458 = stack[0];
6584 v0458 = sub1(v0458);
6585 nil = C_nil;
6586 if (exception_pending()) goto v0627;
6587 env = stack[-3];
6588 stack[0] = v0458;
6589 goto v0683;
6590
6591 v0466:
6592 v0607 = (Lisp_Object)1; /* 0 */
6593 v0458 = stack[-2];
6594 v0458 = cons(v0607, v0458);
6595 nil = C_nil;
6596 if (exception_pending()) goto v0627;
6597 env = stack[-3];
6598 stack[-2] = v0458;
6599 v0458 = stack[0];
6600 v0458 = sub1(v0458);
6601 nil = C_nil;
6602 if (exception_pending()) goto v0627;
6603 env = stack[-3];
6604 stack[0] = v0458;
6605 goto v0683;
6606 /* error exit handlers */
6607 v0627:
6608 popv(4);
6609 return nil;
6610 }
6611
6612
6613
6614 /* Code for dp_comp */
6615
CC_dp_comp(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0001)6616 static Lisp_Object CC_dp_comp(Lisp_Object env,
6617 Lisp_Object v0000, Lisp_Object v0001)
6618 {
6619 Lisp_Object nil = C_nil;
6620 Lisp_Object v0606, v0613;
6621 Lisp_Object fn;
6622 CSL_IGNORE(nil);
6623 #ifdef DEBUG
6624 if (check_env(env)) return aerror("env for dp_comp");
6625 #endif
6626 if (stack >= stacklimit)
6627 {
6628 push2(v0001,v0000);
6629 env = reclaim(env, "stack", GC_STACK, 0);
6630 pop2(v0000,v0001);
6631 nil = C_nil;
6632 if (exception_pending()) return nil;
6633 }
6634 push(env);
6635 /* space for vars preserved across procedure calls */
6636 push5(nil, nil, nil, nil, nil);
6637 /* copy arguments values to proper place */
6638 v0606 = v0001;
6639 v0613 = v0000;
6640 /* end of prologue */
6641 fn = elt(env, 2); /* dp!=comp */
6642 v0606 = (*qfn2(fn))(qenv(fn), v0613, v0606);
6643 nil = C_nil;
6644 if (exception_pending()) goto v0583;
6645 env = stack[-5];
6646 stack[-4] = v0606;
6647 v0606 = stack[-4];
6648 if (v0606 == nil) goto v0612;
6649 v0606 = stack[-4];
6650 v0606 = qcar(v0606);
6651 stack[0] = v0606;
6652 v0606 = stack[0];
6653 v0606 = qcar(v0606);
6654 fn = elt(env, 3); /* mo_deletecomp */
6655 v0613 = (*qfn1(fn))(qenv(fn), v0606);
6656 nil = C_nil;
6657 if (exception_pending()) goto v0583;
6658 env = stack[-5];
6659 v0606 = stack[0];
6660 v0606 = qcdr(v0606);
6661 v0606 = cons(v0613, v0606);
6662 nil = C_nil;
6663 if (exception_pending()) goto v0583;
6664 env = stack[-5];
6665 v0606 = ncons(v0606);
6666 nil = C_nil;
6667 if (exception_pending()) goto v0583;
6668 env = stack[-5];
6669 stack[-2] = v0606;
6670 stack[-3] = v0606;
6671 goto v0575;
6672
6673 v0575:
6674 v0606 = stack[-4];
6675 v0606 = qcdr(v0606);
6676 stack[-4] = v0606;
6677 v0606 = stack[-4];
6678 if (v0606 == nil) { Lisp_Object res = stack[-3]; popv(6); return onevalue(res); }
6679 stack[-1] = stack[-2];
6680 v0606 = stack[-4];
6681 v0606 = qcar(v0606);
6682 stack[0] = v0606;
6683 v0606 = stack[0];
6684 v0606 = qcar(v0606);
6685 fn = elt(env, 3); /* mo_deletecomp */
6686 v0613 = (*qfn1(fn))(qenv(fn), v0606);
6687 nil = C_nil;
6688 if (exception_pending()) goto v0583;
6689 env = stack[-5];
6690 v0606 = stack[0];
6691 v0606 = qcdr(v0606);
6692 v0606 = cons(v0613, v0606);
6693 nil = C_nil;
6694 if (exception_pending()) goto v0583;
6695 env = stack[-5];
6696 v0606 = ncons(v0606);
6697 nil = C_nil;
6698 if (exception_pending()) goto v0583;
6699 env = stack[-5];
6700 v0606 = Lrplacd(nil, stack[-1], v0606);
6701 nil = C_nil;
6702 if (exception_pending()) goto v0583;
6703 env = stack[-5];
6704 v0606 = stack[-2];
6705 v0606 = qcdr(v0606);
6706 stack[-2] = v0606;
6707 goto v0575;
6708
6709 v0612:
6710 v0606 = qvalue(elt(env, 1)); /* nil */
6711 { popv(6); return onevalue(v0606); }
6712 /* error exit handlers */
6713 v0583:
6714 popv(6);
6715 return nil;
6716 }
6717
6718
6719
6720 setup_type const u60_setup[] =
6721 {
6722 {"com43", wrong_no_na, wrong_no_nb, (n_args *)CC_com43},
6723 {"revalpart", CC_revalpart, too_many_1, wrong_no_1},
6724 {"remred", too_few_2, CC_remred, wrong_no_2},
6725 {"anticom_assoc", too_few_2, CC_anticom_assoc,wrong_no_2},
6726 {"orderfactors", too_few_2, CC_orderfactors,wrong_no_2},
6727 {"eval_uni_poly_q", too_few_2, CC_eval_uni_poly_q,wrong_no_2},
6728 {"general-gcd-mod-p", too_few_2, CC_generalKgcdKmodKp,wrong_no_2},
6729 {"ofsf_sminsert", too_few_2, CC_ofsf_sminsert,wrong_no_2},
6730 {"makefunc", wrong_no_na, wrong_no_nb, (n_args *)CC_makefunc},
6731 {"mk_relation_mat", too_few_2, CC_mk_relation_mat,wrong_no_2},
6732 {"rl_subat", too_few_2, CC_rl_subat, wrong_no_2},
6733 {"acfsf_opp", CC_acfsf_opp, too_many_1, wrong_no_1},
6734 {"arbitrary_c", CC_arbitrary_c, too_many_1, wrong_no_1},
6735 {"crnequiv", CC_crnequiv, too_many_1, wrong_no_1},
6736 {"mkdep", CC_mkdep, too_many_1, wrong_no_1},
6737 {"fl2bfexp", CC_fl2bfexp, too_many_1, wrong_no_1},
6738 {"makeanewindex", wrong_no_na, wrong_no_nb, (n_args *)CC_makeanewindex},
6739 {"mk_simple_map_", CC_mk_simple_map_,too_many_1, wrong_no_1},
6740 {"fillin1", too_few_2, CC_fillin1, wrong_no_2},
6741 {"dp_comp", too_few_2, CC_dp_comp, wrong_no_2},
6742 {NULL, (one_args *)"u60", (two_args *)"8608 9834665 5136564", 0}
6743 };
6744
6745 /* end of generated code */
6746