1
2 /* $destdir\u50.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 lengthf */
2280
CC_lengthf(Lisp_Object env,Lisp_Object v0000)2281 static Lisp_Object CC_lengthf(Lisp_Object env,
2282 Lisp_Object v0000)
2283 {
2284 Lisp_Object nil = C_nil;
2285 Lisp_Object v0053, v0054;
2286 Lisp_Object fn;
2287 CSL_IGNORE(nil);
2288 #ifdef DEBUG
2289 if (check_env(env)) return aerror("env for lengthf");
2290 #endif
2291 if (stack >= stacklimit)
2292 {
2293 push(v0000);
2294 env = reclaim(env, "stack", GC_STACK, 0);
2295 pop(v0000);
2296 nil = C_nil;
2297 if (exception_pending()) return nil;
2298 }
2299 push(env);
2300 /* space for vars preserved across procedure calls */
2301 push3(nil, nil, nil);
2302 /* copy arguments values to proper place */
2303 stack[-1] = v0000;
2304 /* end of prologue */
2305 v0053 = stack[-1];
2306 if (v0053 == nil) goto v0055;
2307 v0053 = stack[-1];
2308 if (!consp(v0053)) goto v0056;
2309 v0054 = stack[-1];
2310 v0053 = elt(env, 1); /* plus */
2311 if (!consp(v0054)) goto v0057;
2312 v0054 = qcar(v0054);
2313 if (!(v0054 == v0053)) goto v0057;
2314 stack[0] = (Lisp_Object)49; /* 3 */
2315 v0053 = stack[-1];
2316 v0053 = qcdr(v0053);
2317 v0053 = Llength(nil, v0053);
2318 nil = C_nil;
2319 if (exception_pending()) goto v0058;
2320 env = stack[-3];
2321 v0053 = sub1(v0053);
2322 nil = C_nil;
2323 if (exception_pending()) goto v0058;
2324 env = stack[-3];
2325 stack[0] = times2(stack[0], v0053);
2326 nil = C_nil;
2327 if (exception_pending()) goto v0058;
2328 env = stack[-3];
2329 v0053 = stack[-1];
2330 v0053 = qcdr(v0053);
2331 v0053 = CC_lengthf(env, v0053);
2332 nil = C_nil;
2333 if (exception_pending()) goto v0058;
2334 {
2335 Lisp_Object v0059 = stack[0];
2336 popv(4);
2337 return plus2(v0059, v0053);
2338 }
2339
2340 v0057:
2341 v0054 = stack[-1];
2342 v0053 = elt(env, 2); /* times */
2343 if (!consp(v0054)) goto v0060;
2344 v0054 = qcar(v0054);
2345 if (!(v0054 == v0053)) goto v0060;
2346 v0053 = qvalue(elt(env, 3)); /* t */
2347 goto v0061;
2348
2349 v0061:
2350 if (v0053 == nil) goto v0062;
2351 v0053 = stack[-1];
2352 v0053 = qcdr(v0053);
2353 v0053 = Llength(nil, v0053);
2354 nil = C_nil;
2355 if (exception_pending()) goto v0058;
2356 env = stack[-3];
2357 stack[0] = sub1(v0053);
2358 nil = C_nil;
2359 if (exception_pending()) goto v0058;
2360 env = stack[-3];
2361 v0053 = stack[-1];
2362 v0053 = qcdr(v0053);
2363 v0053 = CC_lengthf(env, v0053);
2364 nil = C_nil;
2365 if (exception_pending()) goto v0058;
2366 {
2367 Lisp_Object v0063 = stack[0];
2368 popv(4);
2369 return plus2(v0063, v0053);
2370 }
2371
2372 v0062:
2373 v0054 = stack[-1];
2374 v0053 = elt(env, 5); /* quotient */
2375 if (!consp(v0054)) goto v0064;
2376 v0054 = qcar(v0054);
2377 if (!(v0054 == v0053)) goto v0064;
2378 v0053 = qvalue(elt(env, 6)); /* !*rational */
2379 if (v0053 == nil) goto v0065;
2380 v0053 = stack[-1];
2381 v0053 = qcdr(v0053);
2382 v0053 = qcar(v0053);
2383 fn = elt(env, 16); /* flatsizec */
2384 stack[0] = (*qfn1(fn))(qenv(fn), v0053);
2385 nil = C_nil;
2386 if (exception_pending()) goto v0058;
2387 env = stack[-3];
2388 v0053 = stack[-1];
2389 v0053 = qcdr(v0053);
2390 v0053 = qcdr(v0053);
2391 v0053 = qcar(v0053);
2392 fn = elt(env, 16); /* flatsizec */
2393 v0053 = (*qfn1(fn))(qenv(fn), v0053);
2394 nil = C_nil;
2395 if (exception_pending()) goto v0058;
2396 env = stack[-3];
2397 fn = elt(env, 17); /* max */
2398 v0053 = (*qfn2(fn))(qenv(fn), stack[0], v0053);
2399 nil = C_nil;
2400 if (exception_pending()) goto v0058;
2401 env = stack[-3];
2402 v0053 = add1(v0053);
2403 nil = C_nil;
2404 if (exception_pending()) goto v0058;
2405 popv(4);
2406 return add1(v0053);
2407
2408 v0065:
2409 v0053 = stack[-1];
2410 v0053 = qcdr(v0053);
2411 v0053 = qcar(v0053);
2412 fn = elt(env, 16); /* flatsizec */
2413 stack[0] = (*qfn1(fn))(qenv(fn), v0053);
2414 nil = C_nil;
2415 if (exception_pending()) goto v0058;
2416 env = stack[-3];
2417 v0053 = stack[-1];
2418 v0053 = qcdr(v0053);
2419 v0053 = qcdr(v0053);
2420 v0053 = qcar(v0053);
2421 fn = elt(env, 16); /* flatsizec */
2422 v0053 = (*qfn1(fn))(qenv(fn), v0053);
2423 nil = C_nil;
2424 if (exception_pending()) goto v0058;
2425 env = stack[-3];
2426 v0053 = plus2(stack[0], v0053);
2427 nil = C_nil;
2428 if (exception_pending()) goto v0058;
2429 popv(4);
2430 return add1(v0053);
2431
2432 v0064:
2433 v0054 = stack[-1];
2434 v0053 = elt(env, 7); /* expt */
2435 if (!consp(v0054)) goto v0066;
2436 v0054 = qcar(v0054);
2437 if (!(v0054 == v0053)) goto v0066;
2438 v0053 = stack[-1];
2439 v0053 = qcdr(v0053);
2440 v0053 = qcar(v0053);
2441 fn = elt(env, 16); /* flatsizec */
2442 v0053 = (*qfn1(fn))(qenv(fn), v0053);
2443 nil = C_nil;
2444 if (exception_pending()) goto v0058;
2445 popv(4);
2446 return add1(v0053);
2447
2448 v0066:
2449 v0054 = stack[-1];
2450 v0053 = elt(env, 8); /* dx */
2451 if (!consp(v0054)) goto v0067;
2452 v0054 = qcar(v0054);
2453 if (!(v0054 == v0053)) goto v0067;
2454 v0053 = qvalue(elt(env, 3)); /* t */
2455 goto v0068;
2456
2457 v0068:
2458 if (v0053 == nil) goto v0069;
2459 v0053 = stack[-1];
2460 v0053 = qcdr(v0053);
2461 v0053 = qcar(v0053);
2462 fn = elt(env, 16); /* flatsizec */
2463 v0054 = (*qfn1(fn))(qenv(fn), v0053);
2464 nil = C_nil;
2465 if (exception_pending()) goto v0058;
2466 v0053 = (Lisp_Object)65; /* 4 */
2467 popv(4);
2468 return plus2(v0054, v0053);
2469
2470 v0069:
2471 v0054 = stack[-1];
2472 v0053 = elt(env, 10); /* xi */
2473 if (!consp(v0054)) goto v0070;
2474 v0054 = qcar(v0054);
2475 if (!(v0054 == v0053)) goto v0070;
2476 v0053 = qvalue(elt(env, 3)); /* t */
2477 goto v0071;
2478
2479 v0071:
2480 if (v0053 == nil) goto v0072;
2481 stack[0] = (Lisp_Object)33; /* 2 */
2482 v0053 = stack[-1];
2483 v0053 = Llength(nil, v0053);
2484 nil = C_nil;
2485 if (exception_pending()) goto v0058;
2486 {
2487 Lisp_Object v0073 = stack[0];
2488 popv(4);
2489 return times2(v0073, v0053);
2490 }
2491
2492 v0072:
2493 v0054 = stack[-1];
2494 v0053 = elt(env, 15); /* df */
2495 if (!consp(v0054)) goto v0074;
2496 v0054 = qcar(v0054);
2497 if (!(v0054 == v0053)) goto v0074;
2498 stack[-2] = (Lisp_Object)65; /* 4 */
2499 v0053 = stack[-1];
2500 v0053 = qcdr(v0053);
2501 v0053 = qcar(v0053);
2502 stack[0] = CC_lengthf(env, v0053);
2503 nil = C_nil;
2504 if (exception_pending()) goto v0058;
2505 env = stack[-3];
2506 v0053 = stack[-1];
2507 v0053 = qcdr(v0053);
2508 v0053 = qcdr(v0053);
2509 v0053 = CC_lengthf(env, v0053);
2510 nil = C_nil;
2511 if (exception_pending()) goto v0058;
2512 env = stack[-3];
2513 v0053 = plus2(stack[0], v0053);
2514 nil = C_nil;
2515 if (exception_pending()) goto v0058;
2516 {
2517 Lisp_Object v0075 = stack[-2];
2518 popv(4);
2519 return plus2(v0075, v0053);
2520 }
2521
2522 v0074:
2523 v0053 = stack[-1];
2524 v0053 = qcar(v0053);
2525 stack[0] = CC_lengthf(env, v0053);
2526 nil = C_nil;
2527 if (exception_pending()) goto v0058;
2528 env = stack[-3];
2529 v0053 = stack[-1];
2530 v0053 = qcdr(v0053);
2531 v0053 = CC_lengthf(env, v0053);
2532 nil = C_nil;
2533 if (exception_pending()) goto v0058;
2534 {
2535 Lisp_Object v0076 = stack[0];
2536 popv(4);
2537 return plus2(v0076, v0053);
2538 }
2539
2540 v0070:
2541 v0054 = stack[-1];
2542 v0053 = elt(env, 11); /* eta */
2543 if (!consp(v0054)) goto v0077;
2544 v0054 = qcar(v0054);
2545 if (!(v0054 == v0053)) goto v0077;
2546 v0053 = qvalue(elt(env, 3)); /* t */
2547 goto v0071;
2548
2549 v0077:
2550 v0054 = stack[-1];
2551 v0053 = elt(env, 12); /* c */
2552 if (!consp(v0054)) goto v0078;
2553 v0054 = qcar(v0054);
2554 if (!(v0054 == v0053)) goto v0078;
2555 v0053 = qvalue(elt(env, 3)); /* t */
2556 goto v0071;
2557
2558 v0078:
2559 v0054 = stack[-1];
2560 v0053 = elt(env, 13); /* x */
2561 if (!consp(v0054)) goto v0079;
2562 v0054 = qcar(v0054);
2563 if (!(v0054 == v0053)) goto v0079;
2564 v0053 = qvalue(elt(env, 3)); /* t */
2565 goto v0071;
2566
2567 v0079:
2568 v0054 = stack[-1];
2569 v0053 = elt(env, 14); /* u */
2570 v0053 = Leqcar(nil, v0054, v0053);
2571 env = stack[-3];
2572 goto v0071;
2573
2574 v0067:
2575 v0054 = stack[-1];
2576 v0053 = elt(env, 9); /* du */
2577 v0053 = Leqcar(nil, v0054, v0053);
2578 env = stack[-3];
2579 goto v0068;
2580
2581 v0060:
2582 v0054 = stack[-1];
2583 v0053 = elt(env, 4); /* minus */
2584 v0053 = Leqcar(nil, v0054, v0053);
2585 env = stack[-3];
2586 goto v0061;
2587
2588 v0056:
2589 v0053 = stack[-1];
2590 {
2591 popv(4);
2592 fn = elt(env, 16); /* flatsizec */
2593 return (*qfn1(fn))(qenv(fn), v0053);
2594 }
2595
2596 v0055:
2597 v0053 = (Lisp_Object)1; /* 0 */
2598 { popv(4); return onevalue(v0053); }
2599 /* error exit handlers */
2600 v0058:
2601 popv(4);
2602 return nil;
2603 }
2604
2605
2606
2607 /* Code for xreduce1 */
2608
CC_xreduce1(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0080,Lisp_Object v0081,...)2609 static Lisp_Object MS_CDECL CC_xreduce1(Lisp_Object env, int nargs,
2610 Lisp_Object v0000, Lisp_Object v0080,
2611 Lisp_Object v0081, ...)
2612 {
2613 Lisp_Object nil = C_nil;
2614 Lisp_Object v0085, v0086, v0047;
2615 Lisp_Object fn;
2616 CSL_IGNORE(nil);
2617 argcheck(nargs, 3, "xreduce1");
2618 #ifdef DEBUG
2619 if (check_env(env)) return aerror("env for xreduce1");
2620 #endif
2621 if (stack >= stacklimit)
2622 {
2623 push3(v0081,v0080,v0000);
2624 env = reclaim(env, "stack", GC_STACK, 0);
2625 pop3(v0000,v0080,v0081);
2626 nil = C_nil;
2627 if (exception_pending()) return nil;
2628 }
2629 push(env);
2630 /* space for vars preserved across procedure calls */
2631 push4(nil, nil, nil, nil);
2632 /* copy arguments values to proper place */
2633 stack[0] = v0081;
2634 stack[-1] = v0080;
2635 stack[-2] = v0000;
2636 /* end of prologue */
2637 stack[-3] = nil;
2638 goto v0087;
2639
2640 v0087:
2641 v0047 = stack[-2];
2642 v0086 = stack[-1];
2643 v0085 = stack[0];
2644 fn = elt(env, 1); /* weak_xreduce1 */
2645 v0085 = (*qfnn(fn))(qenv(fn), 3, v0047, v0086, v0085);
2646 nil = C_nil;
2647 if (exception_pending()) goto v0042;
2648 env = stack[-4];
2649 stack[-2] = v0085;
2650 if (v0085 == nil) goto v0088;
2651 v0085 = stack[-2];
2652 v0086 = qcar(v0085);
2653 v0085 = stack[-3];
2654 v0085 = cons(v0086, v0085);
2655 nil = C_nil;
2656 if (exception_pending()) goto v0042;
2657 env = stack[-4];
2658 stack[-3] = v0085;
2659 v0085 = stack[-2];
2660 v0085 = qcdr(v0085);
2661 stack[-2] = v0085;
2662 goto v0087;
2663
2664 v0088:
2665 v0085 = stack[-3];
2666 {
2667 popv(5);
2668 fn = elt(env, 2); /* nreverse */
2669 return (*qfn1(fn))(qenv(fn), v0085);
2670 }
2671 /* error exit handlers */
2672 v0042:
2673 popv(5);
2674 return nil;
2675 }
2676
2677
2678
2679 /* Code for subsetneqp */
2680
CC_subsetneqp(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)2681 static Lisp_Object CC_subsetneqp(Lisp_Object env,
2682 Lisp_Object v0000, Lisp_Object v0080)
2683 {
2684 Lisp_Object nil = C_nil;
2685 Lisp_Object v0092, v0093;
2686 Lisp_Object fn;
2687 CSL_IGNORE(nil);
2688 #ifdef DEBUG
2689 if (check_env(env)) return aerror("env for subsetneqp");
2690 #endif
2691 if (stack >= stacklimit)
2692 {
2693 push2(v0080,v0000);
2694 env = reclaim(env, "stack", GC_STACK, 0);
2695 pop2(v0000,v0080);
2696 nil = C_nil;
2697 if (exception_pending()) return nil;
2698 }
2699 push(env);
2700 /* space for vars preserved across procedure calls */
2701 push2(nil, nil);
2702 /* copy arguments values to proper place */
2703 stack[0] = v0080;
2704 stack[-1] = v0000;
2705 /* end of prologue */
2706 v0093 = stack[-1];
2707 v0092 = stack[0];
2708 fn = elt(env, 2); /* subsetp */
2709 v0092 = (*qfn2(fn))(qenv(fn), v0093, v0092);
2710 nil = C_nil;
2711 if (exception_pending()) goto v0083;
2712 env = stack[-2];
2713 if (v0092 == nil) goto v0094;
2714 v0093 = stack[0];
2715 v0092 = stack[-1];
2716 fn = elt(env, 2); /* subsetp */
2717 v0092 = (*qfn2(fn))(qenv(fn), v0093, v0092);
2718 nil = C_nil;
2719 if (exception_pending()) goto v0083;
2720 v0092 = (v0092 == nil ? lisp_true : nil);
2721 { popv(3); return onevalue(v0092); }
2722
2723 v0094:
2724 v0092 = qvalue(elt(env, 1)); /* nil */
2725 { popv(3); return onevalue(v0092); }
2726 /* error exit handlers */
2727 v0083:
2728 popv(3);
2729 return nil;
2730 }
2731
2732
2733
2734 /* Code for exp!: */
2735
CC_expT(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)2736 static Lisp_Object CC_expT(Lisp_Object env,
2737 Lisp_Object v0000, Lisp_Object v0080)
2738 {
2739 Lisp_Object nil = C_nil;
2740 Lisp_Object v0186, v0187, v0188;
2741 Lisp_Object fn;
2742 CSL_IGNORE(nil);
2743 #ifdef DEBUG
2744 if (check_env(env)) return aerror("env for exp:");
2745 #endif
2746 if (stack >= stacklimit)
2747 {
2748 push2(v0080,v0000);
2749 env = reclaim(env, "stack", GC_STACK, 0);
2750 pop2(v0000,v0080);
2751 nil = C_nil;
2752 if (exception_pending()) return nil;
2753 }
2754 push(env);
2755 /* space for vars preserved across procedure calls */
2756 push5(nil, nil, nil, nil, nil);
2757 push5(nil, nil, nil, nil, nil);
2758 push4(nil, nil, nil, nil);
2759 /* copy arguments values to proper place */
2760 stack[-10] = v0080;
2761 stack[-11] = v0000;
2762 /* end of prologue */
2763 v0186 = stack[-10];
2764 v0186 = integerp(v0186);
2765 if (v0186 == nil) goto v0189;
2766 v0187 = stack[-10];
2767 v0186 = (Lisp_Object)1; /* 0 */
2768 v0186 = (Lisp_Object)lesseq2(v0187, v0186);
2769 nil = C_nil;
2770 if (exception_pending()) goto v0190;
2771 v0186 = v0186 ? lisp_true : nil;
2772 env = stack[-14];
2773 goto v0056;
2774
2775 v0056:
2776 if (v0186 == nil) goto v0191;
2777 stack[0] = (Lisp_Object)1; /* 0 */
2778 v0187 = elt(env, 2); /* "Invalid argument to" */
2779 v0186 = elt(env, 0); /* exp!: */
2780 v0186 = list2(v0187, v0186);
2781 nil = C_nil;
2782 if (exception_pending()) goto v0190;
2783 env = stack[-14];
2784 {
2785 Lisp_Object v0192 = stack[0];
2786 popv(15);
2787 fn = elt(env, 7); /* error */
2788 return (*qfn2(fn))(qenv(fn), v0192, v0186);
2789 }
2790
2791 v0191:
2792 v0186 = stack[-11];
2793 v0186 = qcdr(v0186);
2794 v0187 = qcar(v0186);
2795 v0186 = (Lisp_Object)1; /* 0 */
2796 if (v0187 == v0186) goto v0086;
2797 stack[0] = elt(env, 4); /* !:rd!: */
2798 v0186 = stack[-11];
2799 v0186 = qcdr(v0186);
2800 v0187 = qcar(v0186);
2801 v0186 = (Lisp_Object)1; /* 0 */
2802 v0186 = (Lisp_Object)greaterp2(v0187, v0186);
2803 nil = C_nil;
2804 if (exception_pending()) goto v0190;
2805 v0186 = v0186 ? lisp_true : nil;
2806 env = stack[-14];
2807 if (v0186 == nil) goto v0193;
2808 v0186 = stack[-11];
2809 goto v0041;
2810
2811 v0041:
2812 stack[-1] = v0186;
2813 v0187 = v0186;
2814 v0187 = qcdr(v0187);
2815 v0187 = qcar(v0187);
2816 v0186 = qcdr(v0186);
2817 v0186 = qcdr(v0186);
2818 v0187 = Lash1(nil, v0187, v0186);
2819 nil = C_nil;
2820 if (exception_pending()) goto v0190;
2821 env = stack[-14];
2822 stack[-9] = v0187;
2823 v0186 = (Lisp_Object)1; /* 0 */
2824 v0186 = list2star(stack[0], v0187, v0186);
2825 nil = C_nil;
2826 if (exception_pending()) goto v0190;
2827 env = stack[-14];
2828 stack[0] = v0186;
2829 v0187 = stack[-1];
2830 v0186 = stack[0];
2831 fn = elt(env, 8); /* difference!: */
2832 v0186 = (*qfn2(fn))(qenv(fn), v0187, v0186);
2833 nil = C_nil;
2834 if (exception_pending()) goto v0190;
2835 env = stack[-14];
2836 stack[-2] = stack[-10];
2837 v0186 = stack[-9];
2838 fn = elt(env, 9); /* msd */
2839 v0187 = (*qfn1(fn))(qenv(fn), v0186);
2840 nil = C_nil;
2841 if (exception_pending()) goto v0190;
2842 env = stack[-14];
2843 v0186 = (Lisp_Object)113; /* 7 */
2844 v0186 = plus2(v0187, v0186);
2845 nil = C_nil;
2846 if (exception_pending()) goto v0190;
2847 env = stack[-14];
2848 v0186 = plus2(stack[-2], v0186);
2849 nil = C_nil;
2850 if (exception_pending()) goto v0190;
2851 env = stack[-14];
2852 stack[-12] = v0186;
2853 v0187 = stack[-1];
2854 v0186 = stack[0];
2855 fn = elt(env, 8); /* difference!: */
2856 v0186 = (*qfn2(fn))(qenv(fn), v0187, v0186);
2857 nil = C_nil;
2858 if (exception_pending()) goto v0190;
2859 env = stack[-14];
2860 stack[-8] = v0186;
2861 v0186 = stack[0];
2862 v0186 = qcdr(v0186);
2863 v0187 = qcar(v0186);
2864 v0186 = (Lisp_Object)1; /* 0 */
2865 if (v0187 == v0186) goto v0194;
2866 v0186 = stack[-12];
2867 stack[0] = qvalue(elt(env, 5)); /* !:bprec!: */
2868 qvalue(elt(env, 5)) = v0186; /* !:bprec!: */
2869 v0186 = stack[-12];
2870 fn = elt(env, 10); /* !:e */
2871 v0187 = (*qfn1(fn))(qenv(fn), v0186);
2872 nil = C_nil;
2873 if (exception_pending()) goto v0195;
2874 env = stack[-14];
2875 v0186 = stack[-9];
2876 fn = elt(env, 11); /* texpt!: */
2877 v0186 = (*qfn2(fn))(qenv(fn), v0187, v0186);
2878 nil = C_nil;
2879 if (exception_pending()) goto v0195;
2880 env = stack[-14];
2881 stack[-7] = v0186;
2882 qvalue(elt(env, 5)) = stack[0]; /* !:bprec!: */
2883 goto v0196;
2884
2885 v0196:
2886 v0186 = stack[-8];
2887 v0186 = qcdr(v0186);
2888 v0187 = qcar(v0186);
2889 v0186 = (Lisp_Object)1; /* 0 */
2890 if (v0187 == v0186) goto v0025;
2891 stack[-1] = elt(env, 4); /* !:rd!: */
2892 stack[0] = (Lisp_Object)33; /* 2 */
2893 v0186 = stack[-12];
2894 v0186 = negate(v0186);
2895 nil = C_nil;
2896 if (exception_pending()) goto v0190;
2897 env = stack[-14];
2898 v0186 = list2star(stack[-1], stack[0], v0186);
2899 nil = C_nil;
2900 if (exception_pending()) goto v0190;
2901 env = stack[-14];
2902 stack[-4] = v0186;
2903 v0186 = qvalue(elt(env, 3)); /* bfone!* */
2904 stack[0] = v0186;
2905 stack[-2] = v0186;
2906 stack[-6] = v0186;
2907 v0186 = (Lisp_Object)17; /* 1 */
2908 stack[-9] = v0186;
2909 v0186 = (Lisp_Object)1; /* 0 */
2910 stack[-5] = v0186;
2911 goto v0197;
2912
2913 v0197:
2914 v0187 = stack[0];
2915 v0186 = stack[-4];
2916 fn = elt(env, 12); /* greaterp!: */
2917 v0186 = (*qfn2(fn))(qenv(fn), v0187, v0186);
2918 nil = C_nil;
2919 if (exception_pending()) goto v0190;
2920 env = stack[-14];
2921 if (v0186 == nil) goto v0198;
2922 stack[0] = elt(env, 4); /* !:rd!: */
2923 stack[-1] = stack[-9];
2924 v0186 = stack[-5];
2925 v0186 = add1(v0186);
2926 nil = C_nil;
2927 if (exception_pending()) goto v0190;
2928 env = stack[-14];
2929 stack[-5] = v0186;
2930 v0187 = times2(stack[-1], v0186);
2931 nil = C_nil;
2932 if (exception_pending()) goto v0190;
2933 env = stack[-14];
2934 stack[-9] = v0187;
2935 v0186 = (Lisp_Object)1; /* 0 */
2936 v0186 = list2star(stack[0], v0187, v0186);
2937 nil = C_nil;
2938 if (exception_pending()) goto v0190;
2939 env = stack[-14];
2940 stack[-3] = v0186;
2941 stack[-1] = elt(env, 4); /* !:rd!: */
2942 v0186 = stack[-2];
2943 v0186 = qcdr(v0186);
2944 v0187 = qcar(v0186);
2945 v0186 = stack[-8];
2946 v0186 = qcdr(v0186);
2947 v0186 = qcar(v0186);
2948 stack[0] = times2(v0187, v0186);
2949 nil = C_nil;
2950 if (exception_pending()) goto v0190;
2951 env = stack[-14];
2952 v0186 = stack[-2];
2953 v0186 = qcdr(v0186);
2954 v0187 = qcdr(v0186);
2955 v0186 = stack[-8];
2956 v0186 = qcdr(v0186);
2957 v0186 = qcdr(v0186);
2958 v0186 = plus2(v0187, v0186);
2959 nil = C_nil;
2960 if (exception_pending()) goto v0190;
2961 env = stack[-14];
2962 stack[0] = list2star(stack[-1], stack[0], v0186);
2963 nil = C_nil;
2964 if (exception_pending()) goto v0190;
2965 env = stack[-14];
2966 v0186 = stack[-12];
2967 v0186 = negate(v0186);
2968 nil = C_nil;
2969 if (exception_pending()) goto v0190;
2970 env = stack[-14];
2971 fn = elt(env, 13); /* cut!:ep */
2972 v0186 = (*qfn2(fn))(qenv(fn), stack[0], v0186);
2973 nil = C_nil;
2974 if (exception_pending()) goto v0190;
2975 env = stack[-14];
2976 stack[-2] = v0186;
2977 stack[-1] = (Lisp_Object)17; /* 1 */
2978 stack[-13] = stack[-12];
2979 v0186 = stack[-3];
2980 v0186 = qcdr(v0186);
2981 v0187 = qcar(v0186);
2982 v0186 = (Lisp_Object)1; /* 0 */
2983 if (v0187 == v0186) goto v0199;
2984 v0186 = stack[-3];
2985 v0186 = qcdr(v0186);
2986 v0186 = qcar(v0186);
2987 v0186 = Labsval(nil, v0186);
2988 nil = C_nil;
2989 if (exception_pending()) goto v0190;
2990 env = stack[-14];
2991 fn = elt(env, 9); /* msd */
2992 stack[0] = (*qfn1(fn))(qenv(fn), v0186);
2993 nil = C_nil;
2994 if (exception_pending()) goto v0190;
2995 env = stack[-14];
2996 v0186 = stack[-3];
2997 v0186 = qcdr(v0186);
2998 v0186 = qcdr(v0186);
2999 v0186 = sub1(v0186);
3000 nil = C_nil;
3001 if (exception_pending()) goto v0190;
3002 env = stack[-14];
3003 v0186 = plus2(stack[0], v0186);
3004 nil = C_nil;
3005 if (exception_pending()) goto v0190;
3006 env = stack[-14];
3007 goto v0063;
3008
3009 v0063:
3010 stack[-13] = difference2(stack[-13], v0186);
3011 nil = C_nil;
3012 if (exception_pending()) goto v0190;
3013 env = stack[-14];
3014 v0186 = stack[-2];
3015 v0186 = qcdr(v0186);
3016 v0187 = qcar(v0186);
3017 v0186 = (Lisp_Object)1; /* 0 */
3018 if (v0187 == v0186) goto v0200;
3019 v0186 = stack[-2];
3020 v0186 = qcdr(v0186);
3021 v0186 = qcar(v0186);
3022 v0186 = Labsval(nil, v0186);
3023 nil = C_nil;
3024 if (exception_pending()) goto v0190;
3025 env = stack[-14];
3026 fn = elt(env, 9); /* msd */
3027 stack[0] = (*qfn1(fn))(qenv(fn), v0186);
3028 nil = C_nil;
3029 if (exception_pending()) goto v0190;
3030 env = stack[-14];
3031 v0186 = stack[-2];
3032 v0186 = qcdr(v0186);
3033 v0186 = qcdr(v0186);
3034 v0186 = sub1(v0186);
3035 nil = C_nil;
3036 if (exception_pending()) goto v0190;
3037 env = stack[-14];
3038 v0186 = plus2(stack[0], v0186);
3039 nil = C_nil;
3040 if (exception_pending()) goto v0190;
3041 env = stack[-14];
3042 goto v0054;
3043
3044 v0054:
3045 v0186 = plus2(stack[-13], v0186);
3046 nil = C_nil;
3047 if (exception_pending()) goto v0190;
3048 env = stack[-14];
3049 fn = elt(env, 14); /* max */
3050 v0186 = (*qfn2(fn))(qenv(fn), stack[-1], v0186);
3051 nil = C_nil;
3052 if (exception_pending()) goto v0190;
3053 env = stack[-14];
3054 v0188 = stack[-2];
3055 v0187 = stack[-3];
3056 fn = elt(env, 15); /* divide!: */
3057 v0186 = (*qfnn(fn))(qenv(fn), 3, v0188, v0187, v0186);
3058 nil = C_nil;
3059 if (exception_pending()) goto v0190;
3060 env = stack[-14];
3061 stack[0] = v0186;
3062 v0187 = stack[-6];
3063 v0186 = stack[0];
3064 fn = elt(env, 16); /* plus!: */
3065 v0186 = (*qfn2(fn))(qenv(fn), v0187, v0186);
3066 nil = C_nil;
3067 if (exception_pending()) goto v0190;
3068 env = stack[-14];
3069 stack[-6] = v0186;
3070 v0187 = stack[-5];
3071 v0186 = (Lisp_Object)161; /* 10 */
3072 v0187 = Cremainder(v0187, v0186);
3073 nil = C_nil;
3074 if (exception_pending()) goto v0190;
3075 env = stack[-14];
3076 v0186 = (Lisp_Object)1; /* 0 */
3077 if (!(v0187 == v0186)) goto v0197;
3078 stack[-1] = stack[-6];
3079 v0186 = stack[-12];
3080 v0186 = negate(v0186);
3081 nil = C_nil;
3082 if (exception_pending()) goto v0190;
3083 env = stack[-14];
3084 fn = elt(env, 13); /* cut!:ep */
3085 v0186 = (*qfn2(fn))(qenv(fn), stack[-1], v0186);
3086 nil = C_nil;
3087 if (exception_pending()) goto v0190;
3088 env = stack[-14];
3089 stack[-6] = v0186;
3090 goto v0197;
3091
3092 v0200:
3093 v0186 = (Lisp_Object)1; /* 0 */
3094 goto v0054;
3095
3096 v0199:
3097 v0186 = (Lisp_Object)1; /* 0 */
3098 goto v0063;
3099
3100 v0198:
3101 stack[-1] = elt(env, 4); /* !:rd!: */
3102 v0186 = stack[-7];
3103 v0186 = qcdr(v0186);
3104 v0187 = qcar(v0186);
3105 v0186 = stack[-6];
3106 v0186 = qcdr(v0186);
3107 v0186 = qcar(v0186);
3108 stack[0] = times2(v0187, v0186);
3109 nil = C_nil;
3110 if (exception_pending()) goto v0190;
3111 env = stack[-14];
3112 v0186 = stack[-7];
3113 v0186 = qcdr(v0186);
3114 v0187 = qcdr(v0186);
3115 v0186 = stack[-6];
3116 v0186 = qcdr(v0186);
3117 v0186 = qcdr(v0186);
3118 v0186 = plus2(v0187, v0186);
3119 nil = C_nil;
3120 if (exception_pending()) goto v0190;
3121 env = stack[-14];
3122 stack[0] = list2star(stack[-1], stack[0], v0186);
3123 nil = C_nil;
3124 if (exception_pending()) goto v0190;
3125 env = stack[-14];
3126 v0186 = stack[-10];
3127 v0186 = add1(v0186);
3128 nil = C_nil;
3129 if (exception_pending()) goto v0190;
3130 env = stack[-14];
3131 fn = elt(env, 17); /* cut!:mt */
3132 v0186 = (*qfn2(fn))(qenv(fn), stack[0], v0186);
3133 nil = C_nil;
3134 if (exception_pending()) goto v0190;
3135 env = stack[-14];
3136 stack[-1] = v0186;
3137 v0187 = stack[-11];
3138 v0186 = elt(env, 4); /* !:rd!: */
3139 if (!consp(v0187)) goto v0201;
3140 v0187 = qcar(v0187);
3141 if (!(v0187 == v0186)) goto v0201;
3142 v0186 = stack[-11];
3143 v0186 = qcdr(v0186);
3144 v0186 = (consp(v0186) ? nil : lisp_true);
3145 v0186 = (v0186 == nil ? lisp_true : nil);
3146 goto v0202;
3147
3148 v0202:
3149 if (v0186 == nil) goto v0203;
3150 v0186 = stack[-11];
3151 v0186 = qcdr(v0186);
3152 v0187 = qcar(v0186);
3153 v0186 = (Lisp_Object)1; /* 0 */
3154 v0186 = (Lisp_Object)lessp2(v0187, v0186);
3155 nil = C_nil;
3156 if (exception_pending()) goto v0190;
3157 v0186 = v0186 ? lisp_true : nil;
3158 env = stack[-14];
3159 goto v0204;
3160
3161 v0204:
3162 if (v0186 == nil) goto v0205;
3163 v0188 = qvalue(elt(env, 3)); /* bfone!* */
3164 v0187 = stack[-1];
3165 v0186 = stack[-10];
3166 {
3167 popv(15);
3168 fn = elt(env, 15); /* divide!: */
3169 return (*qfnn(fn))(qenv(fn), 3, v0188, v0187, v0186);
3170 }
3171
3172 v0205:
3173 v0187 = stack[-1];
3174 v0186 = stack[-10];
3175 {
3176 popv(15);
3177 fn = elt(env, 18); /* round!:mt */
3178 return (*qfn2(fn))(qenv(fn), v0187, v0186);
3179 }
3180
3181 v0203:
3182 v0186 = qvalue(elt(env, 6)); /* nil */
3183 goto v0204;
3184
3185 v0201:
3186 v0186 = qvalue(elt(env, 6)); /* nil */
3187 goto v0202;
3188
3189 v0025:
3190 v0186 = qvalue(elt(env, 3)); /* bfone!* */
3191 stack[-6] = v0186;
3192 goto v0198;
3193
3194 v0194:
3195 v0186 = qvalue(elt(env, 3)); /* bfone!* */
3196 stack[-7] = v0186;
3197 goto v0196;
3198
3199 v0193:
3200 stack[-1] = elt(env, 4); /* !:rd!: */
3201 v0186 = stack[-11];
3202 v0186 = qcdr(v0186);
3203 v0186 = qcar(v0186);
3204 v0187 = negate(v0186);
3205 nil = C_nil;
3206 if (exception_pending()) goto v0190;
3207 env = stack[-14];
3208 v0186 = stack[-11];
3209 v0186 = qcdr(v0186);
3210 v0186 = qcdr(v0186);
3211 v0186 = list2star(stack[-1], v0187, v0186);
3212 nil = C_nil;
3213 if (exception_pending()) goto v0190;
3214 env = stack[-14];
3215 goto v0041;
3216
3217 v0086:
3218 v0186 = qvalue(elt(env, 3)); /* bfone!* */
3219 { popv(15); return onevalue(v0186); }
3220
3221 v0189:
3222 v0186 = qvalue(elt(env, 1)); /* t */
3223 goto v0056;
3224 /* error exit handlers */
3225 v0195:
3226 env = stack[-14];
3227 qvalue(elt(env, 5)) = stack[0]; /* !:bprec!: */
3228 popv(15);
3229 return nil;
3230 v0190:
3231 popv(15);
3232 return nil;
3233 }
3234
3235
3236
3237 /* Code for simpinnerprod */
3238
CC_simpinnerprod(Lisp_Object env,Lisp_Object v0000)3239 static Lisp_Object CC_simpinnerprod(Lisp_Object env,
3240 Lisp_Object v0000)
3241 {
3242 Lisp_Object nil = C_nil;
3243 Lisp_Object v0094;
3244 Lisp_Object fn;
3245 CSL_IGNORE(nil);
3246 #ifdef DEBUG
3247 if (check_env(env)) return aerror("env for simpinnerprod");
3248 #endif
3249 if (stack >= stacklimit)
3250 {
3251 push(v0000);
3252 env = reclaim(env, "stack", GC_STACK, 0);
3253 pop(v0000);
3254 nil = C_nil;
3255 if (exception_pending()) return nil;
3256 }
3257 push(env);
3258 /* copy arguments values to proper place */
3259 v0094 = v0000;
3260 /* end of prologue */
3261 fn = elt(env, 1); /* partitinnerprod */
3262 v0094 = (*qfn1(fn))(qenv(fn), v0094);
3263 nil = C_nil;
3264 if (exception_pending()) goto v0206;
3265 env = stack[0];
3266 {
3267 popv(1);
3268 fn = elt(env, 2); /* !*pf2sq */
3269 return (*qfn1(fn))(qenv(fn), v0094);
3270 }
3271 /* error exit handlers */
3272 v0206:
3273 popv(1);
3274 return nil;
3275 }
3276
3277
3278
3279 /* Code for new_edge */
3280
CC_new_edge(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)3281 static Lisp_Object CC_new_edge(Lisp_Object env,
3282 Lisp_Object v0000, Lisp_Object v0080)
3283 {
3284 Lisp_Object nil = C_nil;
3285 Lisp_Object v0209, v0210;
3286 Lisp_Object fn;
3287 CSL_IGNORE(nil);
3288 #ifdef DEBUG
3289 if (check_env(env)) return aerror("env for new_edge");
3290 #endif
3291 if (stack >= stacklimit)
3292 {
3293 push2(v0080,v0000);
3294 env = reclaim(env, "stack", GC_STACK, 0);
3295 pop2(v0000,v0080);
3296 nil = C_nil;
3297 if (exception_pending()) return nil;
3298 }
3299 push(env);
3300 /* space for vars preserved across procedure calls */
3301 push3(nil, nil, nil);
3302 /* copy arguments values to proper place */
3303 stack[0] = v0080;
3304 stack[-1] = v0000;
3305 /* end of prologue */
3306 v0209 = stack[-1];
3307 v0210 = qcar(v0209);
3308 v0209 = stack[0];
3309 v0209 = qcar(v0209);
3310 fn = elt(env, 3); /* mk_edge_name */
3311 stack[-2] = (*qfn2(fn))(qenv(fn), v0210, v0209);
3312 nil = C_nil;
3313 if (exception_pending()) goto v0045;
3314 env = stack[-3];
3315 v0209 = stack[-1];
3316 v0210 = qcar(v0209);
3317 v0209 = stack[0];
3318 v0209 = qcar(v0209);
3319 v0210 = cons(v0210, v0209);
3320 nil = C_nil;
3321 if (exception_pending()) goto v0045;
3322 env = stack[-3];
3323 v0209 = qvalue(elt(env, 1)); /* nil */
3324 v0209 = list3(stack[-2], v0210, v0209);
3325 nil = C_nil;
3326 if (exception_pending()) goto v0045;
3327 env = stack[-3];
3328 stack[0] = v0209;
3329 v0210 = stack[0];
3330 v0209 = qvalue(elt(env, 2)); /* new_edge_list */
3331 v0209 = cons(v0210, v0209);
3332 nil = C_nil;
3333 if (exception_pending()) goto v0045;
3334 env = stack[-3];
3335 qvalue(elt(env, 2)) = v0209; /* new_edge_list */
3336 { Lisp_Object res = stack[0]; popv(4); return onevalue(res); }
3337 /* error exit handlers */
3338 v0045:
3339 popv(4);
3340 return nil;
3341 }
3342
3343
3344
3345 /* Code for generic!-sub */
3346
CC_genericKsub(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)3347 static Lisp_Object CC_genericKsub(Lisp_Object env,
3348 Lisp_Object v0000, Lisp_Object v0080)
3349 {
3350 Lisp_Object nil = C_nil;
3351 Lisp_Object v0051, v0185;
3352 Lisp_Object fn;
3353 CSL_IGNORE(nil);
3354 #ifdef DEBUG
3355 if (check_env(env)) return aerror("env for generic-sub");
3356 #endif
3357 if (stack >= stacklimit)
3358 {
3359 push2(v0080,v0000);
3360 env = reclaim(env, "stack", GC_STACK, 0);
3361 pop2(v0000,v0080);
3362 nil = C_nil;
3363 if (exception_pending()) return nil;
3364 }
3365 push(env);
3366 /* space for vars preserved across procedure calls */
3367 push3(nil, nil, nil);
3368 /* copy arguments values to proper place */
3369 v0051 = v0080;
3370 v0185 = v0000;
3371 /* end of prologue */
3372 stack[-2] = v0185;
3373 stack[-1] = elt(env, 1); /* dfp */
3374 stack[0] = v0051;
3375 v0051 = elt(env, 2); /* list */
3376 v0051 = ncons(v0051);
3377 nil = C_nil;
3378 if (exception_pending()) goto v0092;
3379 env = stack[-3];
3380 v0051 = list3(stack[-1], stack[0], v0051);
3381 nil = C_nil;
3382 if (exception_pending()) goto v0092;
3383 env = stack[-3];
3384 {
3385 Lisp_Object v0093 = stack[-2];
3386 popv(4);
3387 fn = elt(env, 3); /* dfp!-sub */
3388 return (*qfn2(fn))(qenv(fn), v0093, v0051);
3389 }
3390 /* error exit handlers */
3391 v0092:
3392 popv(4);
3393 return nil;
3394 }
3395
3396
3397
3398 /* Code for fs!:intequiv!: */
3399
CC_fsTintequivT(Lisp_Object env,Lisp_Object v0000)3400 static Lisp_Object CC_fsTintequivT(Lisp_Object env,
3401 Lisp_Object v0000)
3402 {
3403 Lisp_Object nil = C_nil;
3404 Lisp_Object v0219, v0062;
3405 Lisp_Object fn;
3406 CSL_IGNORE(nil);
3407 #ifdef DEBUG
3408 if (check_env(env)) return aerror("env for fs:intequiv:");
3409 #endif
3410 if (stack >= stacklimit)
3411 {
3412 push(v0000);
3413 env = reclaim(env, "stack", GC_STACK, 0);
3414 pop(v0000);
3415 nil = C_nil;
3416 if (exception_pending()) return nil;
3417 }
3418 push(env);
3419 /* space for vars preserved across procedure calls */
3420 push(nil);
3421 /* copy arguments values to proper place */
3422 v0219 = v0000;
3423 /* end of prologue */
3424 v0219 = qcdr(v0219);
3425 stack[0] = v0219;
3426 v0062 = stack[0];
3427 v0219 = (Lisp_Object)49; /* 3 */
3428 v0219 = *(Lisp_Object *)((char *)v0062 + (CELL-TAG_VECTOR) + ((int32_t)v0219/(16/CELL)));
3429 if (v0219 == nil) goto v0184;
3430 v0219 = qvalue(elt(env, 1)); /* nil */
3431 { popv(2); return onevalue(v0219); }
3432
3433 v0184:
3434 v0219 = stack[0];
3435 fn = elt(env, 3); /* fs!:null!-angle */
3436 v0219 = (*qfn1(fn))(qenv(fn), v0219);
3437 nil = C_nil;
3438 if (exception_pending()) goto v0180;
3439 env = stack[-1];
3440 if (v0219 == nil) goto v0212;
3441 v0062 = stack[0];
3442 v0219 = (Lisp_Object)17; /* 1 */
3443 v0062 = *(Lisp_Object *)((char *)v0062 + (CELL-TAG_VECTOR) + ((int32_t)v0219/(16/CELL)));
3444 v0219 = elt(env, 2); /* cos */
3445 if (v0062 == v0219) goto v0181;
3446 v0219 = qvalue(elt(env, 1)); /* nil */
3447 { popv(2); return onevalue(v0219); }
3448
3449 v0181:
3450 v0062 = stack[0];
3451 v0219 = (Lisp_Object)1; /* 0 */
3452 v0219 = *(Lisp_Object *)((char *)v0062 + (CELL-TAG_VECTOR) + ((int32_t)v0219/(16/CELL)));
3453 v0219 = qcar(v0219);
3454 v0219 = integerp(v0219);
3455 if (v0219 == nil) goto v0061;
3456 v0062 = stack[0];
3457 v0219 = (Lisp_Object)1; /* 0 */
3458 v0219 = *(Lisp_Object *)((char *)v0062 + (CELL-TAG_VECTOR) + ((int32_t)v0219/(16/CELL)));
3459 v0062 = qcdr(v0219);
3460 v0219 = (Lisp_Object)17; /* 1 */
3461 v0219 = (v0062 == v0219 ? lisp_true : nil);
3462 { popv(2); return onevalue(v0219); }
3463
3464 v0061:
3465 v0219 = qvalue(elt(env, 1)); /* nil */
3466 { popv(2); return onevalue(v0219); }
3467
3468 v0212:
3469 v0219 = qvalue(elt(env, 1)); /* nil */
3470 { popv(2); return onevalue(v0219); }
3471 /* error exit handlers */
3472 v0180:
3473 popv(2);
3474 return nil;
3475 }
3476
3477
3478
3479 /* Code for all_index_lst */
3480
CC_all_index_lst(Lisp_Object env,Lisp_Object v0000)3481 static Lisp_Object CC_all_index_lst(Lisp_Object env,
3482 Lisp_Object v0000)
3483 {
3484 Lisp_Object nil = C_nil;
3485 Lisp_Object v0223, v0224;
3486 Lisp_Object fn;
3487 CSL_IGNORE(nil);
3488 #ifdef DEBUG
3489 if (check_env(env)) return aerror("env for all_index_lst");
3490 #endif
3491 if (stack >= stacklimit)
3492 {
3493 push(v0000);
3494 env = reclaim(env, "stack", GC_STACK, 0);
3495 pop(v0000);
3496 nil = C_nil;
3497 if (exception_pending()) return nil;
3498 }
3499 push(env);
3500 /* space for vars preserved across procedure calls */
3501 push3(nil, nil, nil);
3502 /* copy arguments values to proper place */
3503 stack[-1] = v0000;
3504 /* end of prologue */
3505 stack[-2] = nil;
3506 goto v0206;
3507
3508 v0206:
3509 v0223 = stack[-1];
3510 if (v0223 == nil) goto v0184;
3511 v0223 = stack[-1];
3512 v0223 = qcar(v0223);
3513 v0223 = qcdr(v0223);
3514 stack[0] = v0223;
3515 v0223 = stack[0];
3516 v0223 = qcar(v0223);
3517 fn = elt(env, 3); /* listp */
3518 v0223 = (*qfn1(fn))(qenv(fn), v0223);
3519 nil = C_nil;
3520 if (exception_pending()) goto v0175;
3521 env = stack[-3];
3522 if (v0223 == nil) goto v0225;
3523 v0223 = stack[0];
3524 v0223 = qcar(v0223);
3525 v0224 = qcar(v0223);
3526 v0223 = elt(env, 1); /* list */
3527 if (!(v0224 == v0223)) goto v0225;
3528 v0223 = stack[0];
3529 v0223 = qcdr(v0223);
3530 v0224 = v0223;
3531 goto v0226;
3532
3533 v0226:
3534 v0223 = stack[-2];
3535 v0223 = cons(v0224, v0223);
3536 nil = C_nil;
3537 if (exception_pending()) goto v0175;
3538 env = stack[-3];
3539 stack[-2] = v0223;
3540 v0223 = stack[-1];
3541 v0223 = qcdr(v0223);
3542 stack[-1] = v0223;
3543 goto v0206;
3544
3545 v0225:
3546 v0223 = stack[0];
3547 v0224 = v0223;
3548 goto v0226;
3549
3550 v0184:
3551 v0223 = qvalue(elt(env, 2)); /* nil */
3552 v0224 = v0223;
3553 goto v0056;
3554
3555 v0056:
3556 v0223 = stack[-2];
3557 if (v0223 == nil) { popv(4); return onevalue(v0224); }
3558 v0223 = stack[-2];
3559 v0223 = qcar(v0223);
3560 v0223 = Lappend(nil, v0223, v0224);
3561 nil = C_nil;
3562 if (exception_pending()) goto v0175;
3563 env = stack[-3];
3564 v0224 = v0223;
3565 v0223 = stack[-2];
3566 v0223 = qcdr(v0223);
3567 stack[-2] = v0223;
3568 goto v0056;
3569 /* error exit handlers */
3570 v0175:
3571 popv(4);
3572 return nil;
3573 }
3574
3575
3576
3577 /* Code for eval_uni_poly */
3578
CC_eval_uni_poly(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)3579 static Lisp_Object CC_eval_uni_poly(Lisp_Object env,
3580 Lisp_Object v0000, Lisp_Object v0080)
3581 {
3582 Lisp_Object nil = C_nil;
3583 Lisp_Object v0234, v0235, v0036;
3584 CSL_IGNORE(nil);
3585 #ifdef DEBUG
3586 if (check_env(env)) return aerror("env for eval_uni_poly");
3587 #endif
3588 if (stack >= stacklimit)
3589 {
3590 push2(v0080,v0000);
3591 env = reclaim(env, "stack", GC_STACK, 0);
3592 pop2(v0000,v0080);
3593 nil = C_nil;
3594 if (exception_pending()) return nil;
3595 }
3596 push(env);
3597 /* space for vars preserved across procedure calls */
3598 push4(nil, nil, nil, nil);
3599 /* copy arguments values to proper place */
3600 stack[-1] = v0080;
3601 stack[-2] = v0000;
3602 /* end of prologue */
3603 v0234 = stack[-2];
3604 if (!consp(v0234)) { Lisp_Object res = stack[-2]; popv(5); return onevalue(res); }
3605 v0234 = stack[-2];
3606 v0234 = qcar(v0234);
3607 v0234 = qcdr(v0234);
3608 v0036 = v0234;
3609 v0234 = stack[-2];
3610 v0234 = qcar(v0234);
3611 v0234 = qcar(v0234);
3612 v0234 = qcdr(v0234);
3613 v0235 = v0234;
3614 v0234 = stack[-2];
3615 v0234 = qcdr(v0234);
3616 stack[-2] = v0234;
3617 goto v0236;
3618
3619 v0236:
3620 v0234 = stack[-2];
3621 if (!consp(v0234)) goto v0041;
3622 stack[-3] = v0036;
3623 stack[0] = stack[-1];
3624 v0234 = stack[-2];
3625 v0234 = qcar(v0234);
3626 v0234 = qcar(v0234);
3627 v0234 = qcdr(v0234);
3628 v0234 = difference2(v0235, v0234);
3629 nil = C_nil;
3630 if (exception_pending()) goto v0237;
3631 env = stack[-4];
3632 v0234 = Lexpt(nil, stack[0], v0234);
3633 nil = C_nil;
3634 if (exception_pending()) goto v0237;
3635 env = stack[-4];
3636 v0235 = times2(stack[-3], v0234);
3637 nil = C_nil;
3638 if (exception_pending()) goto v0237;
3639 env = stack[-4];
3640 v0234 = stack[-2];
3641 v0234 = qcar(v0234);
3642 v0234 = qcdr(v0234);
3643 v0234 = plus2(v0235, v0234);
3644 nil = C_nil;
3645 if (exception_pending()) goto v0237;
3646 env = stack[-4];
3647 v0036 = v0234;
3648 v0234 = stack[-2];
3649 v0234 = qcar(v0234);
3650 v0234 = qcar(v0234);
3651 v0234 = qcdr(v0234);
3652 v0235 = v0234;
3653 v0234 = stack[-2];
3654 v0234 = qcdr(v0234);
3655 stack[-2] = v0234;
3656 goto v0236;
3657
3658 v0041:
3659 stack[0] = v0036;
3660 v0234 = stack[-1];
3661 v0234 = Lexpt(nil, v0234, v0235);
3662 nil = C_nil;
3663 if (exception_pending()) goto v0237;
3664 env = stack[-4];
3665 v0234 = times2(stack[0], v0234);
3666 nil = C_nil;
3667 if (exception_pending()) goto v0237;
3668 env = stack[-4];
3669 v0036 = v0234;
3670 v0234 = stack[-2];
3671 if (v0234 == nil) { popv(5); return onevalue(v0036); }
3672 v0235 = v0036;
3673 v0234 = stack[-2];
3674 v0234 = plus2(v0235, v0234);
3675 nil = C_nil;
3676 if (exception_pending()) goto v0237;
3677 v0036 = v0234;
3678 { popv(5); return onevalue(v0036); }
3679 /* error exit handlers */
3680 v0237:
3681 popv(5);
3682 return nil;
3683 }
3684
3685
3686
3687 /* Code for liqsimp1!-check */
3688
CC_liqsimp1Kcheck(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0080,Lisp_Object v0081,...)3689 static Lisp_Object MS_CDECL CC_liqsimp1Kcheck(Lisp_Object env, int nargs,
3690 Lisp_Object v0000, Lisp_Object v0080,
3691 Lisp_Object v0081, ...)
3692 {
3693 Lisp_Object nil = C_nil;
3694 Lisp_Object v0217, v0225;
3695 Lisp_Object fn;
3696 CSL_IGNORE(nil);
3697 argcheck(nargs, 3, "liqsimp1-check");
3698 #ifdef DEBUG
3699 if (check_env(env)) return aerror("env for liqsimp1-check");
3700 #endif
3701 if (stack >= stacklimit)
3702 {
3703 push3(v0081,v0080,v0000);
3704 env = reclaim(env, "stack", GC_STACK, 0);
3705 pop3(v0000,v0080,v0081);
3706 nil = C_nil;
3707 if (exception_pending()) return nil;
3708 }
3709 push(env);
3710 /* space for vars preserved across procedure calls */
3711 push2(nil, nil);
3712 /* copy arguments values to proper place */
3713 v0217 = v0081;
3714 stack[0] = v0080;
3715 stack[-1] = v0000;
3716 /* end of prologue */
3717 v0225 = v0217;
3718 v0217 = elt(env, 1); /* min */
3719 if (v0225 == v0217) goto v0051;
3720 v0225 = stack[-1];
3721 v0217 = stack[0];
3722 {
3723 popv(3);
3724 fn = elt(env, 2); /* liqsimp1!-check1 */
3725 return (*qfn2(fn))(qenv(fn), v0225, v0217);
3726 }
3727
3728 v0051:
3729 v0217 = stack[-1];
3730 v0217 = qcar(v0217);
3731 fn = elt(env, 3); /* negf */
3732 v0225 = (*qfn1(fn))(qenv(fn), v0217);
3733 nil = C_nil;
3734 if (exception_pending()) goto v0222;
3735 env = stack[-2];
3736 v0217 = stack[-1];
3737 v0217 = qcdr(v0217);
3738 v0225 = cons(v0225, v0217);
3739 nil = C_nil;
3740 if (exception_pending()) goto v0222;
3741 env = stack[-2];
3742 v0217 = stack[0];
3743 {
3744 popv(3);
3745 fn = elt(env, 2); /* liqsimp1!-check1 */
3746 return (*qfn2(fn))(qenv(fn), v0225, v0217);
3747 }
3748 /* error exit handlers */
3749 v0222:
3750 popv(3);
3751 return nil;
3752 }
3753
3754
3755
3756 /* Code for rule!-list */
3757
CC_ruleKlist(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)3758 static Lisp_Object CC_ruleKlist(Lisp_Object env,
3759 Lisp_Object v0000, Lisp_Object v0080)
3760 {
3761 Lisp_Object nil = C_nil;
3762 Lisp_Object v0250, v0251, v0252, v0253, v0020;
3763 Lisp_Object fn;
3764 CSL_IGNORE(nil);
3765 #ifdef DEBUG
3766 if (check_env(env)) return aerror("env for rule-list");
3767 #endif
3768 if (stack >= stacklimit)
3769 {
3770 push2(v0080,v0000);
3771 env = reclaim(env, "stack", GC_STACK, 0);
3772 pop2(v0000,v0080);
3773 nil = C_nil;
3774 if (exception_pending()) return nil;
3775 }
3776 push(env);
3777 /* space for vars preserved across procedure calls */
3778 push4(nil, nil, nil, nil);
3779 /* copy arguments values to proper place */
3780 stack[-1] = v0080;
3781 stack[-2] = v0000;
3782 /* end of prologue */
3783
3784 v0189:
3785 v0250 = qvalue(elt(env, 1)); /* nil */
3786 qvalue(elt(env, 2)) = v0250; /* frasc!* */
3787 v0250 = stack[-2];
3788 if (v0250 == nil) goto v0226;
3789 stack[0] = stack[-2];
3790 v0250 = qvalue(elt(env, 1)); /* nil */
3791 v0250 = ncons(v0250);
3792 nil = C_nil;
3793 if (exception_pending()) goto v0014;
3794 env = stack[-4];
3795 v0250 = (equal(stack[0], v0250) ? lisp_true : nil);
3796 goto v0254;
3797
3798 v0254:
3799 if (v0250 == nil) goto v0232;
3800 v0250 = qvalue(elt(env, 1)); /* nil */
3801 qvalue(elt(env, 4)) = v0250; /* mcond!* */
3802 { popv(5); return onevalue(v0250); }
3803
3804 v0232:
3805 v0250 = qvalue(elt(env, 3)); /* t */
3806 qvalue(elt(env, 4)) = v0250; /* mcond!* */
3807 v0250 = stack[-2];
3808 v0250 = qcar(v0250);
3809 stack[-3] = v0250;
3810 v0250 = stack[-3];
3811 if (symbolp(v0250)) goto v0222;
3812 v0250 = stack[-3];
3813 v0251 = qcar(v0250);
3814 v0250 = elt(env, 6); /* list */
3815 if (v0251 == v0250) goto v0255;
3816 v0250 = stack[-3];
3817 v0251 = qcar(v0250);
3818 v0250 = elt(env, 8); /* equal */
3819 if (v0251 == v0250) goto v0174;
3820 v0250 = stack[-3];
3821 v0251 = qcar(v0250);
3822 v0250 = elt(env, 12); /* replaceby */
3823 if (v0251 == v0250) goto v0183;
3824 v0251 = stack[-3];
3825 v0250 = elt(env, 13); /* "rule" */
3826 fn = elt(env, 16); /* typerr */
3827 v0250 = (*qfn2(fn))(qenv(fn), v0251, v0250);
3828 nil = C_nil;
3829 if (exception_pending()) goto v0014;
3830 env = stack[-4];
3831 goto v0183;
3832
3833 v0183:
3834 v0250 = stack[-3];
3835 v0250 = qcdr(v0250);
3836 v0250 = qcar(v0250);
3837 fn = elt(env, 17); /* remove!-free!-vars */
3838 v0250 = (*qfn1(fn))(qenv(fn), v0250);
3839 nil = C_nil;
3840 if (exception_pending()) goto v0014;
3841 env = stack[-4];
3842 stack[0] = v0250;
3843 v0250 = stack[-3];
3844 v0250 = qcdr(v0250);
3845 v0250 = qcdr(v0250);
3846 v0251 = qcar(v0250);
3847 v0250 = elt(env, 14); /* when */
3848 if (!consp(v0251)) goto v0024;
3849 v0251 = qcar(v0251);
3850 if (!(v0251 == v0250)) goto v0024;
3851 v0250 = stack[-3];
3852 v0250 = qcdr(v0250);
3853 v0250 = qcdr(v0250);
3854 v0250 = qcar(v0250);
3855 v0250 = qcdr(v0250);
3856 v0250 = qcdr(v0250);
3857 v0250 = qcar(v0250);
3858 fn = elt(env, 18); /* remove!-free!-vars!* */
3859 v0252 = (*qfn1(fn))(qenv(fn), v0250);
3860 nil = C_nil;
3861 if (exception_pending()) goto v0014;
3862 env = stack[-4];
3863 v0251 = qvalue(elt(env, 1)); /* nil */
3864 v0250 = elt(env, 15); /* algebraic */
3865 fn = elt(env, 19); /* formbool */
3866 v0250 = (*qfnn(fn))(qenv(fn), 3, v0252, v0251, v0250);
3867 nil = C_nil;
3868 if (exception_pending()) goto v0014;
3869 env = stack[-4];
3870 qvalue(elt(env, 4)) = v0250; /* mcond!* */
3871 v0250 = stack[-3];
3872 v0250 = qcdr(v0250);
3873 v0250 = qcdr(v0250);
3874 v0250 = qcar(v0250);
3875 v0250 = qcdr(v0250);
3876 v0250 = qcar(v0250);
3877 fn = elt(env, 18); /* remove!-free!-vars!* */
3878 v0250 = (*qfn1(fn))(qenv(fn), v0250);
3879 nil = C_nil;
3880 if (exception_pending()) goto v0014;
3881 env = stack[-4];
3882 goto v0256;
3883
3884 v0256:
3885 v0020 = stack[0];
3886 v0253 = v0250;
3887 v0252 = qvalue(elt(env, 2)); /* frasc!* */
3888 v0251 = qvalue(elt(env, 4)); /* mcond!* */
3889 v0250 = stack[-1];
3890 fn = elt(env, 20); /* rule!* */
3891 v0250 = (*qfnn(fn))(qenv(fn), 5, v0020, v0253, v0252, v0251, v0250);
3892 nil = C_nil;
3893 if (exception_pending()) goto v0014;
3894 env = stack[-4];
3895 v0250 = stack[-2];
3896 v0250 = qcdr(v0250);
3897 stack[-2] = v0250;
3898 goto v0189;
3899
3900 v0024:
3901 v0250 = stack[-3];
3902 v0250 = qcdr(v0250);
3903 v0250 = qcdr(v0250);
3904 v0250 = qcar(v0250);
3905 fn = elt(env, 18); /* remove!-free!-vars!* */
3906 v0250 = (*qfn1(fn))(qenv(fn), v0250);
3907 nil = C_nil;
3908 if (exception_pending()) goto v0014;
3909 env = stack[-4];
3910 goto v0256;
3911
3912 v0174:
3913 v0250 = qvalue(elt(env, 9)); /* !*msg */
3914 if (v0250 == nil) goto v0183;
3915 v0251 = elt(env, 10); /* "***" */
3916 v0250 = elt(env, 11); /* "Please use => instead of = in rules" */
3917 fn = elt(env, 21); /* lpriw */
3918 v0250 = (*qfn2(fn))(qenv(fn), v0251, v0250);
3919 nil = C_nil;
3920 if (exception_pending()) goto v0014;
3921 env = stack[-4];
3922 goto v0183;
3923
3924 v0255:
3925 v0250 = stack[-3];
3926 v0251 = qcdr(v0250);
3927 v0250 = stack[-2];
3928 v0250 = qcdr(v0250);
3929 v0250 = Lappend(nil, v0251, v0250);
3930 nil = C_nil;
3931 if (exception_pending()) goto v0014;
3932 env = stack[-4];
3933 stack[-2] = v0250;
3934 goto v0189;
3935
3936 v0222:
3937 v0251 = stack[-3];
3938 v0250 = elt(env, 5); /* avalue */
3939 v0250 = get(v0251, v0250);
3940 env = stack[-4];
3941 v0252 = v0250;
3942 if (v0250 == nil) goto v0229;
3943 v0250 = v0252;
3944 v0251 = qcar(v0250);
3945 v0250 = elt(env, 6); /* list */
3946 if (!(v0251 == v0250)) goto v0229;
3947 v0250 = v0252;
3948 v0250 = qcdr(v0250);
3949 v0250 = qcar(v0250);
3950 v0250 = qcdr(v0250);
3951 v0251 = Lreverse(nil, v0250);
3952 nil = C_nil;
3953 if (exception_pending()) goto v0014;
3954 env = stack[-4];
3955 v0250 = stack[-2];
3956 v0250 = qcdr(v0250);
3957 v0250 = Lappend(nil, v0251, v0250);
3958 nil = C_nil;
3959 if (exception_pending()) goto v0014;
3960 env = stack[-4];
3961 stack[-2] = v0250;
3962 goto v0189;
3963
3964 v0229:
3965 v0251 = stack[-3];
3966 v0250 = elt(env, 7); /* "rule list" */
3967 fn = elt(env, 16); /* typerr */
3968 v0250 = (*qfn2(fn))(qenv(fn), v0251, v0250);
3969 nil = C_nil;
3970 if (exception_pending()) goto v0014;
3971 env = stack[-4];
3972 goto v0183;
3973
3974 v0226:
3975 v0250 = qvalue(elt(env, 3)); /* t */
3976 goto v0254;
3977 /* error exit handlers */
3978 v0014:
3979 popv(5);
3980 return nil;
3981 }
3982
3983
3984
3985 /* Code for qqe_prefix!-length */
3986
CC_qqe_prefixKlength(Lisp_Object env,Lisp_Object v0000)3987 static Lisp_Object CC_qqe_prefixKlength(Lisp_Object env,
3988 Lisp_Object v0000)
3989 {
3990 Lisp_Object nil = C_nil;
3991 Lisp_Object v0182, v0057, v0209;
3992 CSL_IGNORE(nil);
3993 #ifdef DEBUG
3994 if (check_env(env)) return aerror("env for qqe_prefix-length");
3995 #endif
3996 if (stack >= stacklimit)
3997 {
3998 push(v0000);
3999 env = reclaim(env, "stack", GC_STACK, 0);
4000 pop(v0000);
4001 nil = C_nil;
4002 if (exception_pending()) return nil;
4003 }
4004 push(env);
4005 /* space for vars preserved across procedure calls */
4006 push(nil);
4007 /* copy arguments values to proper place */
4008 v0057 = v0000;
4009 /* end of prologue */
4010 v0182 = (Lisp_Object)1; /* 0 */
4011 v0209 = v0182;
4012 v0182 = v0057;
4013 if (v0182 == nil) goto v0189;
4014 v0182 = v0057;
4015 stack[0] = v0182;
4016 goto v0212;
4017
4018 v0212:
4019 v0182 = stack[0];
4020 if (v0182 == nil) { popv(2); return onevalue(v0209); }
4021 v0182 = stack[0];
4022 if (!consp(v0182)) { popv(2); return onevalue(v0209); }
4023 v0182 = stack[0];
4024 v0057 = qcar(v0182);
4025 v0182 = elt(env, 2); /* (rtail ltail rhead lhead) */
4026 v0182 = Lmemq(nil, v0057, v0182);
4027 if (v0182 == nil) goto v0082;
4028 v0182 = v0209;
4029 v0182 = add1(v0182);
4030 nil = C_nil;
4031 if (exception_pending()) goto v0120;
4032 env = stack[-1];
4033 v0209 = v0182;
4034 goto v0082;
4035
4036 v0082:
4037 v0182 = stack[0];
4038 v0182 = qcdr(v0182);
4039 v0182 = qcar(v0182);
4040 stack[0] = v0182;
4041 goto v0212;
4042
4043 v0189:
4044 v0182 = qvalue(elt(env, 1)); /* nil */
4045 stack[0] = v0182;
4046 goto v0212;
4047 /* error exit handlers */
4048 v0120:
4049 popv(2);
4050 return nil;
4051 }
4052
4053
4054
4055 /* Code for cpr_buchcrit4t */
4056
CC_cpr_buchcrit4t(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)4057 static Lisp_Object CC_cpr_buchcrit4t(Lisp_Object env,
4058 Lisp_Object v0000, Lisp_Object v0080)
4059 {
4060 Lisp_Object nil = C_nil;
4061 Lisp_Object v0232, v0087;
4062 Lisp_Object fn;
4063 CSL_IGNORE(nil);
4064 #ifdef DEBUG
4065 if (check_env(env)) return aerror("env for cpr_buchcrit4t");
4066 #endif
4067 if (stack >= stacklimit)
4068 {
4069 push2(v0080,v0000);
4070 env = reclaim(env, "stack", GC_STACK, 0);
4071 pop2(v0000,v0080);
4072 nil = C_nil;
4073 if (exception_pending()) return nil;
4074 }
4075 CSL_IGNORE(env);
4076 /* copy arguments values to proper place */
4077 v0232 = v0080;
4078 v0087 = v0000;
4079 /* end of prologue */
4080 fn = elt(env, 1); /* ev_disjointp */
4081 v0232 = (*qfn2(fn))(qenv(fn), v0087, v0232);
4082 errexit();
4083 v0232 = (v0232 == nil ? lisp_true : nil);
4084 return onevalue(v0232);
4085 }
4086
4087
4088
4089 /* Code for rewrite2 */
4090
CC_rewrite2(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)4091 static Lisp_Object CC_rewrite2(Lisp_Object env,
4092 Lisp_Object v0000, Lisp_Object v0080)
4093 {
4094 Lisp_Object nil = C_nil;
4095 Lisp_Object v0045, v0097;
4096 CSL_IGNORE(nil);
4097 #ifdef DEBUG
4098 if (check_env(env)) return aerror("env for rewrite2");
4099 #endif
4100 if (stack >= stacklimit)
4101 {
4102 push2(v0080,v0000);
4103 env = reclaim(env, "stack", GC_STACK, 0);
4104 pop2(v0000,v0080);
4105 nil = C_nil;
4106 if (exception_pending()) return nil;
4107 }
4108 push(env);
4109 /* space for vars preserved across procedure calls */
4110 push4(nil, nil, nil, nil);
4111 /* copy arguments values to proper place */
4112 stack[-2] = v0080;
4113 v0045 = v0000;
4114 /* end of prologue */
4115 stack[-1] = nil;
4116 stack[0] = v0045;
4117 goto v0232;
4118
4119 v0232:
4120 v0045 = stack[0];
4121 if (v0045 == nil) goto v0228;
4122 v0045 = stack[0];
4123 v0045 = qcar(v0045);
4124 v0097 = v0045;
4125 v0045 = v0097;
4126 v0045 = qcdr(v0045);
4127 stack[-3] = v0045;
4128 v0045 = v0097;
4129 v0045 = qcar(v0045);
4130 v0097 = v0045;
4131 v0045 = stack[-2];
4132 v0045 = plus2(v0097, v0045);
4133 nil = C_nil;
4134 if (exception_pending()) goto v0249;
4135 env = stack[-4];
4136 v0097 = v0045;
4137 v0045 = stack[-3];
4138 v0045 = cons(v0097, v0045);
4139 nil = C_nil;
4140 if (exception_pending()) goto v0249;
4141 env = stack[-4];
4142 v0097 = v0045;
4143 v0045 = stack[-1];
4144 v0045 = cons(v0097, v0045);
4145 nil = C_nil;
4146 if (exception_pending()) goto v0249;
4147 env = stack[-4];
4148 stack[-1] = v0045;
4149 v0045 = stack[0];
4150 v0045 = qcdr(v0045);
4151 stack[0] = v0045;
4152 goto v0232;
4153
4154 v0228:
4155 v0045 = stack[-1];
4156 popv(5);
4157 return Lreverse(nil, v0045);
4158 /* error exit handlers */
4159 v0249:
4160 popv(5);
4161 return nil;
4162 }
4163
4164
4165
4166 /* Code for tchscheme2 */
4167
CC_tchscheme2(Lisp_Object env,int nargs,...)4168 static Lisp_Object MS_CDECL CC_tchscheme2(Lisp_Object env, int nargs, ...)
4169 {
4170 Lisp_Object nil = C_nil;
4171 Lisp_Object v0093, v0048;
4172 Lisp_Object fn;
4173 CSL_IGNORE(nil);
4174 argcheck(nargs, 0, "tchscheme2");
4175 #ifdef DEBUG
4176 if (check_env(env)) return aerror("env for tchscheme2");
4177 #endif
4178 if (stack >= stacklimit)
4179 {
4180 env = reclaim(env, "stack", GC_STACK, 0);
4181 nil = C_nil;
4182 if (exception_pending()) return nil;
4183 }
4184 push(env);
4185 /* space for vars preserved across procedure calls */
4186 push(nil);
4187 /* end of prologue */
4188 v0093 = (Lisp_Object)1; /* 0 */
4189 stack[0] = v0093;
4190 goto v0091;
4191
4192 v0091:
4193 v0048 = qvalue(elt(env, 1)); /* rowmax */
4194 v0093 = stack[0];
4195 v0093 = difference2(v0048, v0093);
4196 nil = C_nil;
4197 if (exception_pending()) goto v0083;
4198 env = stack[-1];
4199 v0093 = Lminusp(nil, v0093);
4200 env = stack[-1];
4201 if (v0093 == nil) goto v0189;
4202 v0093 = nil;
4203 { popv(2); return onevalue(v0093); }
4204
4205 v0189:
4206 v0093 = stack[0];
4207 fn = elt(env, 3); /* removechild */
4208 v0093 = (*qfn1(fn))(qenv(fn), v0093);
4209 nil = C_nil;
4210 if (exception_pending()) goto v0083;
4211 env = stack[-1];
4212 v0093 = stack[0];
4213 fn = elt(env, 4); /* to!*scheme */
4214 v0093 = (*qfn1(fn))(qenv(fn), v0093);
4215 nil = C_nil;
4216 if (exception_pending()) goto v0083;
4217 env = stack[-1];
4218 v0093 = stack[0];
4219 v0093 = add1(v0093);
4220 nil = C_nil;
4221 if (exception_pending()) goto v0083;
4222 env = stack[-1];
4223 stack[0] = v0093;
4224 goto v0091;
4225 /* error exit handlers */
4226 v0083:
4227 popv(2);
4228 return nil;
4229 }
4230
4231
4232
4233 /* Code for num */
4234
CC_num(Lisp_Object env,Lisp_Object v0000)4235 static Lisp_Object CC_num(Lisp_Object env,
4236 Lisp_Object v0000)
4237 {
4238 Lisp_Object nil = C_nil;
4239 Lisp_Object v0087, v0091;
4240 Lisp_Object fn;
4241 CSL_IGNORE(nil);
4242 #ifdef DEBUG
4243 if (check_env(env)) return aerror("env for num");
4244 #endif
4245 if (stack >= stacklimit)
4246 {
4247 push(v0000);
4248 env = reclaim(env, "stack", GC_STACK, 0);
4249 pop(v0000);
4250 nil = C_nil;
4251 if (exception_pending()) return nil;
4252 }
4253 push(env);
4254 /* copy arguments values to proper place */
4255 v0087 = v0000;
4256 /* end of prologue */
4257 fn = elt(env, 1); /* simp!* */
4258 v0087 = (*qfn1(fn))(qenv(fn), v0087);
4259 nil = C_nil;
4260 if (exception_pending()) goto v0218;
4261 env = stack[0];
4262 v0091 = qcar(v0087);
4263 v0087 = (Lisp_Object)17; /* 1 */
4264 v0087 = cons(v0091, v0087);
4265 nil = C_nil;
4266 if (exception_pending()) goto v0218;
4267 env = stack[0];
4268 {
4269 popv(1);
4270 fn = elt(env, 2); /* mk!*sq */
4271 return (*qfn1(fn))(qenv(fn), v0087);
4272 }
4273 /* error exit handlers */
4274 v0218:
4275 popv(1);
4276 return nil;
4277 }
4278
4279
4280
4281 /* Code for updkorder */
4282
CC_updkorder(Lisp_Object env,Lisp_Object v0000)4283 static Lisp_Object CC_updkorder(Lisp_Object env,
4284 Lisp_Object v0000)
4285 {
4286 Lisp_Object nil = C_nil;
4287 Lisp_Object v0085, v0086, v0047;
4288 CSL_IGNORE(nil);
4289 #ifdef DEBUG
4290 if (check_env(env)) return aerror("env for updkorder");
4291 #endif
4292 if (stack >= stacklimit)
4293 {
4294 push(v0000);
4295 env = reclaim(env, "stack", GC_STACK, 0);
4296 pop(v0000);
4297 nil = C_nil;
4298 if (exception_pending()) return nil;
4299 }
4300 push(env);
4301 /* space for vars preserved across procedure calls */
4302 push2(nil, nil);
4303 /* copy arguments values to proper place */
4304 v0086 = v0000;
4305 /* end of prologue */
4306 v0085 = qvalue(elt(env, 1)); /* kord!* */
4307 stack[-1] = v0085;
4308 stack[0] = v0086;
4309 v0085 = stack[-1];
4310 v0085 = Ldelete(nil, v0086, v0085);
4311 nil = C_nil;
4312 if (exception_pending()) goto v0217;
4313 env = stack[-2];
4314 v0085 = cons(stack[0], v0085);
4315 nil = C_nil;
4316 if (exception_pending()) goto v0217;
4317 env = stack[-2];
4318 v0047 = v0085;
4319 v0086 = stack[-1];
4320 v0085 = v0047;
4321 if (equal(v0086, v0085)) { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
4322 v0085 = v0047;
4323 qvalue(elt(env, 1)) = v0085; /* kord!* */
4324 v0085 = qvalue(elt(env, 2)); /* nil */
4325 v0085 = ncons(v0085);
4326 nil = C_nil;
4327 if (exception_pending()) goto v0217;
4328 env = stack[-2];
4329 qvalue(elt(env, 3)) = v0085; /* alglist!* */
4330 { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
4331 /* error exit handlers */
4332 v0217:
4333 popv(3);
4334 return nil;
4335 }
4336
4337
4338
4339 /* Code for xadd */
4340
CC_xadd(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0080,Lisp_Object v0081,...)4341 static Lisp_Object MS_CDECL CC_xadd(Lisp_Object env, int nargs,
4342 Lisp_Object v0000, Lisp_Object v0080,
4343 Lisp_Object v0081, ...)
4344 {
4345 Lisp_Object nil = C_nil;
4346 Lisp_Object v0161, v0263;
4347 Lisp_Object fn;
4348 CSL_IGNORE(nil);
4349 argcheck(nargs, 3, "xadd");
4350 #ifdef DEBUG
4351 if (check_env(env)) return aerror("env for xadd");
4352 #endif
4353 if (stack >= stacklimit)
4354 {
4355 push3(v0081,v0080,v0000);
4356 env = reclaim(env, "stack", GC_STACK, 0);
4357 pop3(v0000,v0080,v0081);
4358 nil = C_nil;
4359 if (exception_pending()) return nil;
4360 }
4361 push(env);
4362 /* space for vars preserved across procedure calls */
4363 push4(nil, nil, nil, nil);
4364 /* copy arguments values to proper place */
4365 stack[0] = v0081;
4366 stack[-1] = v0080;
4367 stack[-2] = v0000;
4368 /* end of prologue */
4369 v0161 = stack[-2];
4370 v0263 = qcar(v0161);
4371 v0161 = stack[-1];
4372 v0161 = Lassoc(nil, v0263, v0161);
4373 stack[-3] = v0161;
4374 v0161 = stack[-3];
4375 if (v0161 == nil) goto v0213;
4376 v0161 = stack[0];
4377 if (v0161 == nil) goto v0222;
4378 v0263 = stack[-3];
4379 v0161 = stack[-1];
4380 v0161 = Ldelete(nil, v0263, v0161);
4381 nil = C_nil;
4382 if (exception_pending()) goto v0011;
4383 env = stack[-4];
4384 stack[-1] = v0161;
4385 v0161 = stack[-3];
4386 v0161 = qcdr(v0161);
4387 if (!consp(v0161)) goto v0264;
4388 v0161 = stack[-3];
4389 v0263 = Llength(nil, v0161);
4390 nil = C_nil;
4391 if (exception_pending()) goto v0011;
4392 env = stack[-4];
4393 v0161 = (Lisp_Object)81; /* 5 */
4394 v0161 = (v0263 == v0161 ? lisp_true : nil);
4395 goto v0249;
4396
4397 v0249:
4398 if (v0161 == nil) goto v0115;
4399 v0161 = stack[-3];
4400 v0161 = qcdr(v0161);
4401 stack[-3] = v0161;
4402 goto v0115;
4403
4404 v0115:
4405 v0161 = stack[-3];
4406 v0161 = qcdr(v0161);
4407 if (!consp(v0161)) goto v0177;
4408 v0161 = stack[-3];
4409 v0161 = qcdr(v0161);
4410 v0161 = qcdr(v0161);
4411 v0263 = qcar(v0161);
4412 v0161 = stack[-3];
4413 v0161 = qcdr(v0161);
4414 v0161 = qcar(v0161);
4415 v0161 = qcdr(v0161);
4416 fn = elt(env, 4); /* updoldrules */
4417 v0161 = (*qfn2(fn))(qenv(fn), v0263, v0161);
4418 nil = C_nil;
4419 if (exception_pending()) goto v0011;
4420 env = stack[-4];
4421 goto v0177;
4422
4423 v0177:
4424 v0263 = stack[0];
4425 v0161 = elt(env, 1); /* replace */
4426 if (v0263 == v0161) { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4427 v0263 = stack[-2];
4428 v0161 = stack[-1];
4429 v0161 = cons(v0263, v0161);
4430 nil = C_nil;
4431 if (exception_pending()) goto v0011;
4432 stack[-1] = v0161;
4433 { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4434
4435 v0264:
4436 v0161 = qvalue(elt(env, 2)); /* nil */
4437 goto v0249;
4438
4439 v0222:
4440 v0161 = stack[-3];
4441 v0161 = qcdr(v0161);
4442 if (!consp(v0161)) goto v0265;
4443 v0161 = qvalue(elt(env, 2)); /* nil */
4444 goto v0168;
4445
4446 v0168:
4447 if (v0161 == nil) goto v0266;
4448 v0161 = qvalue(elt(env, 3)); /* t */
4449 goto v0267;
4450
4451 v0267:
4452 if (v0161 == nil) { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4453 v0263 = stack[-3];
4454 v0161 = stack[-1];
4455 v0161 = Ldelete(nil, v0263, v0161);
4456 nil = C_nil;
4457 if (exception_pending()) goto v0011;
4458 stack[-1] = v0161;
4459 { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4460
4461 v0266:
4462 v0161 = stack[-3];
4463 v0161 = qcdr(v0161);
4464 if (!consp(v0161)) goto v0268;
4465 v0161 = stack[-3];
4466 v0161 = qcdr(v0161);
4467 v0263 = qcar(v0161);
4468 v0161 = stack[-2];
4469 v0161 = qcdr(v0161);
4470 v0161 = qcar(v0161);
4471 v0161 = (equal(v0263, v0161) ? lisp_true : nil);
4472 goto v0267;
4473
4474 v0268:
4475 v0161 = qvalue(elt(env, 2)); /* nil */
4476 goto v0267;
4477
4478 v0265:
4479 v0161 = stack[-3];
4480 v0263 = qcdr(v0161);
4481 v0161 = stack[-2];
4482 v0161 = qcdr(v0161);
4483 v0161 = (equal(v0263, v0161) ? lisp_true : nil);
4484 goto v0168;
4485
4486 v0213:
4487 v0161 = stack[0];
4488 if (v0161 == nil) { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4489 v0263 = stack[0];
4490 v0161 = elt(env, 1); /* replace */
4491 if (v0263 == v0161) { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4492 v0263 = stack[-2];
4493 v0161 = stack[-1];
4494 v0161 = cons(v0263, v0161);
4495 nil = C_nil;
4496 if (exception_pending()) goto v0011;
4497 stack[-1] = v0161;
4498 { Lisp_Object res = stack[-1]; popv(5); return onevalue(res); }
4499 /* error exit handlers */
4500 v0011:
4501 popv(5);
4502 return nil;
4503 }
4504
4505
4506
4507 /* Code for liendimcom */
4508
CC_liendimcom(Lisp_Object env,Lisp_Object v0000)4509 static Lisp_Object CC_liendimcom(Lisp_Object env,
4510 Lisp_Object v0000)
4511 {
4512 Lisp_Object nil = C_nil;
4513 Lisp_Object v0482, v0483, v0484, v0485;
4514 Lisp_Object fn;
4515 CSL_IGNORE(nil);
4516 #ifdef DEBUG
4517 if (check_env(env)) return aerror("env for liendimcom");
4518 #endif
4519 if (stack >= stacklimit)
4520 {
4521 push(v0000);
4522 env = reclaim(env, "stack", GC_STACK, 0);
4523 pop(v0000);
4524 nil = C_nil;
4525 if (exception_pending()) return nil;
4526 }
4527 push(env);
4528 /* space for vars preserved across procedure calls */
4529 push5(nil, nil, nil, nil, nil);
4530 push5(nil, nil, nil, nil, nil);
4531 /* copy arguments values to proper place */
4532 stack[-8] = v0000;
4533 /* end of prologue */
4534 v0482 = (Lisp_Object)1; /* 0 */
4535 stack[-9] = v0482;
4536 stack[0] = elt(env, 1); /* lie_dim */
4537 v0482 = (Lisp_Object)1; /* 0 */
4538 fn = elt(env, 15); /* aeval */
4539 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4540 nil = C_nil;
4541 if (exception_pending()) goto v0486;
4542 env = stack[-10];
4543 fn = elt(env, 16); /* setk */
4544 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4545 nil = C_nil;
4546 if (exception_pending()) goto v0486;
4547 env = stack[-10];
4548 v0482 = (Lisp_Object)17; /* 1 */
4549 stack[-3] = v0482;
4550 goto v0092;
4551
4552 v0092:
4553 stack[0] = elt(env, 2); /* difference */
4554 v0484 = elt(env, 2); /* difference */
4555 v0483 = stack[-8];
4556 v0482 = (Lisp_Object)17; /* 1 */
4557 v0482 = list3(v0484, v0483, v0482);
4558 nil = C_nil;
4559 if (exception_pending()) goto v0486;
4560 env = stack[-10];
4561 fn = elt(env, 17); /* aeval!* */
4562 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4563 nil = C_nil;
4564 if (exception_pending()) goto v0486;
4565 env = stack[-10];
4566 v0482 = stack[-3];
4567 v0482 = list3(stack[0], v0483, v0482);
4568 nil = C_nil;
4569 if (exception_pending()) goto v0486;
4570 env = stack[-10];
4571 fn = elt(env, 18); /* aminusp!: */
4572 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4573 nil = C_nil;
4574 if (exception_pending()) goto v0486;
4575 env = stack[-10];
4576 if (v0482 == nil) goto v0051;
4577 v0482 = elt(env, 1); /* lie_dim */
4578 fn = elt(env, 15); /* aeval */
4579 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4580 nil = C_nil;
4581 if (exception_pending()) goto v0486;
4582 env = stack[-10];
4583 v0482 = (Lisp_Object)1; /* 0 */
4584 fn = elt(env, 19); /* evalneq */
4585 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
4586 nil = C_nil;
4587 if (exception_pending()) goto v0486;
4588 env = stack[-10];
4589 if (v0482 == nil) goto v0487;
4590 v0482 = (Lisp_Object)17; /* 1 */
4591 stack[-5] = v0482;
4592 goto v0488;
4593
4594 v0488:
4595 stack[0] = elt(env, 2); /* difference */
4596 v0484 = elt(env, 2); /* difference */
4597 v0483 = stack[-8];
4598 v0482 = (Lisp_Object)17; /* 1 */
4599 v0482 = list3(v0484, v0483, v0482);
4600 nil = C_nil;
4601 if (exception_pending()) goto v0486;
4602 env = stack[-10];
4603 fn = elt(env, 17); /* aeval!* */
4604 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4605 nil = C_nil;
4606 if (exception_pending()) goto v0486;
4607 env = stack[-10];
4608 v0482 = stack[-5];
4609 v0482 = list3(stack[0], v0483, v0482);
4610 nil = C_nil;
4611 if (exception_pending()) goto v0486;
4612 env = stack[-10];
4613 fn = elt(env, 18); /* aminusp!: */
4614 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4615 nil = C_nil;
4616 if (exception_pending()) goto v0486;
4617 env = stack[-10];
4618 if (v0482 == nil) goto v0019;
4619 v0482 = elt(env, 1); /* lie_dim */
4620 fn = elt(env, 15); /* aeval */
4621 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4622 nil = C_nil;
4623 if (exception_pending()) goto v0486;
4624 env = stack[-10];
4625 v0482 = (Lisp_Object)17; /* 1 */
4626 fn = elt(env, 20); /* evalequal */
4627 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
4628 nil = C_nil;
4629 if (exception_pending()) goto v0486;
4630 env = stack[-10];
4631 if (v0482 == nil) goto v0487;
4632 stack[0] = elt(env, 10); /* lie_help */
4633 v0482 = (Lisp_Object)1; /* 0 */
4634 fn = elt(env, 15); /* aeval */
4635 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4636 nil = C_nil;
4637 if (exception_pending()) goto v0486;
4638 env = stack[-10];
4639 fn = elt(env, 16); /* setk */
4640 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4641 nil = C_nil;
4642 if (exception_pending()) goto v0486;
4643 env = stack[-10];
4644 v0482 = (Lisp_Object)17; /* 1 */
4645 stack[-6] = v0482;
4646 goto v0489;
4647
4648 v0489:
4649 stack[0] = elt(env, 2); /* difference */
4650 v0482 = stack[-8];
4651 fn = elt(env, 17); /* aeval!* */
4652 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4653 nil = C_nil;
4654 if (exception_pending()) goto v0486;
4655 env = stack[-10];
4656 v0482 = stack[-6];
4657 v0482 = list3(stack[0], v0483, v0482);
4658 nil = C_nil;
4659 if (exception_pending()) goto v0486;
4660 env = stack[-10];
4661 fn = elt(env, 18); /* aminusp!: */
4662 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4663 nil = C_nil;
4664 if (exception_pending()) goto v0486;
4665 env = stack[-10];
4666 if (v0482 == nil) goto v0490;
4667 v0482 = (Lisp_Object)17; /* 1 */
4668 stack[-1] = v0482;
4669 goto v0491;
4670
4671 v0491:
4672 stack[0] = elt(env, 2); /* difference */
4673 v0482 = stack[-8];
4674 fn = elt(env, 17); /* aeval!* */
4675 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4676 nil = C_nil;
4677 if (exception_pending()) goto v0486;
4678 env = stack[-10];
4679 v0482 = stack[-1];
4680 v0482 = list3(stack[0], v0483, v0482);
4681 nil = C_nil;
4682 if (exception_pending()) goto v0486;
4683 env = stack[-10];
4684 fn = elt(env, 18); /* aminusp!: */
4685 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4686 nil = C_nil;
4687 if (exception_pending()) goto v0486;
4688 env = stack[-10];
4689 if (v0482 == nil) goto v0492;
4690 v0482 = elt(env, 10); /* lie_help */
4691 fn = elt(env, 15); /* aeval */
4692 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4693 nil = C_nil;
4694 if (exception_pending()) goto v0486;
4695 env = stack[-10];
4696 v0482 = (Lisp_Object)1; /* 0 */
4697 fn = elt(env, 20); /* evalequal */
4698 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
4699 nil = C_nil;
4700 if (exception_pending()) goto v0486;
4701 env = stack[-10];
4702 if (v0482 == nil) goto v0493;
4703 v0484 = elt(env, 12); /* lientrans */
4704 v0483 = (Lisp_Object)33; /* 2 */
4705 v0482 = elt(env, 5); /* lie_p */
4706 stack[-1] = list3(v0484, v0483, v0482);
4707 nil = C_nil;
4708 if (exception_pending()) goto v0486;
4709 env = stack[-10];
4710 v0484 = elt(env, 12); /* lientrans */
4711 v0483 = (Lisp_Object)49; /* 3 */
4712 v0482 = elt(env, 6); /* lie_q */
4713 stack[0] = list3(v0484, v0483, v0482);
4714 nil = C_nil;
4715 if (exception_pending()) goto v0486;
4716 env = stack[-10];
4717 v0482 = (Lisp_Object)17; /* 1 */
4718 fn = elt(env, 15); /* aeval */
4719 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4720 nil = C_nil;
4721 if (exception_pending()) goto v0486;
4722 env = stack[-10];
4723 fn = elt(env, 16); /* setk */
4724 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4725 nil = C_nil;
4726 if (exception_pending()) goto v0486;
4727 env = stack[-10];
4728 fn = elt(env, 16); /* setk */
4729 v0482 = (*qfn2(fn))(qenv(fn), stack[-1], v0482);
4730 nil = C_nil;
4731 if (exception_pending()) goto v0486;
4732 env = stack[-10];
4733 stack[0] = elt(env, 13); /* lie_kk!* */
4734 v0482 = (Lisp_Object)17; /* 1 */
4735 fn = elt(env, 15); /* aeval */
4736 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4737 nil = C_nil;
4738 if (exception_pending()) goto v0486;
4739 env = stack[-10];
4740 fn = elt(env, 16); /* setk */
4741 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4742 nil = C_nil;
4743 if (exception_pending()) goto v0486;
4744 env = stack[-10];
4745 v0482 = (Lisp_Object)17; /* 1 */
4746 stack[-1] = v0482;
4747 goto v0494;
4748
4749 v0494:
4750 stack[0] = elt(env, 2); /* difference */
4751 v0482 = stack[-8];
4752 fn = elt(env, 17); /* aeval!* */
4753 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4754 nil = C_nil;
4755 if (exception_pending()) goto v0486;
4756 env = stack[-10];
4757 v0482 = stack[-1];
4758 v0482 = list3(stack[0], v0483, v0482);
4759 nil = C_nil;
4760 if (exception_pending()) goto v0486;
4761 env = stack[-10];
4762 fn = elt(env, 18); /* aminusp!: */
4763 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4764 nil = C_nil;
4765 if (exception_pending()) goto v0486;
4766 env = stack[-10];
4767 if (!(v0482 == nil)) goto v0487;
4768 v0485 = elt(env, 4); /* lie_cc */
4769 v0484 = elt(env, 5); /* lie_p */
4770 v0483 = elt(env, 6); /* lie_q */
4771 v0482 = stack[-1];
4772 v0482 = list4(v0485, v0484, v0483, v0482);
4773 nil = C_nil;
4774 if (exception_pending()) goto v0486;
4775 env = stack[-10];
4776 fn = elt(env, 17); /* aeval!* */
4777 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4778 nil = C_nil;
4779 if (exception_pending()) goto v0486;
4780 env = stack[-10];
4781 v0482 = (Lisp_Object)1; /* 0 */
4782 fn = elt(env, 19); /* evalneq */
4783 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
4784 nil = C_nil;
4785 if (exception_pending()) goto v0486;
4786 env = stack[-10];
4787 if (v0482 == nil) goto v0495;
4788 stack[0] = stack[-1];
4789 v0482 = elt(env, 5); /* lie_p */
4790 fn = elt(env, 17); /* aeval!* */
4791 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4792 nil = C_nil;
4793 if (exception_pending()) goto v0486;
4794 env = stack[-10];
4795 fn = elt(env, 19); /* evalneq */
4796 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4797 nil = C_nil;
4798 if (exception_pending()) goto v0486;
4799 env = stack[-10];
4800 if (v0482 == nil) goto v0495;
4801 stack[0] = stack[-1];
4802 v0482 = elt(env, 6); /* lie_q */
4803 fn = elt(env, 17); /* aeval!* */
4804 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4805 nil = C_nil;
4806 if (exception_pending()) goto v0486;
4807 env = stack[-10];
4808 fn = elt(env, 19); /* evalneq */
4809 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4810 nil = C_nil;
4811 if (exception_pending()) goto v0486;
4812 env = stack[-10];
4813 if (v0482 == nil) goto v0495;
4814 stack[0] = elt(env, 14); /* lie_tt */
4815 v0482 = stack[-1];
4816 fn = elt(env, 17); /* aeval!* */
4817 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4818 nil = C_nil;
4819 if (exception_pending()) goto v0486;
4820 env = stack[-10];
4821 fn = elt(env, 16); /* setk */
4822 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4823 nil = C_nil;
4824 if (exception_pending()) goto v0486;
4825 env = stack[-10];
4826 v0484 = elt(env, 7); /* plus */
4827 v0483 = stack[-8];
4828 v0482 = (Lisp_Object)17; /* 1 */
4829 v0482 = list3(v0484, v0483, v0482);
4830 nil = C_nil;
4831 if (exception_pending()) goto v0486;
4832 env = stack[-10];
4833 fn = elt(env, 17); /* aeval!* */
4834 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4835 nil = C_nil;
4836 if (exception_pending()) goto v0486;
4837 env = stack[-10];
4838 stack[-1] = v0482;
4839 goto v0495;
4840
4841 v0495:
4842 v0482 = stack[-1];
4843 v0484 = elt(env, 7); /* plus */
4844 v0483 = v0482;
4845 v0482 = (Lisp_Object)17; /* 1 */
4846 v0482 = list3(v0484, v0483, v0482);
4847 nil = C_nil;
4848 if (exception_pending()) goto v0486;
4849 env = stack[-10];
4850 fn = elt(env, 17); /* aeval!* */
4851 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4852 nil = C_nil;
4853 if (exception_pending()) goto v0486;
4854 env = stack[-10];
4855 stack[-1] = v0482;
4856 goto v0494;
4857
4858 v0487:
4859 v0482 = nil;
4860 { popv(11); return onevalue(v0482); }
4861
4862 v0493:
4863 v0484 = elt(env, 12); /* lientrans */
4864 v0483 = (Lisp_Object)33; /* 2 */
4865 v0482 = elt(env, 11); /* lie_s */
4866 stack[-7] = list3(v0484, v0483, v0482);
4867 nil = C_nil;
4868 if (exception_pending()) goto v0486;
4869 env = stack[-10];
4870 stack[-6] = elt(env, 8); /* quotient */
4871 v0485 = elt(env, 4); /* lie_cc */
4872 v0484 = elt(env, 5); /* lie_p */
4873 v0483 = elt(env, 6); /* lie_q */
4874 v0482 = stack[-9];
4875 stack[-5] = list4(v0485, v0484, v0483, v0482);
4876 nil = C_nil;
4877 if (exception_pending()) goto v0486;
4878 env = stack[-10];
4879 v0482 = (Lisp_Object)17; /* 1 */
4880 stack[-4] = v0482;
4881 v0482 = (Lisp_Object)1; /* 0 */
4882 stack[-3] = v0482;
4883 goto v0496;
4884
4885 v0496:
4886 stack[0] = elt(env, 2); /* difference */
4887 v0482 = stack[-8];
4888 fn = elt(env, 17); /* aeval!* */
4889 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4890 nil = C_nil;
4891 if (exception_pending()) goto v0486;
4892 env = stack[-10];
4893 v0482 = stack[-4];
4894 v0482 = list3(stack[0], v0483, v0482);
4895 nil = C_nil;
4896 if (exception_pending()) goto v0486;
4897 env = stack[-10];
4898 fn = elt(env, 18); /* aminusp!: */
4899 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4900 nil = C_nil;
4901 if (exception_pending()) goto v0486;
4902 env = stack[-10];
4903 if (v0482 == nil) goto v0497;
4904 v0482 = stack[-3];
4905 v0482 = list3(stack[-6], stack[-5], v0482);
4906 nil = C_nil;
4907 if (exception_pending()) goto v0486;
4908 env = stack[-10];
4909 fn = elt(env, 15); /* aeval */
4910 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4911 nil = C_nil;
4912 if (exception_pending()) goto v0486;
4913 env = stack[-10];
4914 fn = elt(env, 16); /* setk */
4915 v0482 = (*qfn2(fn))(qenv(fn), stack[-7], v0482);
4916 nil = C_nil;
4917 if (exception_pending()) goto v0486;
4918 env = stack[-10];
4919 v0482 = (Lisp_Object)17; /* 1 */
4920 stack[-1] = v0482;
4921 goto v0498;
4922
4923 v0498:
4924 stack[0] = elt(env, 2); /* difference */
4925 v0482 = stack[-8];
4926 fn = elt(env, 17); /* aeval!* */
4927 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4928 nil = C_nil;
4929 if (exception_pending()) goto v0486;
4930 env = stack[-10];
4931 v0482 = stack[-1];
4932 v0482 = list3(stack[0], v0483, v0482);
4933 nil = C_nil;
4934 if (exception_pending()) goto v0486;
4935 env = stack[-10];
4936 fn = elt(env, 18); /* aminusp!: */
4937 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4938 nil = C_nil;
4939 if (exception_pending()) goto v0486;
4940 env = stack[-10];
4941 if (!(v0482 == nil)) goto v0487;
4942 v0485 = elt(env, 4); /* lie_cc */
4943 v0484 = elt(env, 5); /* lie_p */
4944 v0483 = elt(env, 6); /* lie_q */
4945 v0482 = stack[-1];
4946 v0482 = list4(v0485, v0484, v0483, v0482);
4947 nil = C_nil;
4948 if (exception_pending()) goto v0486;
4949 env = stack[-10];
4950 fn = elt(env, 17); /* aeval!* */
4951 v0483 = (*qfn1(fn))(qenv(fn), v0482);
4952 nil = C_nil;
4953 if (exception_pending()) goto v0486;
4954 env = stack[-10];
4955 v0482 = (Lisp_Object)1; /* 0 */
4956 fn = elt(env, 19); /* evalneq */
4957 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
4958 nil = C_nil;
4959 if (exception_pending()) goto v0486;
4960 env = stack[-10];
4961 if (v0482 == nil) goto v0499;
4962 stack[0] = stack[-1];
4963 v0482 = elt(env, 11); /* lie_s */
4964 fn = elt(env, 17); /* aeval!* */
4965 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4966 nil = C_nil;
4967 if (exception_pending()) goto v0486;
4968 env = stack[-10];
4969 fn = elt(env, 19); /* evalneq */
4970 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4971 nil = C_nil;
4972 if (exception_pending()) goto v0486;
4973 env = stack[-10];
4974 if (v0482 == nil) goto v0499;
4975 stack[0] = elt(env, 14); /* lie_tt */
4976 v0482 = stack[-1];
4977 fn = elt(env, 17); /* aeval!* */
4978 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4979 nil = C_nil;
4980 if (exception_pending()) goto v0486;
4981 env = stack[-10];
4982 fn = elt(env, 16); /* setk */
4983 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
4984 nil = C_nil;
4985 if (exception_pending()) goto v0486;
4986 env = stack[-10];
4987 v0484 = elt(env, 7); /* plus */
4988 v0483 = stack[-8];
4989 v0482 = (Lisp_Object)17; /* 1 */
4990 v0482 = list3(v0484, v0483, v0482);
4991 nil = C_nil;
4992 if (exception_pending()) goto v0486;
4993 env = stack[-10];
4994 fn = elt(env, 17); /* aeval!* */
4995 v0482 = (*qfn1(fn))(qenv(fn), v0482);
4996 nil = C_nil;
4997 if (exception_pending()) goto v0486;
4998 env = stack[-10];
4999 stack[-1] = v0482;
5000 goto v0499;
5001
5002 v0499:
5003 v0482 = stack[-1];
5004 v0484 = elt(env, 7); /* plus */
5005 v0483 = v0482;
5006 v0482 = (Lisp_Object)17; /* 1 */
5007 v0482 = list3(v0484, v0483, v0482);
5008 nil = C_nil;
5009 if (exception_pending()) goto v0486;
5010 env = stack[-10];
5011 fn = elt(env, 17); /* aeval!* */
5012 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5013 nil = C_nil;
5014 if (exception_pending()) goto v0486;
5015 env = stack[-10];
5016 stack[-1] = v0482;
5017 goto v0498;
5018
5019 v0497:
5020 stack[-2] = elt(env, 7); /* plus */
5021 stack[-1] = elt(env, 9); /* times */
5022 v0485 = elt(env, 4); /* lie_cc */
5023 v0484 = elt(env, 5); /* lie_p */
5024 v0483 = elt(env, 6); /* lie_q */
5025 v0482 = stack[-4];
5026 stack[0] = list4(v0485, v0484, v0483, v0482);
5027 nil = C_nil;
5028 if (exception_pending()) goto v0486;
5029 env = stack[-10];
5030 v0485 = elt(env, 4); /* lie_cc */
5031 v0484 = stack[-4];
5032 v0483 = elt(env, 11); /* lie_s */
5033 v0482 = stack[-9];
5034 v0482 = list4(v0485, v0484, v0483, v0482);
5035 nil = C_nil;
5036 if (exception_pending()) goto v0486;
5037 env = stack[-10];
5038 v0482 = list3(stack[-1], stack[0], v0482);
5039 nil = C_nil;
5040 if (exception_pending()) goto v0486;
5041 env = stack[-10];
5042 fn = elt(env, 17); /* aeval!* */
5043 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5044 nil = C_nil;
5045 if (exception_pending()) goto v0486;
5046 env = stack[-10];
5047 v0482 = stack[-3];
5048 v0482 = list3(stack[-2], v0483, v0482);
5049 nil = C_nil;
5050 if (exception_pending()) goto v0486;
5051 env = stack[-10];
5052 fn = elt(env, 17); /* aeval!* */
5053 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5054 nil = C_nil;
5055 if (exception_pending()) goto v0486;
5056 env = stack[-10];
5057 stack[-3] = v0482;
5058 v0482 = stack[-4];
5059 v0484 = elt(env, 7); /* plus */
5060 v0483 = v0482;
5061 v0482 = (Lisp_Object)17; /* 1 */
5062 v0482 = list3(v0484, v0483, v0482);
5063 nil = C_nil;
5064 if (exception_pending()) goto v0486;
5065 env = stack[-10];
5066 fn = elt(env, 17); /* aeval!* */
5067 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5068 nil = C_nil;
5069 if (exception_pending()) goto v0486;
5070 env = stack[-10];
5071 stack[-4] = v0482;
5072 goto v0496;
5073
5074 v0492:
5075 v0484 = elt(env, 12); /* lientrans */
5076 v0483 = (Lisp_Object)17; /* 1 */
5077 v0482 = stack[-1];
5078 stack[0] = list3(v0484, v0483, v0482);
5079 nil = C_nil;
5080 if (exception_pending()) goto v0486;
5081 env = stack[-10];
5082 v0485 = elt(env, 4); /* lie_cc */
5083 v0484 = elt(env, 5); /* lie_p */
5084 v0483 = elt(env, 6); /* lie_q */
5085 v0482 = stack[-1];
5086 v0482 = list4(v0485, v0484, v0483, v0482);
5087 nil = C_nil;
5088 if (exception_pending()) goto v0486;
5089 env = stack[-10];
5090 fn = elt(env, 17); /* aeval!* */
5091 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5092 nil = C_nil;
5093 if (exception_pending()) goto v0486;
5094 env = stack[-10];
5095 fn = elt(env, 16); /* setk */
5096 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5097 nil = C_nil;
5098 if (exception_pending()) goto v0486;
5099 env = stack[-10];
5100 v0482 = stack[-1];
5101 v0484 = elt(env, 7); /* plus */
5102 v0483 = v0482;
5103 v0482 = (Lisp_Object)17; /* 1 */
5104 v0482 = list3(v0484, v0483, v0482);
5105 nil = C_nil;
5106 if (exception_pending()) goto v0486;
5107 env = stack[-10];
5108 fn = elt(env, 17); /* aeval!* */
5109 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5110 nil = C_nil;
5111 if (exception_pending()) goto v0486;
5112 env = stack[-10];
5113 stack[-1] = v0482;
5114 goto v0491;
5115
5116 v0490:
5117 v0482 = (Lisp_Object)17; /* 1 */
5118 stack[-5] = v0482;
5119 goto v0205;
5120
5121 v0205:
5122 stack[0] = elt(env, 2); /* difference */
5123 v0482 = stack[-8];
5124 fn = elt(env, 17); /* aeval!* */
5125 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5126 nil = C_nil;
5127 if (exception_pending()) goto v0486;
5128 env = stack[-10];
5129 v0482 = stack[-5];
5130 v0482 = list3(stack[0], v0483, v0482);
5131 nil = C_nil;
5132 if (exception_pending()) goto v0486;
5133 env = stack[-10];
5134 fn = elt(env, 18); /* aminusp!: */
5135 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5136 nil = C_nil;
5137 if (exception_pending()) goto v0486;
5138 env = stack[-10];
5139 if (v0482 == nil) goto v0500;
5140 v0482 = stack[-6];
5141 v0484 = elt(env, 7); /* plus */
5142 v0483 = v0482;
5143 v0482 = (Lisp_Object)17; /* 1 */
5144 v0482 = list3(v0484, v0483, v0482);
5145 nil = C_nil;
5146 if (exception_pending()) goto v0486;
5147 env = stack[-10];
5148 fn = elt(env, 17); /* aeval!* */
5149 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5150 nil = C_nil;
5151 if (exception_pending()) goto v0486;
5152 env = stack[-10];
5153 stack[-6] = v0482;
5154 goto v0489;
5155
5156 v0500:
5157 v0482 = (Lisp_Object)17; /* 1 */
5158 stack[-4] = v0482;
5159 v0482 = (Lisp_Object)1; /* 0 */
5160 stack[-3] = v0482;
5161 goto v0501;
5162
5163 v0501:
5164 stack[0] = elt(env, 2); /* difference */
5165 v0482 = stack[-8];
5166 fn = elt(env, 17); /* aeval!* */
5167 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5168 nil = C_nil;
5169 if (exception_pending()) goto v0486;
5170 env = stack[-10];
5171 v0482 = stack[-4];
5172 v0482 = list3(stack[0], v0483, v0482);
5173 nil = C_nil;
5174 if (exception_pending()) goto v0486;
5175 env = stack[-10];
5176 fn = elt(env, 18); /* aminusp!: */
5177 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5178 nil = C_nil;
5179 if (exception_pending()) goto v0486;
5180 env = stack[-10];
5181 if (v0482 == nil) goto v0502;
5182 v0482 = stack[-3];
5183 v0483 = v0482;
5184 v0482 = (Lisp_Object)1; /* 0 */
5185 fn = elt(env, 19); /* evalneq */
5186 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
5187 nil = C_nil;
5188 if (exception_pending()) goto v0486;
5189 env = stack[-10];
5190 if (v0482 == nil) goto v0503;
5191 stack[0] = elt(env, 10); /* lie_help */
5192 v0482 = (Lisp_Object)17; /* 1 */
5193 fn = elt(env, 17); /* aeval!* */
5194 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5195 nil = C_nil;
5196 if (exception_pending()) goto v0486;
5197 env = stack[-10];
5198 fn = elt(env, 16); /* setk */
5199 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5200 nil = C_nil;
5201 if (exception_pending()) goto v0486;
5202 env = stack[-10];
5203 stack[0] = elt(env, 11); /* lie_s */
5204 v0482 = stack[-6];
5205 fn = elt(env, 17); /* aeval!* */
5206 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5207 nil = C_nil;
5208 if (exception_pending()) goto v0486;
5209 env = stack[-10];
5210 fn = elt(env, 16); /* setk */
5211 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5212 nil = C_nil;
5213 if (exception_pending()) goto v0486;
5214 env = stack[-10];
5215 v0482 = stack[-5];
5216 fn = elt(env, 17); /* aeval!* */
5217 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5218 nil = C_nil;
5219 if (exception_pending()) goto v0486;
5220 env = stack[-10];
5221 stack[-9] = v0482;
5222 v0484 = elt(env, 7); /* plus */
5223 v0483 = stack[-8];
5224 v0482 = (Lisp_Object)17; /* 1 */
5225 v0482 = list3(v0484, v0483, v0482);
5226 nil = C_nil;
5227 if (exception_pending()) goto v0486;
5228 env = stack[-10];
5229 fn = elt(env, 17); /* aeval!* */
5230 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5231 nil = C_nil;
5232 if (exception_pending()) goto v0486;
5233 env = stack[-10];
5234 stack[-5] = v0482;
5235 stack[-6] = v0482;
5236 goto v0503;
5237
5238 v0503:
5239 v0482 = stack[-5];
5240 v0484 = elt(env, 7); /* plus */
5241 v0483 = v0482;
5242 v0482 = (Lisp_Object)17; /* 1 */
5243 v0482 = list3(v0484, v0483, v0482);
5244 nil = C_nil;
5245 if (exception_pending()) goto v0486;
5246 env = stack[-10];
5247 fn = elt(env, 17); /* aeval!* */
5248 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5249 nil = C_nil;
5250 if (exception_pending()) goto v0486;
5251 env = stack[-10];
5252 stack[-5] = v0482;
5253 goto v0205;
5254
5255 v0502:
5256 stack[-2] = elt(env, 7); /* plus */
5257 stack[-1] = elt(env, 9); /* times */
5258 v0485 = elt(env, 4); /* lie_cc */
5259 v0484 = elt(env, 5); /* lie_p */
5260 v0483 = elt(env, 6); /* lie_q */
5261 v0482 = stack[-4];
5262 stack[0] = list4(v0485, v0484, v0483, v0482);
5263 nil = C_nil;
5264 if (exception_pending()) goto v0486;
5265 env = stack[-10];
5266 v0485 = elt(env, 4); /* lie_cc */
5267 v0484 = stack[-4];
5268 v0483 = stack[-6];
5269 v0482 = stack[-5];
5270 v0482 = list4(v0485, v0484, v0483, v0482);
5271 nil = C_nil;
5272 if (exception_pending()) goto v0486;
5273 env = stack[-10];
5274 v0482 = list3(stack[-1], stack[0], v0482);
5275 nil = C_nil;
5276 if (exception_pending()) goto v0486;
5277 env = stack[-10];
5278 fn = elt(env, 17); /* aeval!* */
5279 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5280 nil = C_nil;
5281 if (exception_pending()) goto v0486;
5282 env = stack[-10];
5283 v0482 = stack[-3];
5284 v0482 = list3(stack[-2], v0483, v0482);
5285 nil = C_nil;
5286 if (exception_pending()) goto v0486;
5287 env = stack[-10];
5288 fn = elt(env, 17); /* aeval!* */
5289 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5290 nil = C_nil;
5291 if (exception_pending()) goto v0486;
5292 env = stack[-10];
5293 stack[-3] = v0482;
5294 v0482 = stack[-4];
5295 v0484 = elt(env, 7); /* plus */
5296 v0483 = v0482;
5297 v0482 = (Lisp_Object)17; /* 1 */
5298 v0482 = list3(v0484, v0483, v0482);
5299 nil = C_nil;
5300 if (exception_pending()) goto v0486;
5301 env = stack[-10];
5302 fn = elt(env, 17); /* aeval!* */
5303 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5304 nil = C_nil;
5305 if (exception_pending()) goto v0486;
5306 env = stack[-10];
5307 stack[-4] = v0482;
5308 goto v0501;
5309
5310 v0019:
5311 v0482 = (Lisp_Object)17; /* 1 */
5312 stack[-4] = v0482;
5313 goto v0504;
5314
5315 v0504:
5316 stack[0] = elt(env, 2); /* difference */
5317 v0482 = stack[-8];
5318 fn = elt(env, 17); /* aeval!* */
5319 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5320 nil = C_nil;
5321 if (exception_pending()) goto v0486;
5322 env = stack[-10];
5323 v0482 = stack[-4];
5324 v0482 = list3(stack[0], v0483, v0482);
5325 nil = C_nil;
5326 if (exception_pending()) goto v0486;
5327 env = stack[-10];
5328 fn = elt(env, 18); /* aminusp!: */
5329 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5330 nil = C_nil;
5331 if (exception_pending()) goto v0486;
5332 env = stack[-10];
5333 if (v0482 == nil) goto v0004;
5334 v0482 = stack[-5];
5335 v0484 = elt(env, 7); /* plus */
5336 v0483 = v0482;
5337 v0482 = (Lisp_Object)17; /* 1 */
5338 v0482 = list3(v0484, v0483, v0482);
5339 nil = C_nil;
5340 if (exception_pending()) goto v0486;
5341 env = stack[-10];
5342 fn = elt(env, 17); /* aeval!* */
5343 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5344 nil = C_nil;
5345 if (exception_pending()) goto v0486;
5346 env = stack[-10];
5347 stack[-5] = v0482;
5348 goto v0488;
5349
5350 v0004:
5351 stack[-1] = elt(env, 8); /* quotient */
5352 v0485 = elt(env, 4); /* lie_cc */
5353 v0484 = stack[-5];
5354 v0483 = stack[-4];
5355 v0482 = stack[-9];
5356 stack[0] = list4(v0485, v0484, v0483, v0482);
5357 nil = C_nil;
5358 if (exception_pending()) goto v0486;
5359 env = stack[-10];
5360 v0485 = elt(env, 4); /* lie_cc */
5361 v0484 = elt(env, 5); /* lie_p */
5362 v0483 = elt(env, 6); /* lie_q */
5363 v0482 = stack[-9];
5364 v0482 = list4(v0485, v0484, v0483, v0482);
5365 nil = C_nil;
5366 if (exception_pending()) goto v0486;
5367 env = stack[-10];
5368 v0482 = list3(stack[-1], stack[0], v0482);
5369 nil = C_nil;
5370 if (exception_pending()) goto v0486;
5371 env = stack[-10];
5372 fn = elt(env, 17); /* aeval!* */
5373 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5374 nil = C_nil;
5375 if (exception_pending()) goto v0486;
5376 env = stack[-10];
5377 stack[-6] = v0482;
5378 v0482 = (Lisp_Object)17; /* 1 */
5379 stack[-3] = v0482;
5380 goto v0505;
5381
5382 v0505:
5383 stack[0] = elt(env, 2); /* difference */
5384 v0482 = stack[-8];
5385 fn = elt(env, 17); /* aeval!* */
5386 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5387 nil = C_nil;
5388 if (exception_pending()) goto v0486;
5389 env = stack[-10];
5390 v0482 = stack[-3];
5391 v0482 = list3(stack[0], v0483, v0482);
5392 nil = C_nil;
5393 if (exception_pending()) goto v0486;
5394 env = stack[-10];
5395 fn = elt(env, 18); /* aminusp!: */
5396 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5397 nil = C_nil;
5398 if (exception_pending()) goto v0486;
5399 env = stack[-10];
5400 if (v0482 == nil) goto v0506;
5401 v0482 = stack[-4];
5402 v0484 = elt(env, 7); /* plus */
5403 v0483 = v0482;
5404 v0482 = (Lisp_Object)17; /* 1 */
5405 v0482 = list3(v0484, v0483, v0482);
5406 nil = C_nil;
5407 if (exception_pending()) goto v0486;
5408 env = stack[-10];
5409 fn = elt(env, 17); /* aeval!* */
5410 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5411 nil = C_nil;
5412 if (exception_pending()) goto v0486;
5413 env = stack[-10];
5414 stack[-4] = v0482;
5415 goto v0504;
5416
5417 v0506:
5418 v0485 = elt(env, 4); /* lie_cc */
5419 v0484 = stack[-5];
5420 v0483 = stack[-4];
5421 v0482 = stack[-3];
5422 v0482 = list4(v0485, v0484, v0483, v0482);
5423 nil = C_nil;
5424 if (exception_pending()) goto v0486;
5425 env = stack[-10];
5426 fn = elt(env, 17); /* aeval!* */
5427 stack[-2] = (*qfn1(fn))(qenv(fn), v0482);
5428 nil = C_nil;
5429 if (exception_pending()) goto v0486;
5430 env = stack[-10];
5431 stack[-1] = elt(env, 9); /* times */
5432 stack[0] = stack[-6];
5433 v0485 = elt(env, 4); /* lie_cc */
5434 v0484 = elt(env, 5); /* lie_p */
5435 v0483 = elt(env, 6); /* lie_q */
5436 v0482 = stack[-3];
5437 v0482 = list4(v0485, v0484, v0483, v0482);
5438 nil = C_nil;
5439 if (exception_pending()) goto v0486;
5440 env = stack[-10];
5441 v0482 = list3(stack[-1], stack[0], v0482);
5442 nil = C_nil;
5443 if (exception_pending()) goto v0486;
5444 env = stack[-10];
5445 fn = elt(env, 17); /* aeval!* */
5446 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5447 nil = C_nil;
5448 if (exception_pending()) goto v0486;
5449 env = stack[-10];
5450 fn = elt(env, 19); /* evalneq */
5451 v0482 = (*qfn2(fn))(qenv(fn), stack[-2], v0482);
5452 nil = C_nil;
5453 if (exception_pending()) goto v0486;
5454 env = stack[-10];
5455 if (v0482 == nil) goto v0507;
5456 stack[0] = elt(env, 1); /* lie_dim */
5457 v0482 = (Lisp_Object)33; /* 2 */
5458 fn = elt(env, 17); /* aeval!* */
5459 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5460 nil = C_nil;
5461 if (exception_pending()) goto v0486;
5462 env = stack[-10];
5463 fn = elt(env, 16); /* setk */
5464 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5465 nil = C_nil;
5466 if (exception_pending()) goto v0486;
5467 env = stack[-10];
5468 v0482 = stack[-8];
5469 fn = elt(env, 17); /* aeval!* */
5470 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5471 nil = C_nil;
5472 if (exception_pending()) goto v0486;
5473 env = stack[-10];
5474 stack[-5] = v0482;
5475 v0484 = elt(env, 7); /* plus */
5476 v0483 = stack[-8];
5477 v0482 = (Lisp_Object)17; /* 1 */
5478 v0482 = list3(v0484, v0483, v0482);
5479 nil = C_nil;
5480 if (exception_pending()) goto v0486;
5481 env = stack[-10];
5482 fn = elt(env, 17); /* aeval!* */
5483 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5484 nil = C_nil;
5485 if (exception_pending()) goto v0486;
5486 env = stack[-10];
5487 stack[-4] = v0482;
5488 v0484 = elt(env, 7); /* plus */
5489 v0483 = stack[-8];
5490 v0482 = (Lisp_Object)17; /* 1 */
5491 v0482 = list3(v0484, v0483, v0482);
5492 nil = C_nil;
5493 if (exception_pending()) goto v0486;
5494 env = stack[-10];
5495 fn = elt(env, 17); /* aeval!* */
5496 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5497 nil = C_nil;
5498 if (exception_pending()) goto v0486;
5499 env = stack[-10];
5500 stack[-3] = v0482;
5501 goto v0507;
5502
5503 v0507:
5504 v0482 = stack[-3];
5505 v0484 = elt(env, 7); /* plus */
5506 v0483 = v0482;
5507 v0482 = (Lisp_Object)17; /* 1 */
5508 v0482 = list3(v0484, v0483, v0482);
5509 nil = C_nil;
5510 if (exception_pending()) goto v0486;
5511 env = stack[-10];
5512 fn = elt(env, 17); /* aeval!* */
5513 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5514 nil = C_nil;
5515 if (exception_pending()) goto v0486;
5516 env = stack[-10];
5517 stack[-3] = v0482;
5518 goto v0505;
5519
5520 v0051:
5521 v0482 = stack[-3];
5522 stack[-2] = v0482;
5523 goto v0508;
5524
5525 v0508:
5526 stack[0] = elt(env, 2); /* difference */
5527 v0482 = stack[-8];
5528 fn = elt(env, 17); /* aeval!* */
5529 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5530 nil = C_nil;
5531 if (exception_pending()) goto v0486;
5532 env = stack[-10];
5533 v0482 = stack[-2];
5534 v0482 = list3(stack[0], v0483, v0482);
5535 nil = C_nil;
5536 if (exception_pending()) goto v0486;
5537 env = stack[-10];
5538 fn = elt(env, 18); /* aminusp!: */
5539 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5540 nil = C_nil;
5541 if (exception_pending()) goto v0486;
5542 env = stack[-10];
5543 if (v0482 == nil) goto v0046;
5544 v0482 = stack[-3];
5545 v0484 = elt(env, 7); /* plus */
5546 v0483 = v0482;
5547 v0482 = (Lisp_Object)17; /* 1 */
5548 v0482 = list3(v0484, v0483, v0482);
5549 nil = C_nil;
5550 if (exception_pending()) goto v0486;
5551 env = stack[-10];
5552 fn = elt(env, 17); /* aeval!* */
5553 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5554 nil = C_nil;
5555 if (exception_pending()) goto v0486;
5556 env = stack[-10];
5557 stack[-3] = v0482;
5558 goto v0092;
5559
5560 v0046:
5561 v0482 = (Lisp_Object)17; /* 1 */
5562 stack[-1] = v0482;
5563 goto v0219;
5564
5565 v0219:
5566 stack[0] = elt(env, 2); /* difference */
5567 v0482 = stack[-8];
5568 fn = elt(env, 17); /* aeval!* */
5569 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5570 nil = C_nil;
5571 if (exception_pending()) goto v0486;
5572 env = stack[-10];
5573 v0482 = stack[-1];
5574 v0482 = list3(stack[0], v0483, v0482);
5575 nil = C_nil;
5576 if (exception_pending()) goto v0486;
5577 env = stack[-10];
5578 fn = elt(env, 18); /* aminusp!: */
5579 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5580 nil = C_nil;
5581 if (exception_pending()) goto v0486;
5582 env = stack[-10];
5583 if (v0482 == nil) goto v0169;
5584 v0482 = stack[-2];
5585 v0484 = elt(env, 7); /* plus */
5586 v0483 = v0482;
5587 v0482 = (Lisp_Object)17; /* 1 */
5588 v0482 = list3(v0484, v0483, v0482);
5589 nil = C_nil;
5590 if (exception_pending()) goto v0486;
5591 env = stack[-10];
5592 fn = elt(env, 17); /* aeval!* */
5593 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5594 nil = C_nil;
5595 if (exception_pending()) goto v0486;
5596 env = stack[-10];
5597 stack[-2] = v0482;
5598 goto v0508;
5599
5600 v0169:
5601 v0485 = elt(env, 4); /* lie_cc */
5602 v0484 = stack[-3];
5603 v0483 = stack[-2];
5604 v0482 = stack[-1];
5605 v0482 = list4(v0485, v0484, v0483, v0482);
5606 nil = C_nil;
5607 if (exception_pending()) goto v0486;
5608 env = stack[-10];
5609 fn = elt(env, 17); /* aeval!* */
5610 v0483 = (*qfn1(fn))(qenv(fn), v0482);
5611 nil = C_nil;
5612 if (exception_pending()) goto v0486;
5613 env = stack[-10];
5614 v0482 = (Lisp_Object)1; /* 0 */
5615 fn = elt(env, 19); /* evalneq */
5616 v0482 = (*qfn2(fn))(qenv(fn), v0483, v0482);
5617 nil = C_nil;
5618 if (exception_pending()) goto v0486;
5619 env = stack[-10];
5620 if (v0482 == nil) goto v0262;
5621 stack[0] = elt(env, 1); /* lie_dim */
5622 v0482 = (Lisp_Object)17; /* 1 */
5623 fn = elt(env, 17); /* aeval!* */
5624 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5625 nil = C_nil;
5626 if (exception_pending()) goto v0486;
5627 env = stack[-10];
5628 fn = elt(env, 16); /* setk */
5629 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5630 nil = C_nil;
5631 if (exception_pending()) goto v0486;
5632 env = stack[-10];
5633 stack[0] = elt(env, 5); /* lie_p */
5634 v0482 = stack[-3];
5635 fn = elt(env, 17); /* aeval!* */
5636 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5637 nil = C_nil;
5638 if (exception_pending()) goto v0486;
5639 env = stack[-10];
5640 fn = elt(env, 16); /* setk */
5641 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5642 nil = C_nil;
5643 if (exception_pending()) goto v0486;
5644 env = stack[-10];
5645 stack[0] = elt(env, 6); /* lie_q */
5646 v0482 = stack[-2];
5647 fn = elt(env, 17); /* aeval!* */
5648 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5649 nil = C_nil;
5650 if (exception_pending()) goto v0486;
5651 env = stack[-10];
5652 fn = elt(env, 16); /* setk */
5653 v0482 = (*qfn2(fn))(qenv(fn), stack[0], v0482);
5654 nil = C_nil;
5655 if (exception_pending()) goto v0486;
5656 env = stack[-10];
5657 v0482 = stack[-1];
5658 fn = elt(env, 17); /* aeval!* */
5659 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5660 nil = C_nil;
5661 if (exception_pending()) goto v0486;
5662 env = stack[-10];
5663 stack[-9] = v0482;
5664 v0482 = stack[-8];
5665 fn = elt(env, 17); /* aeval!* */
5666 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5667 nil = C_nil;
5668 if (exception_pending()) goto v0486;
5669 env = stack[-10];
5670 stack[-3] = v0482;
5671 v0484 = elt(env, 7); /* plus */
5672 v0483 = stack[-8];
5673 v0482 = (Lisp_Object)17; /* 1 */
5674 v0482 = list3(v0484, v0483, v0482);
5675 nil = C_nil;
5676 if (exception_pending()) goto v0486;
5677 env = stack[-10];
5678 fn = elt(env, 17); /* aeval!* */
5679 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5680 nil = C_nil;
5681 if (exception_pending()) goto v0486;
5682 env = stack[-10];
5683 stack[-1] = v0482;
5684 stack[-2] = v0482;
5685 goto v0262;
5686
5687 v0262:
5688 v0482 = stack[-1];
5689 v0484 = elt(env, 7); /* plus */
5690 v0483 = v0482;
5691 v0482 = (Lisp_Object)17; /* 1 */
5692 v0482 = list3(v0484, v0483, v0482);
5693 nil = C_nil;
5694 if (exception_pending()) goto v0486;
5695 env = stack[-10];
5696 fn = elt(env, 17); /* aeval!* */
5697 v0482 = (*qfn1(fn))(qenv(fn), v0482);
5698 nil = C_nil;
5699 if (exception_pending()) goto v0486;
5700 env = stack[-10];
5701 stack[-1] = v0482;
5702 goto v0219;
5703 /* error exit handlers */
5704 v0486:
5705 popv(11);
5706 return nil;
5707 }
5708
5709
5710
5711 /* Code for sc_create */
5712
CC_sc_create(Lisp_Object env,Lisp_Object v0000)5713 static Lisp_Object CC_sc_create(Lisp_Object env,
5714 Lisp_Object v0000)
5715 {
5716 Lisp_Object nil = C_nil;
5717 Lisp_Object v0222, v0181;
5718 Lisp_Object fn;
5719 CSL_IGNORE(nil);
5720 #ifdef DEBUG
5721 if (check_env(env)) return aerror("env for sc_create");
5722 #endif
5723 if (stack >= stacklimit)
5724 {
5725 push(v0000);
5726 env = reclaim(env, "stack", GC_STACK, 0);
5727 pop(v0000);
5728 nil = C_nil;
5729 if (exception_pending()) return nil;
5730 }
5731 push(env);
5732 /* space for vars preserved across procedure calls */
5733 push3(nil, nil, nil);
5734 /* copy arguments values to proper place */
5735 stack[-1] = v0000;
5736 /* end of prologue */
5737 stack[-2] = nil;
5738 v0222 = stack[-1];
5739 stack[0] = v0222;
5740 goto v0211;
5741
5742 v0211:
5743 v0222 = stack[0];
5744 v0222 = sub1(v0222);
5745 nil = C_nil;
5746 if (exception_pending()) goto v0210;
5747 env = stack[-3];
5748 v0222 = Lminusp(nil, v0222);
5749 env = stack[-3];
5750 if (v0222 == nil) goto v0052;
5751 v0181 = stack[-2];
5752 v0222 = elt(env, 2); /* symbolic */
5753 fn = elt(env, 3); /* list2vect!* */
5754 stack[0] = (*qfn2(fn))(qenv(fn), v0181, v0222);
5755 nil = C_nil;
5756 if (exception_pending()) goto v0210;
5757 env = stack[-3];
5758 v0222 = stack[-1];
5759 v0222 = sub1(v0222);
5760 nil = C_nil;
5761 if (exception_pending()) goto v0210;
5762 env = stack[-3];
5763 v0222 = Lmkvect(nil, v0222);
5764 nil = C_nil;
5765 if (exception_pending()) goto v0210;
5766 {
5767 Lisp_Object v0120 = stack[0];
5768 popv(4);
5769 return cons(v0120, v0222);
5770 }
5771
5772 v0052:
5773 v0181 = stack[0];
5774 v0222 = stack[-2];
5775 v0222 = cons(v0181, v0222);
5776 nil = C_nil;
5777 if (exception_pending()) goto v0210;
5778 env = stack[-3];
5779 stack[-2] = v0222;
5780 v0222 = stack[0];
5781 v0222 = sub1(v0222);
5782 nil = C_nil;
5783 if (exception_pending()) goto v0210;
5784 env = stack[-3];
5785 stack[0] = v0222;
5786 goto v0211;
5787 /* error exit handlers */
5788 v0210:
5789 popv(4);
5790 return nil;
5791 }
5792
5793
5794
5795 /* Code for modroots1 */
5796
CC_modroots1(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)5797 static Lisp_Object CC_modroots1(Lisp_Object env,
5798 Lisp_Object v0000, Lisp_Object v0080)
5799 {
5800 Lisp_Object nil = C_nil;
5801 Lisp_Object v0519, v0150, v0520;
5802 Lisp_Object fn;
5803 CSL_IGNORE(nil);
5804 #ifdef DEBUG
5805 if (check_env(env)) return aerror("env for modroots1");
5806 #endif
5807 if (stack >= stacklimit)
5808 {
5809 push2(v0080,v0000);
5810 env = reclaim(env, "stack", GC_STACK, 0);
5811 pop2(v0000,v0080);
5812 nil = C_nil;
5813 if (exception_pending()) return nil;
5814 }
5815 push(env);
5816 /* space for vars preserved across procedure calls */
5817 push5(nil, nil, nil, nil, nil);
5818 push5(nil, nil, nil, nil, nil);
5819 push2(nil, nil);
5820 /* copy arguments values to proper place */
5821 stack[-1] = v0080;
5822 stack[-10] = v0000;
5823 /* end of prologue */
5824 v0519 = stack[-1];
5825 v0519 = qcdr(v0519);
5826 if (v0519 == nil) goto v0211;
5827 stack[-7] = nil;
5828 v0519 = stack[-1];
5829 v0519 = qcar(v0519);
5830 stack[-11] = v0519;
5831 v0519 = stack[-1];
5832 v0519 = qcdr(v0519);
5833 stack[-1] = v0519;
5834 v0150 = stack[-10];
5835 v0519 = stack[-1];
5836 v0519 = CC_modroots1(env, v0150, v0519);
5837 nil = C_nil;
5838 if (exception_pending()) goto v0521;
5839 env = stack[-12];
5840 stack[0] = v0519;
5841 v0519 = stack[0];
5842 if (v0519 == nil) goto v0222;
5843 v0519 = stack[-10];
5844 v0519 = qcar(v0519);
5845 v0519 = qcar(v0519);
5846 v0519 = qcar(v0519);
5847 stack[-6] = v0519;
5848 v0519 = elt(env, 2); /* g */
5849 v0519 = Lgensym1(nil, v0519);
5850 nil = C_nil;
5851 if (exception_pending()) goto v0521;
5852 env = stack[-12];
5853 stack[-5] = v0519;
5854 v0519 = stack[-1];
5855 stack[-1] = v0519;
5856 v0519 = (Lisp_Object)17; /* 1 */
5857 v0150 = v0519;
5858 goto v0060;
5859
5860 v0060:
5861 v0519 = stack[-1];
5862 if (v0519 == nil) goto v0043;
5863 v0519 = stack[-1];
5864 v0519 = qcar(v0519);
5865 v0519 = times2(v0519, v0150);
5866 nil = C_nil;
5867 if (exception_pending()) goto v0521;
5868 env = stack[-12];
5869 v0150 = v0519;
5870 v0519 = stack[-1];
5871 v0519 = qcdr(v0519);
5872 stack[-1] = v0519;
5873 goto v0060;
5874
5875 v0043:
5876 v0519 = v0150;
5877 stack[-9] = v0519;
5878 v0150 = stack[-11];
5879 v0519 = stack[-9];
5880 v0519 = times2(v0150, v0519);
5881 nil = C_nil;
5882 if (exception_pending()) goto v0521;
5883 env = stack[-12];
5884 stack[-8] = v0519;
5885 v0519 = stack[0];
5886 stack[-4] = v0519;
5887 goto v0247;
5888
5889 v0247:
5890 v0519 = stack[-4];
5891 if (v0519 == nil) { Lisp_Object res = stack[-7]; popv(13); return onevalue(res); }
5892 v0519 = stack[-4];
5893 v0519 = qcar(v0519);
5894 stack[-3] = v0519;
5895 stack[-2] = stack[-10];
5896 stack[-1] = stack[-6];
5897 stack[0] = elt(env, 3); /* plus */
5898 v0520 = elt(env, 4); /* times */
5899 v0150 = stack[-5];
5900 v0519 = stack[-9];
5901 v0150 = list3(v0520, v0150, v0519);
5902 nil = C_nil;
5903 if (exception_pending()) goto v0521;
5904 env = stack[-12];
5905 v0519 = stack[-3];
5906 v0519 = list2(v0150, v0519);
5907 nil = C_nil;
5908 if (exception_pending()) goto v0521;
5909 env = stack[-12];
5910 v0519 = list2star(stack[-1], stack[0], v0519);
5911 nil = C_nil;
5912 if (exception_pending()) goto v0521;
5913 env = stack[-12];
5914 v0519 = ncons(v0519);
5915 nil = C_nil;
5916 if (exception_pending()) goto v0521;
5917 env = stack[-12];
5918 fn = elt(env, 6); /* subf */
5919 v0519 = (*qfn2(fn))(qenv(fn), stack[-2], v0519);
5920 nil = C_nil;
5921 if (exception_pending()) goto v0521;
5922 env = stack[-12];
5923 v0519 = qcar(v0519);
5924 v0150 = v0519;
5925 v0519 = stack[-11];
5926 fn = elt(env, 7); /* reduce!-mod!-p!* */
5927 v0520 = (*qfn2(fn))(qenv(fn), v0150, v0519);
5928 nil = C_nil;
5929 if (exception_pending()) goto v0521;
5930 env = stack[-12];
5931 v0150 = stack[-11];
5932 v0519 = qvalue(elt(env, 5)); /* t */
5933 fn = elt(env, 8); /* modroots2 */
5934 v0519 = (*qfnn(fn))(qenv(fn), 3, v0520, v0150, v0519);
5935 nil = C_nil;
5936 if (exception_pending()) goto v0521;
5937 env = stack[-12];
5938 stack[-2] = v0519;
5939 goto v0474;
5940
5941 v0474:
5942 v0519 = stack[-2];
5943 if (v0519 == nil) goto v0522;
5944 v0519 = stack[-2];
5945 v0519 = qcar(v0519);
5946 stack[-1] = v0519;
5947 v0150 = stack[-1];
5948 v0519 = stack[-9];
5949 v0150 = times2(v0150, v0519);
5950 nil = C_nil;
5951 if (exception_pending()) goto v0521;
5952 env = stack[-12];
5953 v0519 = stack[-3];
5954 v0150 = plus2(v0150, v0519);
5955 nil = C_nil;
5956 if (exception_pending()) goto v0521;
5957 env = stack[-12];
5958 v0519 = stack[-8];
5959 fn = elt(env, 9); /* modp */
5960 v0519 = (*qfn2(fn))(qenv(fn), v0150, v0519);
5961 nil = C_nil;
5962 if (exception_pending()) goto v0521;
5963 env = stack[-12];
5964 stack[-1] = v0519;
5965 stack[0] = stack[-10];
5966 v0150 = stack[-6];
5967 v0519 = stack[-1];
5968 v0519 = cons(v0150, v0519);
5969 nil = C_nil;
5970 if (exception_pending()) goto v0521;
5971 env = stack[-12];
5972 v0519 = ncons(v0519);
5973 nil = C_nil;
5974 if (exception_pending()) goto v0521;
5975 env = stack[-12];
5976 fn = elt(env, 6); /* subf */
5977 v0519 = (*qfn2(fn))(qenv(fn), stack[0], v0519);
5978 nil = C_nil;
5979 if (exception_pending()) goto v0521;
5980 env = stack[-12];
5981 v0150 = qcar(v0519);
5982 v0519 = stack[-8];
5983 fn = elt(env, 7); /* reduce!-mod!-p!* */
5984 v0519 = (*qfn2(fn))(qenv(fn), v0150, v0519);
5985 nil = C_nil;
5986 if (exception_pending()) goto v0521;
5987 env = stack[-12];
5988 if (v0519 == nil) goto v0523;
5989 v0519 = qvalue(elt(env, 1)); /* nil */
5990 goto v0127;
5991
5992 v0127:
5993 if (v0519 == nil) goto v0131;
5994 v0150 = stack[-1];
5995 v0519 = stack[-7];
5996 v0519 = cons(v0150, v0519);
5997 nil = C_nil;
5998 if (exception_pending()) goto v0521;
5999 env = stack[-12];
6000 stack[-7] = v0519;
6001 goto v0131;
6002
6003 v0131:
6004 v0519 = stack[-2];
6005 v0519 = qcdr(v0519);
6006 stack[-2] = v0519;
6007 goto v0474;
6008
6009 v0523:
6010 v0150 = stack[-1];
6011 v0519 = stack[-7];
6012 v0519 = Lmember(nil, v0150, v0519);
6013 v0519 = (v0519 == nil ? lisp_true : nil);
6014 goto v0127;
6015
6016 v0522:
6017 v0519 = stack[-4];
6018 v0519 = qcdr(v0519);
6019 stack[-4] = v0519;
6020 goto v0247;
6021
6022 v0222:
6023 v0519 = qvalue(elt(env, 1)); /* nil */
6024 { popv(13); return onevalue(v0519); }
6025
6026 v0211:
6027 v0520 = stack[-10];
6028 v0519 = stack[-1];
6029 v0150 = qcar(v0519);
6030 v0519 = qvalue(elt(env, 1)); /* nil */
6031 {
6032 popv(13);
6033 fn = elt(env, 8); /* modroots2 */
6034 return (*qfnn(fn))(qenv(fn), 3, v0520, v0150, v0519);
6035 }
6036 /* error exit handlers */
6037 v0521:
6038 popv(13);
6039 return nil;
6040 }
6041
6042
6043
6044 /* Code for quotfail!-mod!-p */
6045
CC_quotfailKmodKp(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)6046 static Lisp_Object CC_quotfailKmodKp(Lisp_Object env,
6047 Lisp_Object v0000, Lisp_Object v0080)
6048 {
6049 Lisp_Object nil = C_nil;
6050 Lisp_Object v0090, v0236, v0092;
6051 Lisp_Object fn;
6052 CSL_IGNORE(nil);
6053 #ifdef DEBUG
6054 if (check_env(env)) return aerror("env for quotfail-mod-p");
6055 #endif
6056 if (stack >= stacklimit)
6057 {
6058 push2(v0080,v0000);
6059 env = reclaim(env, "stack", GC_STACK, 0);
6060 pop2(v0000,v0080);
6061 nil = C_nil;
6062 if (exception_pending()) return nil;
6063 }
6064 push(env);
6065 /* copy arguments values to proper place */
6066 v0236 = v0080;
6067 v0092 = v0000;
6068 /* end of prologue */
6069 v0090 = qvalue(elt(env, 1)); /* t */
6070 qvalue(elt(env, 2)) = v0090; /* exact!-quotient!-flag */
6071 v0090 = v0092;
6072 fn = elt(env, 4); /* quotient!-mod!-p */
6073 v0090 = (*qfn2(fn))(qenv(fn), v0090, v0236);
6074 nil = C_nil;
6075 if (exception_pending()) goto v0093;
6076 env = stack[0];
6077 v0236 = v0090;
6078 v0090 = qvalue(elt(env, 2)); /* exact!-quotient!-flag */
6079 if (!(v0090 == nil)) { popv(1); return onevalue(v0236); }
6080 v0090 = elt(env, 3); /* "QUOTIENT NOT EXACT (MOD P)" */
6081 fn = elt(env, 5); /* errorf */
6082 v0090 = (*qfn1(fn))(qenv(fn), v0090);
6083 nil = C_nil;
6084 if (exception_pending()) goto v0093;
6085 v0090 = nil;
6086 { popv(1); return onevalue(v0090); }
6087 /* error exit handlers */
6088 v0093:
6089 popv(1);
6090 return nil;
6091 }
6092
6093
6094
6095 /* Code for setqdeletedescendants */
6096
CC_setqdeletedescendants(Lisp_Object env,Lisp_Object v0000)6097 static Lisp_Object CC_setqdeletedescendants(Lisp_Object env,
6098 Lisp_Object v0000)
6099 {
6100 Lisp_Object nil = C_nil;
6101 Lisp_Object v0060, v0249;
6102 CSL_IGNORE(nil);
6103 #ifdef DEBUG
6104 if (check_env(env)) return aerror("env for setqdeletedescendants");
6105 #endif
6106 if (stack >= stacklimit)
6107 {
6108 push(v0000);
6109 env = reclaim(env, "stack", GC_STACK, 0);
6110 pop(v0000);
6111 nil = C_nil;
6112 if (exception_pending()) return nil;
6113 }
6114 push(env);
6115 /* space for vars preserved across procedure calls */
6116 push2(nil, nil);
6117 /* copy arguments values to proper place */
6118 stack[0] = v0000;
6119 /* end of prologue */
6120 v0060 = qvalue(elt(env, 1)); /* fluidbibasissetq */
6121 stack[-1] = v0060;
6122 goto v0056;
6123
6124 v0056:
6125 v0060 = stack[-1];
6126 v0060 = qcar(v0060);
6127 if (v0060 == nil) goto v0184;
6128 v0060 = stack[-1];
6129 v0249 = qcar(v0060);
6130 v0060 = (Lisp_Object)33; /* 2 */
6131 v0249 = *(Lisp_Object *)((char *)v0249 + (CELL-TAG_VECTOR) + ((int32_t)v0060/(16/CELL)));
6132 v0060 = stack[0];
6133 if (equal(v0249, v0060)) goto v0216;
6134 v0060 = stack[-1];
6135 v0060 = qcdr(v0060);
6136 stack[-1] = v0060;
6137 goto v0056;
6138
6139 v0216:
6140 v0249 = stack[-1];
6141 v0060 = stack[-1];
6142 v0060 = qcdr(v0060);
6143 v0060 = qcar(v0060);
6144 v0249 = Lrplaca(nil, v0249, v0060);
6145 nil = C_nil;
6146 if (exception_pending()) goto v0221;
6147 env = stack[-2];
6148 v0060 = stack[-1];
6149 v0060 = qcdr(v0060);
6150 v0060 = qcdr(v0060);
6151 v0060 = Lrplacd(nil, v0249, v0060);
6152 nil = C_nil;
6153 if (exception_pending()) goto v0221;
6154 env = stack[-2];
6155 goto v0056;
6156
6157 v0184:
6158 v0060 = nil;
6159 { popv(3); return onevalue(v0060); }
6160 /* error exit handlers */
6161 v0221:
6162 popv(3);
6163 return nil;
6164 }
6165
6166
6167
6168 /* Code for rl_ex */
6169
CC_rl_ex(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)6170 static Lisp_Object CC_rl_ex(Lisp_Object env,
6171 Lisp_Object v0000, Lisp_Object v0080)
6172 {
6173 Lisp_Object nil = C_nil;
6174 Lisp_Object v0213, v0212;
6175 Lisp_Object fn;
6176 CSL_IGNORE(nil);
6177 #ifdef DEBUG
6178 if (check_env(env)) return aerror("env for rl_ex");
6179 #endif
6180 if (stack >= stacklimit)
6181 {
6182 push2(v0080,v0000);
6183 env = reclaim(env, "stack", GC_STACK, 0);
6184 pop2(v0000,v0080);
6185 nil = C_nil;
6186 if (exception_pending()) return nil;
6187 }
6188 push(env);
6189 /* space for vars preserved across procedure calls */
6190 push(nil);
6191 /* copy arguments values to proper place */
6192 v0213 = v0080;
6193 v0212 = v0000;
6194 /* end of prologue */
6195 stack[0] = qvalue(elt(env, 1)); /* rl_ex!* */
6196 v0213 = list2(v0212, v0213);
6197 nil = C_nil;
6198 if (exception_pending()) goto v0052;
6199 env = stack[-1];
6200 {
6201 Lisp_Object v0051 = stack[0];
6202 popv(2);
6203 fn = elt(env, 2); /* apply */
6204 return (*qfn2(fn))(qenv(fn), v0051, v0213);
6205 }
6206 /* error exit handlers */
6207 v0052:
6208 popv(2);
6209 return nil;
6210 }
6211
6212
6213
6214 /* Code for ofsf_smdbgetrel */
6215
CC_ofsf_smdbgetrel(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)6216 static Lisp_Object CC_ofsf_smdbgetrel(Lisp_Object env,
6217 Lisp_Object v0000, Lisp_Object v0080)
6218 {
6219 Lisp_Object nil = C_nil;
6220 Lisp_Object v0208, v0088, v0049, v0050;
6221 CSL_IGNORE(nil);
6222 #ifdef DEBUG
6223 if (check_env(env)) return aerror("env for ofsf_smdbgetrel");
6224 #endif
6225 CSL_IGNORE(env);
6226 /* copy arguments values to proper place */
6227 v0049 = v0080;
6228 v0050 = v0000;
6229 /* end of prologue */
6230
6231 v0211:
6232 v0088 = v0050;
6233 v0208 = v0049;
6234 v0208 = qcar(v0208);
6235 v0208 = qcdr(v0208);
6236 v0208 = qcdr(v0208);
6237 if (equal(v0088, v0208)) goto v0056;
6238 v0208 = v0049;
6239 v0208 = qcdr(v0208);
6240 if (v0208 == nil) goto v0082;
6241 v0208 = v0049;
6242 v0208 = qcdr(v0208);
6243 v0049 = v0208;
6244 goto v0211;
6245
6246 v0082:
6247 v0208 = qvalue(elt(env, 1)); /* nil */
6248 return onevalue(v0208);
6249
6250 v0056:
6251 v0208 = v0049;
6252 v0208 = qcar(v0208);
6253 v0208 = qcdr(v0208);
6254 v0208 = qcar(v0208);
6255 return onevalue(v0208);
6256 }
6257
6258
6259
6260 /* Code for addcoeffs */
6261
CC_addcoeffs(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0080,Lisp_Object v0081,Lisp_Object v0207,...)6262 static Lisp_Object MS_CDECL CC_addcoeffs(Lisp_Object env, int nargs,
6263 Lisp_Object v0000, Lisp_Object v0080,
6264 Lisp_Object v0081, Lisp_Object v0207, ...)
6265 {
6266 Lisp_Object nil = C_nil;
6267 Lisp_Object v0035, v0168, v0477, v0518;
6268 Lisp_Object fn;
6269 CSL_IGNORE(nil);
6270 argcheck(nargs, 4, "addcoeffs");
6271 #ifdef DEBUG
6272 if (check_env(env)) return aerror("env for addcoeffs");
6273 #endif
6274 if (stack >= stacklimit)
6275 {
6276 push4(v0207,v0081,v0080,v0000);
6277 env = reclaim(env, "stack", GC_STACK, 0);
6278 pop4(v0000,v0080,v0081,v0207);
6279 nil = C_nil;
6280 if (exception_pending()) return nil;
6281 }
6282 push(env);
6283 /* space for vars preserved across procedure calls */
6284 push5(nil, nil, nil, nil, nil);
6285 push(nil);
6286 /* copy arguments values to proper place */
6287 stack[-1] = v0207;
6288 stack[-2] = v0081;
6289 stack[-3] = v0080;
6290 stack[-4] = v0000;
6291 /* end of prologue */
6292 v0168 = qvalue(elt(env, 1)); /* nil */
6293 v0035 = (Lisp_Object)17; /* 1 */
6294 v0035 = cons(v0168, v0035);
6295 nil = C_nil;
6296 if (exception_pending()) goto v0475;
6297 env = stack[-6];
6298 stack[0] = v0035;
6299 v0035 = stack[-4];
6300 fn = elt(env, 2); /* smallest!-increment */
6301 stack[-5] = (*qfn1(fn))(qenv(fn), v0035);
6302 nil = C_nil;
6303 if (exception_pending()) goto v0475;
6304 env = stack[-6];
6305 v0035 = stack[-3];
6306 fn = elt(env, 2); /* smallest!-increment */
6307 v0035 = (*qfn1(fn))(qenv(fn), v0035);
6308 nil = C_nil;
6309 if (exception_pending()) goto v0475;
6310 env = stack[-6];
6311 fn = elt(env, 3); /* common!-increment */
6312 v0035 = (*qfn2(fn))(qenv(fn), stack[-5], v0035);
6313 nil = C_nil;
6314 if (exception_pending()) goto v0475;
6315 env = stack[-6];
6316 v0518 = stack[-2];
6317 v0477 = stack[-1];
6318 v0168 = stack[-3];
6319 v0168 = qcar(v0168);
6320 v0168 = qcar(v0168);
6321 fn = elt(env, 4); /* makecoeffpairs */
6322 v0035 = (*qfnn(fn))(qenv(fn), 4, v0518, v0477, v0168, v0035);
6323 nil = C_nil;
6324 if (exception_pending()) goto v0475;
6325 env = stack[-6];
6326 stack[-5] = v0035;
6327 goto v0082;
6328
6329 v0082:
6330 v0035 = stack[-5];
6331 if (v0035 == nil) { Lisp_Object res = stack[0]; popv(7); return onevalue(res); }
6332 v0035 = stack[-5];
6333 v0035 = qcar(v0035);
6334 stack[-2] = v0035;
6335 stack[-1] = stack[0];
6336 v0035 = stack[-2];
6337 v0168 = qcar(v0035);
6338 v0035 = stack[-4];
6339 v0035 = Lassoc(nil, v0168, v0035);
6340 v0168 = v0035;
6341 v0035 = v0168;
6342 if (v0035 == nil) goto v0179;
6343 v0035 = v0168;
6344 v0035 = qcdr(v0035);
6345 stack[0] = v0035;
6346 goto v0262;
6347
6348 v0262:
6349 v0035 = stack[-2];
6350 v0168 = qcdr(v0035);
6351 v0035 = stack[-3];
6352 v0035 = Lassoc(nil, v0168, v0035);
6353 v0168 = v0035;
6354 v0035 = v0168;
6355 if (v0035 == nil) goto v0516;
6356 v0035 = v0168;
6357 v0035 = qcdr(v0035);
6358 goto v0044;
6359
6360 v0044:
6361 fn = elt(env, 5); /* multsq */
6362 v0035 = (*qfn2(fn))(qenv(fn), stack[0], v0035);
6363 nil = C_nil;
6364 if (exception_pending()) goto v0475;
6365 env = stack[-6];
6366 fn = elt(env, 6); /* addsq */
6367 v0035 = (*qfn2(fn))(qenv(fn), stack[-1], v0035);
6368 nil = C_nil;
6369 if (exception_pending()) goto v0475;
6370 env = stack[-6];
6371 stack[0] = v0035;
6372 v0035 = stack[-5];
6373 v0035 = qcdr(v0035);
6374 stack[-5] = v0035;
6375 goto v0082;
6376
6377 v0516:
6378 v0168 = qvalue(elt(env, 1)); /* nil */
6379 v0035 = (Lisp_Object)17; /* 1 */
6380 v0035 = cons(v0168, v0035);
6381 nil = C_nil;
6382 if (exception_pending()) goto v0475;
6383 env = stack[-6];
6384 goto v0044;
6385
6386 v0179:
6387 v0168 = qvalue(elt(env, 1)); /* nil */
6388 v0035 = (Lisp_Object)17; /* 1 */
6389 v0035 = cons(v0168, v0035);
6390 nil = C_nil;
6391 if (exception_pending()) goto v0475;
6392 env = stack[-6];
6393 stack[0] = v0035;
6394 goto v0262;
6395 /* error exit handlers */
6396 v0475:
6397 popv(7);
6398 return nil;
6399 }
6400
6401
6402
6403 /* Code for mk_resimp_rep */
6404
CC_mk_resimp_rep(Lisp_Object env,Lisp_Object v0000)6405 static Lisp_Object CC_mk_resimp_rep(Lisp_Object env,
6406 Lisp_Object v0000)
6407 {
6408 Lisp_Object nil = C_nil;
6409 Lisp_Object v0039, v0038;
6410 Lisp_Object fn;
6411 CSL_IGNORE(nil);
6412 #ifdef DEBUG
6413 if (check_env(env)) return aerror("env for mk_resimp_rep");
6414 #endif
6415 if (stack >= stacklimit)
6416 {
6417 push(v0000);
6418 env = reclaim(env, "stack", GC_STACK, 0);
6419 pop(v0000);
6420 nil = C_nil;
6421 if (exception_pending()) return nil;
6422 }
6423 push(env);
6424 /* space for vars preserved across procedure calls */
6425 push5(nil, nil, nil, nil, nil);
6426 push2(nil, nil);
6427 /* copy arguments values to proper place */
6428 stack[-5] = v0000;
6429 /* end of prologue */
6430 v0039 = stack[-5];
6431 fn = elt(env, 2); /* get_group_in */
6432 v0039 = (*qfn1(fn))(qenv(fn), v0039);
6433 nil = C_nil;
6434 if (exception_pending()) goto v0178;
6435 env = stack[-7];
6436 stack[-6] = v0039;
6437 v0039 = stack[-6];
6438 fn = elt(env, 3); /* get!*elements */
6439 v0039 = (*qfn1(fn))(qenv(fn), v0039);
6440 nil = C_nil;
6441 if (exception_pending()) goto v0178;
6442 env = stack[-7];
6443 stack[-4] = v0039;
6444 v0039 = stack[-4];
6445 if (v0039 == nil) goto v0212;
6446 v0039 = stack[-4];
6447 v0039 = qcar(v0039);
6448 stack[0] = v0039;
6449 v0038 = v0039;
6450 v0039 = stack[-5];
6451 fn = elt(env, 4); /* get_rep_matrix_in */
6452 v0039 = (*qfn2(fn))(qenv(fn), v0038, v0039);
6453 nil = C_nil;
6454 if (exception_pending()) goto v0178;
6455 env = stack[-7];
6456 fn = elt(env, 5); /* mk!+resimp!+mat */
6457 v0039 = (*qfn1(fn))(qenv(fn), v0039);
6458 nil = C_nil;
6459 if (exception_pending()) goto v0178;
6460 env = stack[-7];
6461 v0039 = list2(stack[0], v0039);
6462 nil = C_nil;
6463 if (exception_pending()) goto v0178;
6464 env = stack[-7];
6465 v0039 = ncons(v0039);
6466 nil = C_nil;
6467 if (exception_pending()) goto v0178;
6468 env = stack[-7];
6469 stack[-2] = v0039;
6470 stack[-3] = v0039;
6471 goto v0091;
6472
6473 v0091:
6474 v0039 = stack[-4];
6475 v0039 = qcdr(v0039);
6476 stack[-4] = v0039;
6477 v0039 = stack[-4];
6478 if (v0039 == nil) goto v0222;
6479 stack[-1] = stack[-2];
6480 v0039 = stack[-4];
6481 v0039 = qcar(v0039);
6482 stack[0] = v0039;
6483 v0038 = v0039;
6484 v0039 = stack[-5];
6485 fn = elt(env, 4); /* get_rep_matrix_in */
6486 v0039 = (*qfn2(fn))(qenv(fn), v0038, v0039);
6487 nil = C_nil;
6488 if (exception_pending()) goto v0178;
6489 env = stack[-7];
6490 fn = elt(env, 5); /* mk!+resimp!+mat */
6491 v0039 = (*qfn1(fn))(qenv(fn), v0039);
6492 nil = C_nil;
6493 if (exception_pending()) goto v0178;
6494 env = stack[-7];
6495 v0039 = list2(stack[0], v0039);
6496 nil = C_nil;
6497 if (exception_pending()) goto v0178;
6498 env = stack[-7];
6499 v0039 = ncons(v0039);
6500 nil = C_nil;
6501 if (exception_pending()) goto v0178;
6502 env = stack[-7];
6503 v0039 = Lrplacd(nil, stack[-1], v0039);
6504 nil = C_nil;
6505 if (exception_pending()) goto v0178;
6506 env = stack[-7];
6507 v0039 = stack[-2];
6508 v0039 = qcdr(v0039);
6509 stack[-2] = v0039;
6510 goto v0091;
6511
6512 v0222:
6513 v0039 = stack[-3];
6514 goto v0087;
6515
6516 v0087:
6517 stack[0] = v0039;
6518 v0039 = stack[-6];
6519 v0038 = ncons(v0039);
6520 nil = C_nil;
6521 if (exception_pending()) goto v0178;
6522 v0039 = stack[0];
6523 popv(8);
6524 return Lappend(nil, v0038, v0039);
6525
6526 v0212:
6527 v0039 = qvalue(elt(env, 1)); /* nil */
6528 goto v0087;
6529 /* error exit handlers */
6530 v0178:
6531 popv(8);
6532 return nil;
6533 }
6534
6535
6536
6537 /* Code for subst!-cn */
6538
CC_substKcn(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0080,Lisp_Object v0081,...)6539 static Lisp_Object MS_CDECL CC_substKcn(Lisp_Object env, int nargs,
6540 Lisp_Object v0000, Lisp_Object v0080,
6541 Lisp_Object v0081, ...)
6542 {
6543 Lisp_Object nil = C_nil;
6544 Lisp_Object v0231, v0524;
6545 Lisp_Object fn;
6546 CSL_IGNORE(nil);
6547 argcheck(nargs, 3, "subst-cn");
6548 #ifdef DEBUG
6549 if (check_env(env)) return aerror("env for subst-cn");
6550 #endif
6551 if (stack >= stacklimit)
6552 {
6553 push3(v0081,v0080,v0000);
6554 env = reclaim(env, "stack", GC_STACK, 0);
6555 pop3(v0000,v0080,v0081);
6556 nil = C_nil;
6557 if (exception_pending()) return nil;
6558 }
6559 push(env);
6560 /* space for vars preserved across procedure calls */
6561 push4(nil, nil, nil, nil);
6562 /* copy arguments values to proper place */
6563 stack[0] = v0081;
6564 stack[-1] = v0080;
6565 stack[-2] = v0000;
6566 /* end of prologue */
6567 v0231 = stack[-1];
6568 v0231 = ncons(v0231);
6569 nil = C_nil;
6570 if (exception_pending()) goto v0480;
6571 env = stack[-4];
6572 fn = elt(env, 3); /* setkorder */
6573 v0231 = (*qfn1(fn))(qenv(fn), v0231);
6574 nil = C_nil;
6575 if (exception_pending()) goto v0480;
6576 env = stack[-4];
6577 stack[-3] = v0231;
6578 v0231 = stack[-2];
6579 fn = elt(env, 4); /* reorder */
6580 v0231 = (*qfn1(fn))(qenv(fn), v0231);
6581 nil = C_nil;
6582 if (exception_pending()) goto v0480;
6583 env = stack[-4];
6584 stack[-2] = v0231;
6585 v0231 = stack[-2];
6586 if (!consp(v0231)) goto v0051;
6587 v0231 = stack[-2];
6588 v0231 = qcar(v0231);
6589 v0231 = (consp(v0231) ? nil : lisp_true);
6590 goto v0052;
6591
6592 v0052:
6593 if (v0231 == nil) goto v0083;
6594 v0231 = qvalue(elt(env, 2)); /* nil */
6595 goto v0226;
6596
6597 v0226:
6598 if (v0231 == nil) goto v0087;
6599 v0231 = stack[0];
6600 if (v0231 == nil) goto v0229;
6601 v0231 = stack[-2];
6602 v0231 = qcar(v0231);
6603 stack[-1] = qcdr(v0231);
6604 v0231 = stack[0];
6605 v0231 = qcar(v0231);
6606 fn = elt(env, 4); /* reorder */
6607 v0231 = (*qfn1(fn))(qenv(fn), v0231);
6608 nil = C_nil;
6609 if (exception_pending()) goto v0480;
6610 env = stack[-4];
6611 fn = elt(env, 5); /* multf */
6612 stack[-1] = (*qfn2(fn))(qenv(fn), stack[-1], v0231);
6613 nil = C_nil;
6614 if (exception_pending()) goto v0480;
6615 env = stack[-4];
6616 v0231 = stack[-2];
6617 stack[-2] = qcdr(v0231);
6618 v0231 = stack[0];
6619 v0231 = qcdr(v0231);
6620 fn = elt(env, 4); /* reorder */
6621 v0231 = (*qfn1(fn))(qenv(fn), v0231);
6622 nil = C_nil;
6623 if (exception_pending()) goto v0480;
6624 env = stack[-4];
6625 fn = elt(env, 5); /* multf */
6626 v0231 = (*qfn2(fn))(qenv(fn), stack[-2], v0231);
6627 nil = C_nil;
6628 if (exception_pending()) goto v0480;
6629 env = stack[-4];
6630 fn = elt(env, 6); /* addf */
6631 v0231 = (*qfn2(fn))(qenv(fn), stack[-1], v0231);
6632 nil = C_nil;
6633 if (exception_pending()) goto v0480;
6634 env = stack[-4];
6635 stack[-2] = v0231;
6636 goto v0087;
6637
6638 v0087:
6639 v0231 = stack[-3];
6640 fn = elt(env, 3); /* setkorder */
6641 v0231 = (*qfn1(fn))(qenv(fn), v0231);
6642 nil = C_nil;
6643 if (exception_pending()) goto v0480;
6644 env = stack[-4];
6645 v0231 = stack[-2];
6646 {
6647 popv(5);
6648 fn = elt(env, 4); /* reorder */
6649 return (*qfn1(fn))(qenv(fn), v0231);
6650 }
6651
6652 v0229:
6653 v0231 = stack[-2];
6654 v0231 = qcdr(v0231);
6655 stack[-2] = v0231;
6656 goto v0087;
6657
6658 v0083:
6659 v0231 = stack[-2];
6660 v0231 = qcar(v0231);
6661 v0231 = qcar(v0231);
6662 v0524 = qcar(v0231);
6663 v0231 = stack[-1];
6664 v0231 = (v0524 == v0231 ? lisp_true : nil);
6665 goto v0226;
6666
6667 v0051:
6668 v0231 = qvalue(elt(env, 1)); /* t */
6669 goto v0052;
6670 /* error exit handlers */
6671 v0480:
6672 popv(5);
6673 return nil;
6674 }
6675
6676
6677
6678 /* Code for qqe_qadd!-inside!-at */
6679
CC_qqe_qaddKinsideKat(Lisp_Object env,Lisp_Object v0000)6680 static Lisp_Object CC_qqe_qaddKinsideKat(Lisp_Object env,
6681 Lisp_Object v0000)
6682 {
6683 Lisp_Object nil = C_nil;
6684 Lisp_Object v0092;
6685 Lisp_Object fn;
6686 CSL_IGNORE(nil);
6687 #ifdef DEBUG
6688 if (check_env(env)) return aerror("env for qqe_qadd-inside-at");
6689 #endif
6690 if (stack >= stacklimit)
6691 {
6692 push(v0000);
6693 env = reclaim(env, "stack", GC_STACK, 0);
6694 pop(v0000);
6695 nil = C_nil;
6696 if (exception_pending()) return nil;
6697 }
6698 push(env);
6699 /* space for vars preserved across procedure calls */
6700 push2(nil, nil);
6701 /* copy arguments values to proper place */
6702 v0092 = v0000;
6703 /* end of prologue */
6704 fn = elt(env, 3); /* rl_prepat */
6705 v0092 = (*qfn1(fn))(qenv(fn), v0092);
6706 nil = C_nil;
6707 if (exception_pending()) goto v0082;
6708 env = stack[-2];
6709 stack[0] = v0092;
6710 v0092 = stack[0];
6711 fn = elt(env, 4); /* qqe_arg2l */
6712 v0092 = (*qfn1(fn))(qenv(fn), v0092);
6713 nil = C_nil;
6714 if (exception_pending()) goto v0082;
6715 env = stack[-2];
6716 stack[-1] = v0092;
6717 v0092 = stack[0];
6718 fn = elt(env, 5); /* qqe_arg2r */
6719 v0092 = (*qfn1(fn))(qenv(fn), v0092);
6720 nil = C_nil;
6721 if (exception_pending()) goto v0082;
6722 env = stack[-2];
6723 stack[0] = v0092;
6724 v0092 = stack[-1];
6725 fn = elt(env, 6); /* qqe_qadd!-inside */
6726 v0092 = (*qfn1(fn))(qenv(fn), v0092);
6727 nil = C_nil;
6728 if (exception_pending()) goto v0082;
6729 env = stack[-2];
6730 if (!(v0092 == nil)) goto v0218;
6731 v0092 = stack[0];
6732 fn = elt(env, 6); /* qqe_qadd!-inside */
6733 v0092 = (*qfn1(fn))(qenv(fn), v0092);
6734 nil = C_nil;
6735 if (exception_pending()) goto v0082;
6736 env = stack[-2];
6737 if (!(v0092 == nil)) goto v0218;
6738 v0092 = qvalue(elt(env, 2)); /* nil */
6739 { popv(3); return onevalue(v0092); }
6740
6741 v0218:
6742 v0092 = qvalue(elt(env, 1)); /* t */
6743 { popv(3); return onevalue(v0092); }
6744 /* error exit handlers */
6745 v0082:
6746 popv(3);
6747 return nil;
6748 }
6749
6750
6751
6752 /* Code for ratpoly_pp */
6753
CC_ratpoly_pp(Lisp_Object env,Lisp_Object v0000)6754 static Lisp_Object CC_ratpoly_pp(Lisp_Object env,
6755 Lisp_Object v0000)
6756 {
6757 Lisp_Object nil = C_nil;
6758 Lisp_Object v0087, v0091;
6759 Lisp_Object fn;
6760 CSL_IGNORE(nil);
6761 #ifdef DEBUG
6762 if (check_env(env)) return aerror("env for ratpoly_pp");
6763 #endif
6764 if (stack >= stacklimit)
6765 {
6766 push(v0000);
6767 env = reclaim(env, "stack", GC_STACK, 0);
6768 pop(v0000);
6769 nil = C_nil;
6770 if (exception_pending()) return nil;
6771 }
6772 CSL_IGNORE(env);
6773 /* space for vars preserved across procedure calls */
6774 push(nil);
6775 /* copy arguments values to proper place */
6776 stack[0] = v0000;
6777 /* end of prologue */
6778 v0087 = stack[0];
6779 v0087 = qcar(v0087);
6780 fn = elt(env, 1); /* sfto_dprpartksf */
6781 v0091 = (*qfn1(fn))(qenv(fn), v0087);
6782 nil = C_nil;
6783 if (exception_pending()) goto v0254;
6784 v0087 = stack[0];
6785 v0087 = qcdr(v0087);
6786 popv(1);
6787 return cons(v0091, v0087);
6788 /* error exit handlers */
6789 v0254:
6790 popv(1);
6791 return nil;
6792 }
6793
6794
6795
6796 /* Code for ps!:find!-order1 */
6797
CC_psTfindKorder1(Lisp_Object env,Lisp_Object v0080)6798 static Lisp_Object CC_psTfindKorder1(Lisp_Object env,
6799 Lisp_Object v0080)
6800 {
6801 Lisp_Object nil = C_nil;
6802 Lisp_Object v0528, v0257, v0160;
6803 Lisp_Object fn;
6804 CSL_IGNORE(nil);
6805 #ifdef DEBUG
6806 if (check_env(env)) return aerror("env for ps:find-order1");
6807 #endif
6808 if (stack >= stacklimit)
6809 {
6810 push(v0080);
6811 env = reclaim(env, "stack", GC_STACK, 0);
6812 pop(v0080);
6813 nil = C_nil;
6814 if (exception_pending()) return nil;
6815 }
6816 push(env);
6817 /* space for vars preserved across procedure calls */
6818 push4(nil, nil, nil, nil);
6819 /* copy arguments values to proper place */
6820 v0528 = v0080;
6821 /* end of prologue */
6822 stack[-3] = qvalue(elt(env, 1)); /* ps */
6823 qvalue(elt(env, 1)) = nil; /* ps */
6824 qvalue(elt(env, 1)) = v0528; /* ps */
6825 v0528 = qvalue(elt(env, 1)); /* ps */
6826 fn = elt(env, 10); /* ps!:order */
6827 v0528 = (*qfn1(fn))(qenv(fn), v0528);
6828 nil = C_nil;
6829 if (exception_pending()) goto v0025;
6830 env = stack[-4];
6831 stack[-2] = v0528;
6832 v0528 = qvalue(elt(env, 1)); /* ps */
6833 fn = elt(env, 11); /* ps!:last!-term */
6834 v0528 = (*qfn1(fn))(qenv(fn), v0528);
6835 nil = C_nil;
6836 if (exception_pending()) goto v0025;
6837 env = stack[-4];
6838 v0257 = stack[-2];
6839 v0528 = (Lisp_Object)lesseq2(v0257, v0528);
6840 nil = C_nil;
6841 if (exception_pending()) goto v0025;
6842 v0528 = v0528 ? lisp_true : nil;
6843 env = stack[-4];
6844 if (v0528 == nil) goto v0082;
6845 v0528 = stack[-2];
6846 goto v0094;
6847
6848 v0094:
6849 qvalue(elt(env, 1)) = stack[-3]; /* ps */
6850 { popv(5); return onevalue(v0528); }
6851
6852 v0082:
6853 v0257 = qvalue(elt(env, 1)); /* ps */
6854 v0528 = (Lisp_Object)97; /* 6 */
6855 fn = elt(env, 12); /* ps!:getv */
6856 v0528 = (*qfn2(fn))(qenv(fn), v0257, v0528);
6857 nil = C_nil;
6858 if (exception_pending()) goto v0025;
6859 env = stack[-4];
6860 v0528 = qcar(v0528);
6861 v0257 = v0528;
6862 v0528 = elt(env, 2); /* ps!:order!-fn */
6863 stack[0] = get(v0257, v0528);
6864 env = stack[-4];
6865 v0528 = qvalue(elt(env, 1)); /* ps */
6866 v0528 = ncons(v0528);
6867 nil = C_nil;
6868 if (exception_pending()) goto v0025;
6869 env = stack[-4];
6870 fn = elt(env, 13); /* apply */
6871 v0528 = (*qfn2(fn))(qenv(fn), stack[0], v0528);
6872 nil = C_nil;
6873 if (exception_pending()) goto v0025;
6874 env = stack[-4];
6875 stack[-2] = v0528;
6876 v0160 = qvalue(elt(env, 1)); /* ps */
6877 v0257 = (Lisp_Object)1; /* 0 */
6878 v0528 = stack[-2];
6879 fn = elt(env, 14); /* ps!:putv */
6880 v0528 = (*qfnn(fn))(qenv(fn), 3, v0160, v0257, v0528);
6881 nil = C_nil;
6882 if (exception_pending()) goto v0025;
6883 env = stack[-4];
6884 stack[-1] = qvalue(elt(env, 1)); /* ps */
6885 stack[0] = (Lisp_Object)17; /* 1 */
6886 v0528 = stack[-2];
6887 v0528 = sub1(v0528);
6888 nil = C_nil;
6889 if (exception_pending()) goto v0025;
6890 env = stack[-4];
6891 fn = elt(env, 14); /* ps!:putv */
6892 v0528 = (*qfnn(fn))(qenv(fn), 3, stack[-1], stack[0], v0528);
6893 nil = C_nil;
6894 if (exception_pending()) goto v0025;
6895 env = stack[-4];
6896 v0528 = qvalue(elt(env, 1)); /* ps */
6897 fn = elt(env, 15); /* ps!:value */
6898 v0257 = (*qfn1(fn))(qenv(fn), v0528);
6899 nil = C_nil;
6900 if (exception_pending()) goto v0025;
6901 env = stack[-4];
6902 v0528 = (Lisp_Object)1; /* 0 */
6903 if (!(v0257 == v0528)) goto v0479;
6904 v0528 = (Lisp_Object)1; /* 0 */
6905 stack[-2] = v0528;
6906 v0160 = qvalue(elt(env, 1)); /* ps */
6907 v0257 = (Lisp_Object)17; /* 1 */
6908 v0528 = qvalue(elt(env, 3)); /* ps!:max!-order */
6909 fn = elt(env, 14); /* ps!:putv */
6910 v0528 = (*qfnn(fn))(qenv(fn), 3, v0160, v0257, v0528);
6911 nil = C_nil;
6912 if (exception_pending()) goto v0025;
6913 env = stack[-4];
6914 goto v0040;
6915
6916 v0040:
6917 v0528 = stack[-2];
6918 goto v0094;
6919
6920 v0479:
6921 v0257 = qvalue(elt(env, 1)); /* ps */
6922 v0528 = stack[-2];
6923 fn = elt(env, 16); /* ps!:evaluate!-next */
6924 stack[0] = (*qfn2(fn))(qenv(fn), v0257, v0528);
6925 nil = C_nil;
6926 if (exception_pending()) goto v0025;
6927 env = stack[-4];
6928 v0257 = qvalue(elt(env, 4)); /* nil */
6929 v0528 = (Lisp_Object)17; /* 1 */
6930 v0528 = cons(v0257, v0528);
6931 nil = C_nil;
6932 if (exception_pending()) goto v0025;
6933 env = stack[-4];
6934 if (!(equal(stack[0], v0528))) goto v0040;
6935 v0528 = stack[-2];
6936 v0528 = add1(v0528);
6937 nil = C_nil;
6938 if (exception_pending()) goto v0025;
6939 env = stack[-4];
6940 stack[-2] = v0528;
6941 v0257 = stack[-2];
6942 v0528 = qvalue(elt(env, 5)); /* ps!:order!-limit */
6943 v0528 = (Lisp_Object)greaterp2(v0257, v0528);
6944 nil = C_nil;
6945 if (exception_pending()) goto v0025;
6946 v0528 = v0528 ? lisp_true : nil;
6947 env = stack[-4];
6948 if (v0528 == nil) goto v0479;
6949 stack[0] = elt(env, 6); /* "Expression " */
6950 v0528 = qvalue(elt(env, 1)); /* ps */
6951 fn = elt(env, 15); /* ps!:value */
6952 v0160 = (*qfn1(fn))(qenv(fn), v0528);
6953 nil = C_nil;
6954 if (exception_pending()) goto v0025;
6955 env = stack[-4];
6956 v0257 = elt(env, 7); /* " has zero expansion to order " */
6957 v0528 = stack[-2];
6958 v0528 = list4(stack[0], v0160, v0257, v0528);
6959 nil = C_nil;
6960 if (exception_pending()) goto v0025;
6961 env = stack[-4];
6962 v0257 = v0528;
6963 v0528 = v0257;
6964 qvalue(elt(env, 8)) = v0528; /* errmsg!* */
6965 v0528 = qvalue(elt(env, 9)); /* !*protfg */
6966 if (!(v0528 == nil)) goto v0268;
6967 v0528 = v0257;
6968 fn = elt(env, 17); /* lprie */
6969 v0528 = (*qfn1(fn))(qenv(fn), v0528);
6970 nil = C_nil;
6971 if (exception_pending()) goto v0025;
6972 env = stack[-4];
6973 goto v0268;
6974
6975 v0268:
6976 v0528 = Lerror0(nil, 0);
6977 nil = C_nil;
6978 if (exception_pending()) goto v0025;
6979 env = stack[-4];
6980 goto v0479;
6981 /* error exit handlers */
6982 v0025:
6983 env = stack[-4];
6984 qvalue(elt(env, 1)) = stack[-3]; /* ps */
6985 popv(5);
6986 return nil;
6987 }
6988
6989
6990
6991 /* Code for specrd!:sqrt */
6992
CC_specrdTsqrt(Lisp_Object env,Lisp_Object v0000)6993 static Lisp_Object CC_specrdTsqrt(Lisp_Object env,
6994 Lisp_Object v0000)
6995 {
6996 Lisp_Object nil = C_nil;
6997 Lisp_Object v0529, v0530, v0219;
6998 Lisp_Object fn;
6999 CSL_IGNORE(nil);
7000 #ifdef DEBUG
7001 if (check_env(env)) return aerror("env for specrd:sqrt");
7002 #endif
7003 if (stack >= stacklimit)
7004 {
7005 push(v0000);
7006 env = reclaim(env, "stack", GC_STACK, 0);
7007 pop(v0000);
7008 nil = C_nil;
7009 if (exception_pending()) return nil;
7010 }
7011 push(env);
7012 /* space for vars preserved across procedure calls */
7013 push(nil);
7014 /* copy arguments values to proper place */
7015 v0530 = v0000;
7016 /* end of prologue */
7017 v0219 = v0530;
7018 v0529 = elt(env, 1); /* (!:rd!: . 0.0) */
7019 if (equal(v0219, v0529)) goto v0211;
7020 v0219 = v0530;
7021 v0529 = (Lisp_Object)1; /* 0 */
7022 v0529 = (v0219 == v0529 ? lisp_true : nil);
7023 goto v0189;
7024
7025 v0189:
7026 if (v0529 == nil) goto v0050;
7027 v0529 = elt(env, 1); /* (!:rd!: . 0.0) */
7028 { popv(2); return onevalue(v0529); }
7029
7030 v0050:
7031 v0219 = v0530;
7032 v0529 = elt(env, 3); /* minus */
7033 if (!consp(v0219)) goto v0238;
7034 v0219 = qcar(v0219);
7035 if (!(v0219 == v0529)) goto v0238;
7036 stack[0] = elt(env, 4); /* !:rd!: */
7037 v0529 = v0530;
7038 v0529 = qcdr(v0529);
7039 v0529 = qcar(v0529);
7040 v0529 = qcdr(v0529);
7041 v0529 = negate(v0529);
7042 nil = C_nil;
7043 if (exception_pending()) goto v0179;
7044 env = stack[-1];
7045 v0529 = cons(stack[0], v0529);
7046 nil = C_nil;
7047 if (exception_pending()) goto v0179;
7048 env = stack[-1];
7049 v0530 = v0529;
7050 goto v0238;
7051
7052 v0238:
7053 v0529 = v0530;
7054 if (!(!consp(v0529))) goto v0045;
7055 v0529 = v0530;
7056 v0529 = Lfloat(nil, v0529);
7057 nil = C_nil;
7058 if (exception_pending()) goto v0179;
7059 env = stack[-1];
7060 v0530 = v0529;
7061 if (!(!consp(v0530))) goto v0220;
7062 v0530 = elt(env, 4); /* !:rd!: */
7063 v0529 = cons(v0530, v0529);
7064 nil = C_nil;
7065 if (exception_pending()) goto v0179;
7066 env = stack[-1];
7067 goto v0220;
7068
7069 v0220:
7070 v0530 = v0529;
7071 goto v0045;
7072
7073 v0045:
7074 v0529 = v0530;
7075 {
7076 popv(2);
7077 fn = elt(env, 5); /* rdsqrt!* */
7078 return (*qfn1(fn))(qenv(fn), v0529);
7079 }
7080
7081 v0211:
7082 v0529 = qvalue(elt(env, 2)); /* t */
7083 goto v0189;
7084 /* error exit handlers */
7085 v0179:
7086 popv(2);
7087 return nil;
7088 }
7089
7090
7091
7092 /* Code for weak_xreduce */
7093
CC_weak_xreduce(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0080)7094 static Lisp_Object CC_weak_xreduce(Lisp_Object env,
7095 Lisp_Object v0000, Lisp_Object v0080)
7096 {
7097 Lisp_Object nil = C_nil;
7098 Lisp_Object v0219, v0062, v0179;
7099 Lisp_Object fn;
7100 CSL_IGNORE(nil);
7101 #ifdef DEBUG
7102 if (check_env(env)) return aerror("env for weak_xreduce");
7103 #endif
7104 if (stack >= stacklimit)
7105 {
7106 push2(v0080,v0000);
7107 env = reclaim(env, "stack", GC_STACK, 0);
7108 pop2(v0000,v0080);
7109 nil = C_nil;
7110 if (exception_pending()) return nil;
7111 }
7112 push(env);
7113 /* space for vars preserved across procedure calls */
7114 push3(nil, nil, nil);
7115 /* copy arguments values to proper place */
7116 stack[0] = v0080;
7117 stack[-1] = v0000;
7118 /* end of prologue */
7119 v0219 = qvalue(elt(env, 1)); /* nil */
7120 v0219 = ncons(v0219);
7121 nil = C_nil;
7122 if (exception_pending()) goto v0039;
7123 env = stack[-3];
7124 stack[-2] = v0219;
7125 v0219 = qvalue(elt(env, 2)); /* !*trxmod */
7126 if (v0219 == nil) goto v0191;
7127 v0219 = stack[-1];
7128 fn = elt(env, 7); /* preppf */
7129 v0219 = (*qfn1(fn))(qenv(fn), v0219);
7130 nil = C_nil;
7131 if (exception_pending()) goto v0039;
7132 env = stack[-3];
7133 v0219 = Lmkquote(nil, v0219);
7134 nil = C_nil;
7135 if (exception_pending()) goto v0039;
7136 env = stack[-3];
7137 fn = elt(env, 8); /* eval */
7138 v0179 = (*qfn1(fn))(qenv(fn), v0219);
7139 nil = C_nil;
7140 if (exception_pending()) goto v0039;
7141 env = stack[-3];
7142 v0062 = qvalue(elt(env, 1)); /* nil */
7143 v0219 = nil;
7144 fn = elt(env, 9); /* assgnpri */
7145 v0219 = (*qfnn(fn))(qenv(fn), 3, v0179, v0062, v0219);
7146 nil = C_nil;
7147 if (exception_pending()) goto v0039;
7148 env = stack[-3];
7149 v0219 = elt(env, 3); /* " =" */
7150 fn = elt(env, 8); /* eval */
7151 v0179 = (*qfn1(fn))(qenv(fn), v0219);
7152 nil = C_nil;
7153 if (exception_pending()) goto v0039;
7154 env = stack[-3];
7155 v0062 = qvalue(elt(env, 1)); /* nil */
7156 v0219 = elt(env, 4); /* last */
7157 fn = elt(env, 9); /* assgnpri */
7158 v0219 = (*qfnn(fn))(qenv(fn), 3, v0179, v0062, v0219);
7159 nil = C_nil;
7160 if (exception_pending()) goto v0039;
7161 env = stack[-3];
7162 goto v0191;
7163
7164 v0191:
7165 v0179 = stack[-1];
7166 v0062 = stack[0];
7167 v0219 = stack[-2];
7168 fn = elt(env, 10); /* weak_xreduce1 */
7169 v0219 = (*qfnn(fn))(qenv(fn), 3, v0179, v0062, v0219);
7170 nil = C_nil;
7171 if (exception_pending()) goto v0039;
7172 env = stack[-3];
7173 stack[0] = v0219;
7174 v0219 = qvalue(elt(env, 2)); /* !*trxmod */
7175 if (v0219 == nil) { Lisp_Object res = stack[0]; popv(4); return onevalue(res); }
7176 v0219 = elt(env, 5); /* " " */
7177 fn = elt(env, 8); /* eval */
7178 v0179 = (*qfn1(fn))(qenv(fn), v0219);
7179 nil = C_nil;
7180 if (exception_pending()) goto v0039;
7181 env = stack[-3];
7182 v0062 = qvalue(elt(env, 1)); /* nil */
7183 v0219 = elt(env, 6); /* first */
7184 fn = elt(env, 9); /* assgnpri */
7185 v0219 = (*qfnn(fn))(qenv(fn), 3, v0179, v0062, v0219);
7186 nil = C_nil;
7187 if (exception_pending()) goto v0039;
7188 env = stack[-3];
7189 v0219 = stack[0];
7190 fn = elt(env, 7); /* preppf */
7191 v0219 = (*qfn1(fn))(qenv(fn), v0219);
7192 nil = C_nil;
7193 if (exception_pending()) goto v0039;
7194 env = stack[-3];
7195 v0219 = Lmkquote(nil, v0219);
7196 nil = C_nil;
7197 if (exception_pending()) goto v0039;
7198 env = stack[-3];
7199 fn = elt(env, 8); /* eval */
7200 v0179 = (*qfn1(fn))(qenv(fn), v0219);
7201 nil = C_nil;
7202 if (exception_pending()) goto v0039;
7203 env = stack[-3];
7204 v0062 = qvalue(elt(env, 1)); /* nil */
7205 v0219 = elt(env, 4); /* last */
7206 fn = elt(env, 9); /* assgnpri */
7207 v0219 = (*qfnn(fn))(qenv(fn), 3, v0179, v0062, v0219);
7208 nil = C_nil;
7209 if (exception_pending()) goto v0039;
7210 { Lisp_Object res = stack[0]; popv(4); return onevalue(res); }
7211 /* error exit handlers */
7212 v0039:
7213 popv(4);
7214 return nil;
7215 }
7216
7217
7218
7219 /* Code for !:dm2fix */
7220
CC_Tdm2fix(Lisp_Object env,Lisp_Object v0000)7221 static Lisp_Object CC_Tdm2fix(Lisp_Object env,
7222 Lisp_Object v0000)
7223 {
7224 Lisp_Object nil = C_nil;
7225 Lisp_Object v0046;
7226 Lisp_Object fn;
7227 CSL_IGNORE(nil);
7228 #ifdef DEBUG
7229 if (check_env(env)) return aerror("env for :dm2fix");
7230 #endif
7231 if (stack >= stacklimit)
7232 {
7233 push(v0000);
7234 env = reclaim(env, "stack", GC_STACK, 0);
7235 pop(v0000);
7236 nil = C_nil;
7237 if (exception_pending()) return nil;
7238 }
7239 push(env);
7240 /* space for vars preserved across procedure calls */
7241 push4(nil, nil, nil, nil);
7242 /* copy arguments values to proper place */
7243 stack[-2] = v0000;
7244 /* end of prologue */
7245 v0046 = stack[-2];
7246 v0046 = integerp(v0046);
7247 if (!(v0046 == nil)) { Lisp_Object res = stack[-2]; popv(5); return onevalue(res); }
7248 v0046 = qvalue(elt(env, 1)); /* nil */
7249 stack[-3] = qvalue(elt(env, 2)); /* !*noequiv */
7250 qvalue(elt(env, 2)) = v0046; /* !*noequiv */
7251 v0046 = stack[-2];
7252 fn = elt(env, 4); /* int!-equiv!-chk */
7253 v0046 = (*qfn1(fn))(qenv(fn), v0046);
7254 nil = C_nil;
7255 if (exception_pending()) goto v0508;
7256 env = stack[-4];
7257 stack[-2] = v0046;
7258 v0046 = integerp(v0046);
7259 if (v0046 == nil) goto v0254;
7260 v0046 = stack[-2];
7261 goto v0091;
7262
7263 v0091:
7264 qvalue(elt(env, 2)) = stack[-3]; /* !*noequiv */
7265 { popv(5); return onevalue(v0046); }
7266
7267 v0254:
7268 v0046 = stack[-2];
7269 if (v0046 == nil) goto v0052;
7270 v0046 = stack[-2];
7271 v0046 = qcdr(v0046);
7272 v0046 = Lfloatp(nil, v0046);
7273 env = stack[-4];
7274 if (v0046 == nil) goto v0210;
7275 stack[-1] = elt(env, 3); /* 0.0 */
7276 v0046 = stack[-2];
7277 stack[0] = qcdr(v0046);
7278 v0046 = stack[-2];
7279 v0046 = qcdr(v0046);
7280 v0046 = Ltruncate(nil, v0046);
7281 nil = C_nil;
7282 if (exception_pending()) goto v0508;
7283 env = stack[-4];
7284 v0046 = difference2(stack[0], v0046);
7285 nil = C_nil;
7286 if (exception_pending()) goto v0508;
7287 env = stack[-4];
7288 if (!(equal(stack[-1], v0046))) goto v0210;
7289 v0046 = stack[-2];
7290 v0046 = qcdr(v0046);
7291 v0046 = Ltruncate(nil, v0046);
7292 nil = C_nil;
7293 if (exception_pending()) goto v0508;
7294 env = stack[-4];
7295 goto v0091;
7296
7297 v0210:
7298 v0046 = stack[-2];
7299 goto v0091;
7300
7301 v0052:
7302 v0046 = (Lisp_Object)1; /* 0 */
7303 goto v0091;
7304 /* error exit handlers */
7305 v0508:
7306 env = stack[-4];
7307 qvalue(elt(env, 2)) = stack[-3]; /* !*noequiv */
7308 popv(5);
7309 return nil;
7310 }
7311
7312
7313
7314 setup_type const u50_setup[] =
7315 {
7316 {"lengthf", CC_lengthf, too_many_1, wrong_no_1},
7317 {"xreduce1", wrong_no_na, wrong_no_nb, (n_args *)CC_xreduce1},
7318 {"subsetneqp", too_few_2, CC_subsetneqp, wrong_no_2},
7319 {"exp:", too_few_2, CC_expT, wrong_no_2},
7320 {"simpinnerprod", CC_simpinnerprod,too_many_1, wrong_no_1},
7321 {"new_edge", too_few_2, CC_new_edge, wrong_no_2},
7322 {"generic-sub", too_few_2, CC_genericKsub,wrong_no_2},
7323 {"fs:intequiv:", CC_fsTintequivT,too_many_1, wrong_no_1},
7324 {"all_index_lst", CC_all_index_lst,too_many_1, wrong_no_1},
7325 {"eval_uni_poly", too_few_2, CC_eval_uni_poly,wrong_no_2},
7326 {"liqsimp1-check", wrong_no_na, wrong_no_nb, (n_args *)CC_liqsimp1Kcheck},
7327 {"rule-list", too_few_2, CC_ruleKlist, wrong_no_2},
7328 {"qqe_prefix-length", CC_qqe_prefixKlength,too_many_1,wrong_no_1},
7329 {"cpr_buchcrit4t", too_few_2, CC_cpr_buchcrit4t,wrong_no_2},
7330 {"rewrite2", too_few_2, CC_rewrite2, wrong_no_2},
7331 {"tchscheme2", wrong_no_na, wrong_no_nb, (n_args *)CC_tchscheme2},
7332 {"num", CC_num, too_many_1, wrong_no_1},
7333 {"updkorder", CC_updkorder, too_many_1, wrong_no_1},
7334 {"xadd", wrong_no_na, wrong_no_nb, (n_args *)CC_xadd},
7335 {"liendimcom", CC_liendimcom, too_many_1, wrong_no_1},
7336 {"sc_create", CC_sc_create, too_many_1, wrong_no_1},
7337 {"modroots1", too_few_2, CC_modroots1, wrong_no_2},
7338 {"quotfail-mod-p", too_few_2, CC_quotfailKmodKp,wrong_no_2},
7339 {"setqdeletedescendants", CC_setqdeletedescendants,too_many_1,wrong_no_1},
7340 {"rl_ex", too_few_2, CC_rl_ex, wrong_no_2},
7341 {"ofsf_smdbgetrel", too_few_2, CC_ofsf_smdbgetrel,wrong_no_2},
7342 {"addcoeffs", wrong_no_na, wrong_no_nb, (n_args *)CC_addcoeffs},
7343 {"mk_resimp_rep", CC_mk_resimp_rep,too_many_1, wrong_no_1},
7344 {"subst-cn", wrong_no_na, wrong_no_nb, (n_args *)CC_substKcn},
7345 {"qqe_qadd-inside-at", CC_qqe_qaddKinsideKat,too_many_1,wrong_no_1},
7346 {"ratpoly_pp", CC_ratpoly_pp, too_many_1, wrong_no_1},
7347 {"ps:find-order1", CC_psTfindKorder1,too_many_1, wrong_no_1},
7348 {"specrd:sqrt", CC_specrdTsqrt, too_many_1, wrong_no_1},
7349 {"weak_xreduce", too_few_2, CC_weak_xreduce,wrong_no_2},
7350 {":dm2fix", CC_Tdm2fix, too_many_1, wrong_no_1},
7351 {NULL, (one_args *)"u50", (two_args *)"17476 3001648 3906819", 0}
7352 };
7353
7354 /* end of generated code */
7355