1
2 /* $destdir\u52.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 relationrd */
2280
CC_relationrd(Lisp_Object env,Lisp_Object v0000)2281 static Lisp_Object CC_relationrd(Lisp_Object env,
2282 Lisp_Object v0000)
2283 {
2284 Lisp_Object nil = C_nil;
2285 Lisp_Object v0029, v0030, v0031;
2286 Lisp_Object fn;
2287 CSL_IGNORE(nil);
2288 #ifdef DEBUG
2289 if (check_env(env)) return aerror("env for relationrd");
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 push2(nil, nil);
2302 /* copy arguments values to proper place */
2303 stack[0] = v0000;
2304 /* end of prologue */
2305 stack[-1] = nil;
2306 fn = elt(env, 15); /* stats_getargs */
2307 v0029 = (*qfnn(fn))(qenv(fn), 0);
2308 nil = C_nil;
2309 if (exception_pending()) goto v0032;
2310 env = stack[-2];
2311 v0031 = v0029;
2312 v0030 = stack[0];
2313 v0029 = elt(env, 1); /* (quote eq) */
2314 if (equal(v0030, v0029)) goto v0033;
2315 v0030 = stack[0];
2316 v0029 = elt(env, 3); /* (quote lt) */
2317 if (equal(v0030, v0029)) goto v0034;
2318 v0030 = stack[0];
2319 v0029 = elt(env, 5); /* (quote gt) */
2320 if (equal(v0030, v0029)) goto v0035;
2321 v0030 = stack[0];
2322 v0029 = elt(env, 7); /* (quote subset) */
2323 if (equal(v0030, v0029)) goto v0036;
2324 v0030 = stack[0];
2325 v0029 = elt(env, 8); /* (quote prsubset) */
2326 if (equal(v0030, v0029)) goto v0037;
2327 v0030 = stack[0];
2328 v0029 = elt(env, 9); /* (quote geq) */
2329 if (equal(v0030, v0029)) goto v0038;
2330 v0030 = stack[0];
2331 v0029 = elt(env, 11); /* (quote leq) */
2332 if (!(equal(v0030, v0029))) goto v0039;
2333 v0029 = elt(env, 12); /* leq */
2334 v0030 = v0031;
2335 v0029 = cons(v0029, v0030);
2336 nil = C_nil;
2337 if (exception_pending()) goto v0032;
2338 env = stack[-2];
2339 stack[-1] = v0029;
2340 goto v0039;
2341
2342 v0039:
2343 v0030 = stack[-1];
2344 v0029 = qvalue(elt(env, 13)); /* t */
2345 if (equal(v0030, v0029)) goto v0040;
2346 v0029 = stack[-1];
2347 if (!(v0029 == nil)) { Lisp_Object res = stack[-1]; popv(3); return onevalue(res); }
2348 v0029 = elt(env, 14); /* false */
2349 { popv(3); return onevalue(v0029); }
2350
2351 v0040:
2352 v0029 = qvalue(elt(env, 13)); /* t */
2353 { popv(3); return onevalue(v0029); }
2354
2355 v0038:
2356 v0029 = elt(env, 10); /* geq */
2357 v0030 = v0031;
2358 v0029 = cons(v0029, v0030);
2359 nil = C_nil;
2360 if (exception_pending()) goto v0032;
2361 env = stack[-2];
2362 stack[-1] = v0029;
2363 goto v0039;
2364
2365 v0037:
2366 v0029 = v0031;
2367 fn = elt(env, 16); /* prsubsetrd */
2368 v0029 = (*qfn1(fn))(qenv(fn), v0029);
2369 nil = C_nil;
2370 if (exception_pending()) goto v0032;
2371 env = stack[-2];
2372 stack[-1] = v0029;
2373 goto v0039;
2374
2375 v0036:
2376 v0029 = v0031;
2377 fn = elt(env, 17); /* subsetrd */
2378 v0029 = (*qfn1(fn))(qenv(fn), v0029);
2379 nil = C_nil;
2380 if (exception_pending()) goto v0032;
2381 env = stack[-2];
2382 stack[-1] = v0029;
2383 goto v0039;
2384
2385 v0035:
2386 v0029 = elt(env, 6); /* greaterp */
2387 v0030 = v0031;
2388 v0029 = cons(v0029, v0030);
2389 nil = C_nil;
2390 if (exception_pending()) goto v0032;
2391 env = stack[-2];
2392 stack[-1] = v0029;
2393 goto v0039;
2394
2395 v0034:
2396 v0029 = elt(env, 4); /* lessp */
2397 v0030 = v0031;
2398 v0029 = cons(v0029, v0030);
2399 nil = C_nil;
2400 if (exception_pending()) goto v0032;
2401 env = stack[-2];
2402 stack[-1] = v0029;
2403 goto v0039;
2404
2405 v0033:
2406 v0029 = elt(env, 2); /* equal */
2407 v0030 = v0031;
2408 v0029 = cons(v0029, v0030);
2409 nil = C_nil;
2410 if (exception_pending()) goto v0032;
2411 env = stack[-2];
2412 stack[-1] = v0029;
2413 goto v0039;
2414 /* error exit handlers */
2415 v0032:
2416 popv(3);
2417 return nil;
2418 }
2419
2420
2421
2422 /* Code for numlistp */
2423
CC_numlistp(Lisp_Object env,Lisp_Object v0000)2424 static Lisp_Object CC_numlistp(Lisp_Object env,
2425 Lisp_Object v0000)
2426 {
2427 Lisp_Object nil = C_nil;
2428 Lisp_Object v0041, v0042;
2429 CSL_IGNORE(nil);
2430 #ifdef DEBUG
2431 if (check_env(env)) return aerror("env for numlistp");
2432 #endif
2433 CSL_IGNORE(env);
2434 /* copy arguments values to proper place */
2435 v0041 = v0000;
2436 /* end of prologue */
2437
2438 v0043:
2439 v0042 = v0041;
2440 if (v0042 == nil) goto v0044;
2441 v0042 = v0041;
2442 v0042 = qcar(v0042);
2443 if (is_number(v0042)) goto v0028;
2444 v0041 = qvalue(elt(env, 2)); /* nil */
2445 return onevalue(v0041);
2446
2447 v0028:
2448 v0041 = qcdr(v0041);
2449 goto v0043;
2450
2451 v0044:
2452 v0041 = qvalue(elt(env, 1)); /* t */
2453 return onevalue(v0041);
2454 }
2455
2456
2457
2458 /* Code for prinindexs */
2459
CC_prinindexs(Lisp_Object env,Lisp_Object v0000)2460 static Lisp_Object CC_prinindexs(Lisp_Object env,
2461 Lisp_Object v0000)
2462 {
2463 Lisp_Object nil = C_nil;
2464 Lisp_Object v0049, v0050, v0051, v0052;
2465 Lisp_Object fn;
2466 CSL_IGNORE(nil);
2467 #ifdef DEBUG
2468 if (check_env(env)) return aerror("env for prinindexs");
2469 #endif
2470 if (stack >= stacklimit)
2471 {
2472 push(v0000);
2473 env = reclaim(env, "stack", GC_STACK, 0);
2474 pop(v0000);
2475 nil = C_nil;
2476 if (exception_pending()) return nil;
2477 }
2478 push(env);
2479 /* space for vars preserved across procedure calls */
2480 push(nil);
2481 /* copy arguments values to proper place */
2482 v0052 = v0000;
2483 /* end of prologue */
2484 v0051 = nil;
2485 v0049 = v0052;
2486 v0050 = v0049;
2487 goto v0053;
2488
2489 v0053:
2490 v0049 = v0050;
2491 if (v0049 == nil) goto v0054;
2492 v0049 = v0050;
2493 v0049 = qcar(v0049);
2494 if (!consp(v0049)) goto v0055;
2495 v0049 = qvalue(elt(env, 2)); /* t */
2496 v0051 = v0049;
2497 goto v0055;
2498
2499 v0055:
2500 v0049 = v0050;
2501 v0049 = qcdr(v0049);
2502 v0050 = v0049;
2503 goto v0053;
2504
2505 v0054:
2506 v0049 = v0051;
2507 if (v0049 == nil) goto v0056;
2508 v0050 = elt(env, 3); /* !*comma!* */
2509 v0049 = (Lisp_Object)1; /* 0 */
2510 v0051 = v0052;
2511 fn = elt(env, 4); /* inprinla */
2512 v0049 = (*qfnn(fn))(qenv(fn), 3, v0050, v0049, v0051);
2513 nil = C_nil;
2514 if (exception_pending()) goto v0016;
2515 goto v0057;
2516
2517 v0057:
2518 v0049 = nil;
2519 { popv(2); return onevalue(v0049); }
2520
2521 v0056:
2522 v0049 = v0052;
2523 stack[0] = v0049;
2524 goto v0058;
2525
2526 v0058:
2527 v0049 = stack[0];
2528 if (v0049 == nil) goto v0057;
2529 v0049 = stack[0];
2530 v0049 = qcar(v0049);
2531 fn = elt(env, 5); /* prinlatom */
2532 v0049 = (*qfn1(fn))(qenv(fn), v0049);
2533 nil = C_nil;
2534 if (exception_pending()) goto v0016;
2535 env = stack[-1];
2536 v0049 = stack[0];
2537 v0049 = qcdr(v0049);
2538 stack[0] = v0049;
2539 goto v0058;
2540 /* error exit handlers */
2541 v0016:
2542 popv(2);
2543 return nil;
2544 }
2545
2546
2547
2548 /* Code for redexpp */
2549
CC_redexpp(Lisp_Object env,Lisp_Object v0000)2550 static Lisp_Object CC_redexpp(Lisp_Object env,
2551 Lisp_Object v0000)
2552 {
2553 Lisp_Object nil = C_nil;
2554 Lisp_Object v0061, v0062, v0063;
2555 CSL_IGNORE(nil);
2556 #ifdef DEBUG
2557 if (check_env(env)) return aerror("env for redexpp");
2558 #endif
2559 CSL_IGNORE(env);
2560 /* copy arguments values to proper place */
2561 v0063 = v0000;
2562 /* end of prologue */
2563 v0061 = v0063;
2564 if (!consp(v0061)) goto v0044;
2565 v0061 = v0063;
2566 v0062 = qcar(v0061);
2567 v0061 = qvalue(elt(env, 2)); /* !*redarithexpops!* */
2568 v0061 = Lmemq(nil, v0062, v0061);
2569 if (!(v0061 == nil)) return onevalue(v0061);
2570 v0061 = v0063;
2571 v0062 = qcar(v0061);
2572 v0061 = qvalue(elt(env, 3)); /* !*redlogexpops!* */
2573 v0061 = Lmemq(nil, v0062, v0061);
2574 if (!(v0061 == nil)) return onevalue(v0061);
2575 v0061 = v0063;
2576 v0061 = qcar(v0061);
2577 v0062 = qvalue(elt(env, 4)); /* !*redreswds!* */
2578 v0061 = Lmemq(nil, v0061, v0062);
2579 v0061 = (v0061 == nil ? lisp_true : nil);
2580 return onevalue(v0061);
2581
2582 v0044:
2583 v0061 = qvalue(elt(env, 1)); /* t */
2584 return onevalue(v0061);
2585 }
2586
2587
2588
2589 /* Code for let0 */
2590
CC_let0(Lisp_Object env,Lisp_Object v0000)2591 static Lisp_Object CC_let0(Lisp_Object env,
2592 Lisp_Object v0000)
2593 {
2594 Lisp_Object nil = C_nil;
2595 Lisp_Object v0064, v0054;
2596 Lisp_Object fn;
2597 CSL_IGNORE(nil);
2598 #ifdef DEBUG
2599 if (check_env(env)) return aerror("env for let0");
2600 #endif
2601 if (stack >= stacklimit)
2602 {
2603 push(v0000);
2604 env = reclaim(env, "stack", GC_STACK, 0);
2605 pop(v0000);
2606 nil = C_nil;
2607 if (exception_pending()) return nil;
2608 }
2609 push(env);
2610 /* space for vars preserved across procedure calls */
2611 push(nil);
2612 /* copy arguments values to proper place */
2613 v0054 = v0000;
2614 /* end of prologue */
2615 v0064 = qvalue(elt(env, 1)); /* nil */
2616 stack[0] = qvalue(elt(env, 2)); /* frasc!* */
2617 qvalue(elt(env, 2)) = v0064; /* frasc!* */
2618 v0064 = v0054;
2619 fn = elt(env, 3); /* let00 */
2620 v0064 = (*qfn1(fn))(qenv(fn), v0064);
2621 nil = C_nil;
2622 if (exception_pending()) goto v0065;
2623 env = stack[-1];
2624 qvalue(elt(env, 2)) = stack[0]; /* frasc!* */
2625 { popv(2); return onevalue(v0064); }
2626 /* error exit handlers */
2627 v0065:
2628 env = stack[-1];
2629 qvalue(elt(env, 2)) = stack[0]; /* frasc!* */
2630 popv(2);
2631 return nil;
2632 }
2633
2634
2635
2636 /* Code for mk!-strand!-vertex */
2637
CC_mkKstrandKvertex(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)2638 static Lisp_Object CC_mkKstrandKvertex(Lisp_Object env,
2639 Lisp_Object v0000, Lisp_Object v0066)
2640 {
2641 Lisp_Object nil = C_nil;
2642 Lisp_Object v0051, v0052, v0015;
2643 Lisp_Object fn;
2644 CSL_IGNORE(nil);
2645 #ifdef DEBUG
2646 if (check_env(env)) return aerror("env for mk-strand-vertex");
2647 #endif
2648 if (stack >= stacklimit)
2649 {
2650 push2(v0066,v0000);
2651 env = reclaim(env, "stack", GC_STACK, 0);
2652 pop2(v0000,v0066);
2653 nil = C_nil;
2654 if (exception_pending()) return nil;
2655 }
2656 push(env);
2657 /* space for vars preserved across procedure calls */
2658 push4(nil, nil, nil, nil);
2659 /* copy arguments values to proper place */
2660 v0051 = v0066;
2661 stack[-2] = v0000;
2662 /* end of prologue */
2663 v0015 = stack[-2];
2664 v0052 = v0051;
2665 v0051 = (Lisp_Object)17; /* 1 */
2666 fn = elt(env, 1); /* incident */
2667 v0051 = (*qfnn(fn))(qenv(fn), 3, v0015, v0052, v0051);
2668 nil = C_nil;
2669 if (exception_pending()) goto v0070;
2670 env = stack[-4];
2671 v0052 = v0051;
2672 v0051 = v0052;
2673 v0051 = qcar(v0051);
2674 stack[-3] = v0051;
2675 stack[-1] = stack[-2];
2676 v0051 = v0052;
2677 stack[0] = qcdr(v0051);
2678 v0051 = stack[-3];
2679 v0051 = qcar(v0051);
2680 v0051 = qcdr(v0051);
2681 v0051 = add1(v0051);
2682 nil = C_nil;
2683 if (exception_pending()) goto v0070;
2684 env = stack[-4];
2685 fn = elt(env, 1); /* incident */
2686 v0051 = (*qfnn(fn))(qenv(fn), 3, stack[-1], stack[0], v0051);
2687 nil = C_nil;
2688 if (exception_pending()) goto v0070;
2689 env = stack[-4];
2690 v0052 = v0051;
2691 v0051 = v0052;
2692 if (v0051 == nil) goto v0071;
2693 v0051 = v0052;
2694 v0051 = qcar(v0051);
2695 goto v0072;
2696
2697 v0072:
2698 v0015 = stack[-2];
2699 v0052 = stack[-3];
2700 {
2701 popv(5);
2702 fn = elt(env, 2); /* mk!-strand!-vertex2 */
2703 return (*qfnn(fn))(qenv(fn), 3, v0015, v0052, v0051);
2704 }
2705
2706 v0071:
2707 v0052 = stack[-2];
2708 v0051 = (Lisp_Object)1; /* 0 */
2709 v0051 = cons(v0052, v0051);
2710 nil = C_nil;
2711 if (exception_pending()) goto v0070;
2712 env = stack[-4];
2713 v0051 = ncons(v0051);
2714 nil = C_nil;
2715 if (exception_pending()) goto v0070;
2716 env = stack[-4];
2717 goto v0072;
2718 /* error exit handlers */
2719 v0070:
2720 popv(5);
2721 return nil;
2722 }
2723
2724
2725
2726 /* Code for compactf2 */
2727
CC_compactf2(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0066,Lisp_Object v0006,...)2728 static Lisp_Object MS_CDECL CC_compactf2(Lisp_Object env, int nargs,
2729 Lisp_Object v0000, Lisp_Object v0066,
2730 Lisp_Object v0006, ...)
2731 {
2732 Lisp_Object nil = C_nil;
2733 Lisp_Object v0081, v0038, v0082;
2734 Lisp_Object fn;
2735 CSL_IGNORE(nil);
2736 argcheck(nargs, 3, "compactf2");
2737 #ifdef DEBUG
2738 if (check_env(env)) return aerror("env for compactf2");
2739 #endif
2740 if (stack >= stacklimit)
2741 {
2742 push3(v0006,v0066,v0000);
2743 env = reclaim(env, "stack", GC_STACK, 0);
2744 pop3(v0000,v0066,v0006);
2745 nil = C_nil;
2746 if (exception_pending()) return nil;
2747 }
2748 push(env);
2749 /* space for vars preserved across procedure calls */
2750 push5(nil, nil, nil, nil, nil);
2751 /* copy arguments values to proper place */
2752 stack[-1] = v0006;
2753 stack[-2] = v0066;
2754 stack[-3] = v0000;
2755 /* end of prologue */
2756 stack[-4] = nil;
2757 goto v0054;
2758
2759 v0054:
2760 v0081 = stack[-3];
2761 if (!consp(v0081)) goto v0083;
2762 v0081 = stack[-3];
2763 v0081 = qcar(v0081);
2764 v0081 = (consp(v0081) ? nil : lisp_true);
2765 goto v0084;
2766
2767 v0084:
2768 if (v0081 == nil) goto v0023;
2769 v0038 = stack[-4];
2770 v0081 = stack[-3];
2771 {
2772 popv(6);
2773 fn = elt(env, 2); /* nreverse */
2774 return (*qfn2(fn))(qenv(fn), v0038, v0081);
2775 }
2776
2777 v0023:
2778 v0081 = stack[-3];
2779 v0081 = qcar(v0081);
2780 v0081 = qcar(v0081);
2781 v0038 = qcar(v0081);
2782 v0081 = stack[-1];
2783 v0081 = Lmemq(nil, v0038, v0081);
2784 if (v0081 == nil) goto v0051;
2785 stack[0] = stack[-4];
2786 v0082 = stack[-3];
2787 v0038 = stack[-2];
2788 v0081 = stack[-1];
2789 fn = elt(env, 3); /* compactf3 */
2790 v0081 = (*qfnn(fn))(qenv(fn), 3, v0082, v0038, v0081);
2791 nil = C_nil;
2792 if (exception_pending()) goto v0085;
2793 env = stack[-5];
2794 {
2795 Lisp_Object v0086 = stack[0];
2796 popv(6);
2797 fn = elt(env, 2); /* nreverse */
2798 return (*qfn2(fn))(qenv(fn), v0086, v0081);
2799 }
2800
2801 v0051:
2802 v0081 = stack[-3];
2803 v0081 = qcar(v0081);
2804 stack[0] = qcar(v0081);
2805 v0081 = stack[-3];
2806 v0081 = qcar(v0081);
2807 v0082 = qcdr(v0081);
2808 v0038 = stack[-2];
2809 v0081 = stack[-1];
2810 v0038 = CC_compactf2(env, 3, v0082, v0038, v0081);
2811 nil = C_nil;
2812 if (exception_pending()) goto v0085;
2813 env = stack[-5];
2814 v0081 = stack[-4];
2815 v0081 = acons(stack[0], v0038, v0081);
2816 nil = C_nil;
2817 if (exception_pending()) goto v0085;
2818 env = stack[-5];
2819 stack[-4] = v0081;
2820 v0081 = stack[-3];
2821 v0081 = qcdr(v0081);
2822 stack[-3] = v0081;
2823 goto v0054;
2824
2825 v0083:
2826 v0081 = qvalue(elt(env, 1)); /* t */
2827 goto v0084;
2828 /* error exit handlers */
2829 v0085:
2830 popv(6);
2831 return nil;
2832 }
2833
2834
2835
2836 /* Code for invbase!* */
2837
CC_invbaseH(Lisp_Object env,int nargs,...)2838 static Lisp_Object MS_CDECL CC_invbaseH(Lisp_Object env, int nargs, ...)
2839 {
2840 Lisp_Object nil = C_nil;
2841 Lisp_Object v0206, v0207, v0208, v0209;
2842 Lisp_Object fn;
2843 CSL_IGNORE(nil);
2844 argcheck(nargs, 0, "invbase*");
2845 #ifdef DEBUG
2846 if (check_env(env)) return aerror("env for invbase*");
2847 #endif
2848 if (stack >= stacklimit)
2849 {
2850 env = reclaim(env, "stack", GC_STACK, 0);
2851 nil = C_nil;
2852 if (exception_pending()) return nil;
2853 }
2854 push(env);
2855 /* space for vars preserved across procedure calls */
2856 push5(nil, nil, nil, nil, nil);
2857 push5(nil, nil, nil, nil, nil);
2858 push5(nil, nil, nil, nil, nil);
2859 push(nil);
2860 /* end of prologue */
2861 stack[-14] = qvalue(elt(env, 1)); /* thirdway */
2862 qvalue(elt(env, 1)) = nil; /* thirdway */
2863 stack[-13] = qvalue(elt(env, 2)); /* shortway */
2864 qvalue(elt(env, 2)) = nil; /* shortway */
2865 stack[-12] = nil;
2866 v0206 = qvalue(elt(env, 3)); /* !*trinvbase */
2867 if (v0206 == nil) goto v0069;
2868 v0206 = Lterpri(nil, 0);
2869 nil = C_nil;
2870 if (exception_pending()) goto v0210;
2871 env = stack[-16];
2872 goto v0069;
2873
2874 v0069:
2875 v0206 = (Lisp_Object)-15; /* -1 */
2876 qvalue(elt(env, 4)) = v0206; /* maxord */
2877 stack[-11] = v0206;
2878 v0206 = qvalue(elt(env, 5)); /* path */
2879 if (v0206 == nil) goto v0060;
2880 v0206 = Lterpri(nil, 0);
2881 nil = C_nil;
2882 if (exception_pending()) goto v0210;
2883 env = stack[-16];
2884 goto v0060;
2885
2886 v0060:
2887 v0208 = qvalue(elt(env, 6)); /* nil */
2888 v0207 = qvalue(elt(env, 7)); /* gg */
2889 v0206 = (Lisp_Object)17; /* 1 */
2890 fn = elt(env, 22); /* redall */
2891 v0206 = (*qfnn(fn))(qenv(fn), 3, v0208, v0207, v0206);
2892 nil = C_nil;
2893 if (exception_pending()) goto v0210;
2894 env = stack[-16];
2895 qvalue(elt(env, 7)) = v0206; /* gg */
2896 v0207 = qvalue(elt(env, 7)); /* gg */
2897 v0206 = (Lisp_Object)17; /* 1 */
2898 fn = elt(env, 23); /* newbasis */
2899 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
2900 nil = C_nil;
2901 if (exception_pending()) goto v0210;
2902 env = stack[-16];
2903 v0206 = (Lisp_Object)1; /* 0 */
2904 stack[-10] = v0206;
2905 v0206 = qvalue(elt(env, 7)); /* gg */
2906 stack[0] = v0206;
2907 goto v0035;
2908
2909 v0035:
2910 v0206 = stack[0];
2911 if (v0206 == nil) goto v0211;
2912 v0206 = stack[0];
2913 v0206 = qcar(v0206);
2914 stack[-1] = stack[-10];
2915 v0206 = qcdr(v0206);
2916 fn = elt(env, 24); /* ord */
2917 v0206 = (*qfn1(fn))(qenv(fn), v0206);
2918 nil = C_nil;
2919 if (exception_pending()) goto v0210;
2920 env = stack[-16];
2921 v0206 = plus2(stack[-1], v0206);
2922 nil = C_nil;
2923 if (exception_pending()) goto v0210;
2924 env = stack[-16];
2925 stack[-10] = v0206;
2926 v0206 = stack[0];
2927 v0206 = qcdr(v0206);
2928 stack[0] = v0206;
2929 goto v0035;
2930
2931 v0211:
2932 stack[0] = stack[-10];
2933 v0206 = qvalue(elt(env, 8)); /* varlist */
2934 v0206 = Llength(nil, v0206);
2935 nil = C_nil;
2936 if (exception_pending()) goto v0210;
2937 env = stack[-16];
2938 v0206 = sub1(v0206);
2939 nil = C_nil;
2940 if (exception_pending()) goto v0210;
2941 env = stack[-16];
2942 v0206 = plus2(stack[0], v0206);
2943 nil = C_nil;
2944 if (exception_pending()) goto v0210;
2945 env = stack[-16];
2946 stack[-10] = v0206;
2947 goto v0212;
2948
2949 v0212:
2950 v0206 = qvalue(elt(env, 7)); /* gg */
2951 v0206 = Lreverse(nil, v0206);
2952 nil = C_nil;
2953 if (exception_pending()) goto v0210;
2954 env = stack[-16];
2955 stack[-15] = v0206;
2956 goto v0012;
2957
2958 v0012:
2959 v0206 = stack[-15];
2960 if (v0206 == nil) goto v0011;
2961 v0207 = qvalue(elt(env, 9)); /* bv */
2962 v0206 = stack[-15];
2963 v0206 = qcar(v0206);
2964 v0206 = qcar(v0206);
2965 v0206 = *(Lisp_Object *)((char *)v0207 + (CELL-TAG_VECTOR) + ((int32_t)v0206/(16/CELL)));
2966 if (!(v0206 == nil)) goto v0011;
2967 v0206 = stack[-15];
2968 v0206 = qcdr(v0206);
2969 stack[-15] = v0206;
2970 goto v0012;
2971
2972 v0011:
2973 v0206 = stack[-15];
2974 if (v0206 == nil) goto v0027;
2975 v0206 = stack[-15];
2976 v0206 = qcar(v0206);
2977 v0206 = qcdr(v0206);
2978 v0207 = qcar(v0206);
2979 v0206 = qvalue(elt(env, 7)); /* gg */
2980 v0206 = qcar(v0206);
2981 v0206 = qcdr(v0206);
2982 v0206 = qcar(v0206);
2983 if (!(equal(v0207, v0206))) goto v0213;
2984 v0206 = stack[-11];
2985 v0207 = stack[-15];
2986 v0207 = qcar(v0207);
2987 v0207 = qcdr(v0207);
2988 v0207 = qcar(v0207);
2989 stack[-11] = v0207;
2990 v0207 = qvalue(elt(env, 3)); /* !*trinvbase */
2991 if (v0207 == nil) goto v0214;
2992 v0207 = stack[-11];
2993 v0206 = (Lisp_Object)greaterp2(v0207, v0206);
2994 nil = C_nil;
2995 if (exception_pending()) goto v0210;
2996 v0206 = v0206 ? lisp_true : nil;
2997 env = stack[-16];
2998 if (v0206 == nil) goto v0214;
2999 v0206 = Lterpri(nil, 0);
3000 nil = C_nil;
3001 if (exception_pending()) goto v0210;
3002 env = stack[-16];
3003 v0206 = elt(env, 10); /* "---------- ORDER = " */
3004 v0206 = Lprinc(nil, v0206);
3005 nil = C_nil;
3006 if (exception_pending()) goto v0210;
3007 env = stack[-16];
3008 v0206 = qvalue(elt(env, 7)); /* gg */
3009 v0206 = qcar(v0206);
3010 v0206 = qcdr(v0206);
3011 v0206 = qcar(v0206);
3012 v0206 = Lprinc(nil, v0206);
3013 nil = C_nil;
3014 if (exception_pending()) goto v0210;
3015 env = stack[-16];
3016 v0206 = elt(env, 11); /* " ----------" */
3017 v0206 = Lprinc(nil, v0206);
3018 nil = C_nil;
3019 if (exception_pending()) goto v0210;
3020 env = stack[-16];
3021 v0206 = Lterpri(nil, 0);
3022 nil = C_nil;
3023 if (exception_pending()) goto v0210;
3024 env = stack[-16];
3025 v0206 = Lterpri(nil, 0);
3026 nil = C_nil;
3027 if (exception_pending()) goto v0210;
3028 env = stack[-16];
3029 goto v0214;
3030
3031 v0214:
3032 v0207 = stack[-11];
3033 v0206 = stack[-10];
3034 v0206 = (Lisp_Object)greaterp2(v0207, v0206);
3035 nil = C_nil;
3036 if (exception_pending()) goto v0210;
3037 v0206 = v0206 ? lisp_true : nil;
3038 env = stack[-16];
3039 if (v0206 == nil) goto v0215;
3040 v0208 = qvalue(elt(env, 6)); /* nil */
3041 v0207 = qvalue(elt(env, 7)); /* gg */
3042 v0206 = (Lisp_Object)1; /* 0 */
3043 fn = elt(env, 22); /* redall */
3044 v0206 = (*qfnn(fn))(qenv(fn), 3, v0208, v0207, v0206);
3045 nil = C_nil;
3046 if (exception_pending()) goto v0210;
3047 env = stack[-16];
3048 qvalue(elt(env, 7)) = v0206; /* gg */
3049 v0207 = qvalue(elt(env, 7)); /* gg */
3050 v0206 = (Lisp_Object)1; /* 0 */
3051 fn = elt(env, 23); /* newbasis */
3052 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3053 nil = C_nil;
3054 if (exception_pending()) goto v0210;
3055 env = stack[-16];
3056 v0206 = qvalue(elt(env, 6)); /* nil */
3057 v0206 = ncons(v0206);
3058 nil = C_nil;
3059 if (exception_pending()) goto v0210;
3060 env = stack[-16];
3061 qvalue(elt(env, 12)) = v0206; /* alglist!* */
3062 stack[-9] = elt(env, 13); /* list */
3063 v0206 = qvalue(elt(env, 7)); /* gg */
3064 stack[-8] = v0206;
3065 v0206 = stack[-8];
3066 if (v0206 == nil) goto v0216;
3067 v0206 = stack[-8];
3068 v0206 = qcar(v0206);
3069 stack[-4] = elt(env, 14); /* plus */
3070 v0207 = qvalue(elt(env, 15)); /* gv */
3071 v0206 = qcar(v0206);
3072 v0206 = *(Lisp_Object *)((char *)v0207 + (CELL-TAG_VECTOR) + ((int32_t)v0206/(16/CELL)));
3073 stack[-3] = v0206;
3074 v0206 = stack[-3];
3075 if (v0206 == nil) goto v0217;
3076 v0206 = stack[-3];
3077 v0206 = qcar(v0206);
3078 v0207 = ncons(v0206);
3079 nil = C_nil;
3080 if (exception_pending()) goto v0210;
3081 env = stack[-16];
3082 v0206 = qvalue(elt(env, 8)); /* varlist */
3083 fn = elt(env, 25); /* !*di2q */
3084 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3085 nil = C_nil;
3086 if (exception_pending()) goto v0210;
3087 env = stack[-16];
3088 v0207 = v0206;
3089 v0206 = v0207;
3090 v0206 = qcar(v0206);
3091 if (v0206 == nil) goto v0218;
3092 v0206 = elt(env, 16); /* prepf */
3093 fn = elt(env, 26); /* sqform */
3094 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3095 nil = C_nil;
3096 if (exception_pending()) goto v0210;
3097 env = stack[-16];
3098 goto v0219;
3099
3100 v0219:
3101 v0206 = ncons(v0206);
3102 nil = C_nil;
3103 if (exception_pending()) goto v0210;
3104 env = stack[-16];
3105 stack[-1] = v0206;
3106 stack[-2] = v0206;
3107 goto v0220;
3108
3109 v0220:
3110 v0206 = stack[-3];
3111 v0206 = qcdr(v0206);
3112 stack[-3] = v0206;
3113 v0206 = stack[-3];
3114 if (v0206 == nil) goto v0221;
3115 stack[0] = stack[-1];
3116 v0206 = stack[-3];
3117 v0206 = qcar(v0206);
3118 v0207 = ncons(v0206);
3119 nil = C_nil;
3120 if (exception_pending()) goto v0210;
3121 env = stack[-16];
3122 v0206 = qvalue(elt(env, 8)); /* varlist */
3123 fn = elt(env, 25); /* !*di2q */
3124 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3125 nil = C_nil;
3126 if (exception_pending()) goto v0210;
3127 env = stack[-16];
3128 v0207 = v0206;
3129 v0206 = v0207;
3130 v0206 = qcar(v0206);
3131 if (v0206 == nil) goto v0222;
3132 v0206 = elt(env, 16); /* prepf */
3133 fn = elt(env, 26); /* sqform */
3134 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3135 nil = C_nil;
3136 if (exception_pending()) goto v0210;
3137 env = stack[-16];
3138 goto v0223;
3139
3140 v0223:
3141 v0206 = ncons(v0206);
3142 nil = C_nil;
3143 if (exception_pending()) goto v0210;
3144 env = stack[-16];
3145 v0206 = Lrplacd(nil, stack[0], v0206);
3146 nil = C_nil;
3147 if (exception_pending()) goto v0210;
3148 env = stack[-16];
3149 v0206 = stack[-1];
3150 v0206 = qcdr(v0206);
3151 stack[-1] = v0206;
3152 goto v0220;
3153
3154 v0222:
3155 v0206 = (Lisp_Object)1; /* 0 */
3156 goto v0223;
3157
3158 v0221:
3159 v0206 = stack[-2];
3160 goto v0224;
3161
3162 v0224:
3163 v0206 = cons(stack[-4], v0206);
3164 nil = C_nil;
3165 if (exception_pending()) goto v0210;
3166 env = stack[-16];
3167 v0206 = ncons(v0206);
3168 nil = C_nil;
3169 if (exception_pending()) goto v0210;
3170 env = stack[-16];
3171 stack[-6] = v0206;
3172 stack[-7] = v0206;
3173 goto v0225;
3174
3175 v0225:
3176 v0206 = stack[-8];
3177 v0206 = qcdr(v0206);
3178 stack[-8] = v0206;
3179 v0206 = stack[-8];
3180 if (v0206 == nil) goto v0226;
3181 stack[-5] = stack[-6];
3182 v0206 = stack[-8];
3183 v0206 = qcar(v0206);
3184 stack[-4] = elt(env, 14); /* plus */
3185 v0207 = qvalue(elt(env, 15)); /* gv */
3186 v0206 = qcar(v0206);
3187 v0206 = *(Lisp_Object *)((char *)v0207 + (CELL-TAG_VECTOR) + ((int32_t)v0206/(16/CELL)));
3188 stack[-3] = v0206;
3189 v0206 = stack[-3];
3190 if (v0206 == nil) goto v0227;
3191 v0206 = stack[-3];
3192 v0206 = qcar(v0206);
3193 v0207 = ncons(v0206);
3194 nil = C_nil;
3195 if (exception_pending()) goto v0210;
3196 env = stack[-16];
3197 v0206 = qvalue(elt(env, 8)); /* varlist */
3198 fn = elt(env, 25); /* !*di2q */
3199 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3200 nil = C_nil;
3201 if (exception_pending()) goto v0210;
3202 env = stack[-16];
3203 v0207 = v0206;
3204 v0206 = v0207;
3205 v0206 = qcar(v0206);
3206 if (v0206 == nil) goto v0228;
3207 v0206 = elt(env, 16); /* prepf */
3208 fn = elt(env, 26); /* sqform */
3209 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3210 nil = C_nil;
3211 if (exception_pending()) goto v0210;
3212 env = stack[-16];
3213 goto v0229;
3214
3215 v0229:
3216 v0206 = ncons(v0206);
3217 nil = C_nil;
3218 if (exception_pending()) goto v0210;
3219 env = stack[-16];
3220 stack[-1] = v0206;
3221 stack[-2] = v0206;
3222 goto v0230;
3223
3224 v0230:
3225 v0206 = stack[-3];
3226 v0206 = qcdr(v0206);
3227 stack[-3] = v0206;
3228 v0206 = stack[-3];
3229 if (v0206 == nil) goto v0231;
3230 stack[0] = stack[-1];
3231 v0206 = stack[-3];
3232 v0206 = qcar(v0206);
3233 v0207 = ncons(v0206);
3234 nil = C_nil;
3235 if (exception_pending()) goto v0210;
3236 env = stack[-16];
3237 v0206 = qvalue(elt(env, 8)); /* varlist */
3238 fn = elt(env, 25); /* !*di2q */
3239 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3240 nil = C_nil;
3241 if (exception_pending()) goto v0210;
3242 env = stack[-16];
3243 v0207 = v0206;
3244 v0206 = v0207;
3245 v0206 = qcar(v0206);
3246 if (v0206 == nil) goto v0232;
3247 v0206 = elt(env, 16); /* prepf */
3248 fn = elt(env, 26); /* sqform */
3249 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3250 nil = C_nil;
3251 if (exception_pending()) goto v0210;
3252 env = stack[-16];
3253 goto v0233;
3254
3255 v0233:
3256 v0206 = ncons(v0206);
3257 nil = C_nil;
3258 if (exception_pending()) goto v0210;
3259 env = stack[-16];
3260 v0206 = Lrplacd(nil, stack[0], v0206);
3261 nil = C_nil;
3262 if (exception_pending()) goto v0210;
3263 env = stack[-16];
3264 v0206 = stack[-1];
3265 v0206 = qcdr(v0206);
3266 stack[-1] = v0206;
3267 goto v0230;
3268
3269 v0232:
3270 v0206 = (Lisp_Object)1; /* 0 */
3271 goto v0233;
3272
3273 v0231:
3274 v0206 = stack[-2];
3275 goto v0234;
3276
3277 v0234:
3278 v0206 = cons(stack[-4], v0206);
3279 nil = C_nil;
3280 if (exception_pending()) goto v0210;
3281 env = stack[-16];
3282 v0206 = ncons(v0206);
3283 nil = C_nil;
3284 if (exception_pending()) goto v0210;
3285 env = stack[-16];
3286 v0206 = Lrplacd(nil, stack[-5], v0206);
3287 nil = C_nil;
3288 if (exception_pending()) goto v0210;
3289 env = stack[-16];
3290 v0206 = stack[-6];
3291 v0206 = qcdr(v0206);
3292 stack[-6] = v0206;
3293 goto v0225;
3294
3295 v0228:
3296 v0206 = (Lisp_Object)1; /* 0 */
3297 goto v0229;
3298
3299 v0227:
3300 v0206 = qvalue(elt(env, 6)); /* nil */
3301 goto v0234;
3302
3303 v0226:
3304 v0206 = stack[-7];
3305 goto v0235;
3306
3307 v0235:
3308 v0206 = cons(stack[-9], v0206);
3309 nil = C_nil;
3310 if (exception_pending()) goto v0210;
3311 env = stack[-16];
3312 qvalue(elt(env, 17)) = v0206; /* invtempbasis */
3313 v0206 = qvalue(elt(env, 18)); /* !*protfg */
3314 if (!(v0206 == nil)) goto v0236;
3315 v0206 = elt(env, 19); /* "Maximum degree bound exceeded." */
3316 fn = elt(env, 27); /* lprie */
3317 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3318 nil = C_nil;
3319 if (exception_pending()) goto v0210;
3320 env = stack[-16];
3321 goto v0236;
3322
3323 v0236:
3324 v0206 = Lerror0(nil, 0);
3325 nil = C_nil;
3326 if (exception_pending()) goto v0210;
3327 env = stack[-16];
3328 goto v0215;
3329
3330 v0215:
3331 v0207 = qvalue(elt(env, 4)); /* maxord */
3332 v0206 = qvalue(elt(env, 7)); /* gg */
3333 v0206 = qcar(v0206);
3334 v0206 = qcdr(v0206);
3335 v0206 = qcar(v0206);
3336 fn = elt(env, 28); /* max */
3337 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3338 nil = C_nil;
3339 if (exception_pending()) goto v0210;
3340 env = stack[-16];
3341 qvalue(elt(env, 4)) = v0206; /* maxord */
3342 v0206 = qvalue(elt(env, 7)); /* gg */
3343 v0206 = qcar(v0206);
3344 v0206 = qcdr(v0206);
3345 v0207 = qcar(v0206);
3346 v0206 = qvalue(elt(env, 4)); /* maxord */
3347 v0206 = (Lisp_Object)lessp2(v0207, v0206);
3348 nil = C_nil;
3349 if (exception_pending()) goto v0210;
3350 v0206 = v0206 ? lisp_true : nil;
3351 env = stack[-16];
3352 if (v0206 == nil) goto v0213;
3353 v0206 = qvalue(elt(env, 20)); /* t */
3354 stack[-12] = v0206;
3355 goto v0213;
3356
3357 v0213:
3358 v0206 = stack[-12];
3359 if (!(v0206 == nil)) goto v0027;
3360 v0206 = stack[-15];
3361 v0206 = qcar(v0206);
3362 v0206 = qcar(v0206);
3363 v0207 = v0206;
3364 v0208 = qvalue(elt(env, 15)); /* gv */
3365 v0206 = v0207;
3366 v0206 = *(Lisp_Object *)((char *)v0208 + (CELL-TAG_VECTOR) + ((int32_t)v0206/(16/CELL)));
3367 stack[-6] = v0206;
3368 v0208 = qvalue(elt(env, 9)); /* bv */
3369 v0206 = qvalue(elt(env, 6)); /* nil */
3370 *(Lisp_Object *)((char *)v0208 + (CELL-TAG_VECTOR) + ((int32_t)v0207/(16/CELL))) = v0206;
3371 v0206 = stack[-6];
3372 fn = elt(env, 29); /* ljet */
3373 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3374 nil = C_nil;
3375 if (exception_pending()) goto v0210;
3376 env = stack[-16];
3377 fn = elt(env, 30); /* class */
3378 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3379 nil = C_nil;
3380 if (exception_pending()) goto v0210;
3381 env = stack[-16];
3382 fn = elt(env, 31); /* nonmult */
3383 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3384 nil = C_nil;
3385 if (exception_pending()) goto v0210;
3386 env = stack[-16];
3387 stack[-5] = v0206;
3388 goto v0237;
3389
3390 v0237:
3391 v0206 = stack[-5];
3392 if (v0206 == nil) goto v0212;
3393 v0206 = stack[-5];
3394 v0206 = qcar(v0206);
3395 stack[0] = v0206;
3396 v0206 = qvalue(elt(env, 21)); /* ng */
3397 v0206 = add1(v0206);
3398 nil = C_nil;
3399 if (exception_pending()) goto v0210;
3400 env = stack[-16];
3401 qvalue(elt(env, 21)) = v0206; /* ng */
3402 v0207 = stack[-6];
3403 v0206 = stack[0];
3404 fn = elt(env, 32); /* pdmult */
3405 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3406 nil = C_nil;
3407 if (exception_pending()) goto v0210;
3408 env = stack[-16];
3409 v0209 = v0206;
3410 v0208 = qvalue(elt(env, 15)); /* gv */
3411 v0207 = qvalue(elt(env, 21)); /* ng */
3412 v0206 = v0209;
3413 *(Lisp_Object *)((char *)v0208 + (CELL-TAG_VECTOR) + ((int32_t)v0207/(16/CELL))) = v0206;
3414 v0208 = qvalue(elt(env, 9)); /* bv */
3415 v0207 = qvalue(elt(env, 21)); /* ng */
3416 v0206 = qvalue(elt(env, 20)); /* t */
3417 *(Lisp_Object *)((char *)v0208 + (CELL-TAG_VECTOR) + ((int32_t)v0207/(16/CELL))) = v0206;
3418 stack[-1] = qvalue(elt(env, 7)); /* gg */
3419 stack[0] = qvalue(elt(env, 21)); /* ng */
3420 v0206 = v0209;
3421 fn = elt(env, 29); /* ljet */
3422 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3423 nil = C_nil;
3424 if (exception_pending()) goto v0210;
3425 env = stack[-16];
3426 v0206 = cons(stack[0], v0206);
3427 nil = C_nil;
3428 if (exception_pending()) goto v0210;
3429 env = stack[-16];
3430 v0207 = ncons(v0206);
3431 nil = C_nil;
3432 if (exception_pending()) goto v0210;
3433 env = stack[-16];
3434 v0206 = (Lisp_Object)17; /* 1 */
3435 fn = elt(env, 22); /* redall */
3436 v0206 = (*qfnn(fn))(qenv(fn), 3, stack[-1], v0207, v0206);
3437 nil = C_nil;
3438 if (exception_pending()) goto v0210;
3439 env = stack[-16];
3440 qvalue(elt(env, 7)) = v0206; /* gg */
3441 v0206 = qvalue(elt(env, 1)); /* thirdway */
3442 if (v0206 == nil) goto v0238;
3443 v0207 = qvalue(elt(env, 7)); /* gg */
3444 v0206 = (Lisp_Object)17; /* 1 */
3445 fn = elt(env, 23); /* newbasis */
3446 v0206 = (*qfn2(fn))(qenv(fn), v0207, v0206);
3447 nil = C_nil;
3448 if (exception_pending()) goto v0210;
3449 env = stack[-16];
3450 goto v0239;
3451
3452 v0239:
3453 v0206 = stack[-5];
3454 v0206 = qcdr(v0206);
3455 stack[-5] = v0206;
3456 goto v0237;
3457
3458 v0238:
3459 v0206 = qvalue(elt(env, 2)); /* shortway */
3460 if (v0206 == nil) goto v0239;
3461 v0206 = qvalue(elt(env, 7)); /* gg */
3462 stack[-4] = v0206;
3463 goto v0240;
3464
3465 v0240:
3466 v0206 = stack[-4];
3467 if (v0206 == nil) goto v0239;
3468 v0206 = stack[-4];
3469 v0206 = qcar(v0206);
3470 v0208 = v0206;
3471 v0206 = v0208;
3472 v0207 = qcar(v0206);
3473 v0206 = qvalue(elt(env, 21)); /* ng */
3474 if (equal(v0207, v0206)) goto v0241;
3475 stack[-3] = qvalue(elt(env, 15)); /* gv */
3476 v0206 = v0208;
3477 stack[-2] = qcar(v0206);
3478 v0206 = qvalue(elt(env, 15)); /* gv */
3479 v0207 = v0208;
3480 v0207 = qcar(v0207);
3481 stack[-1] = *(Lisp_Object *)((char *)v0206 + (CELL-TAG_VECTOR) + ((int32_t)v0207/(16/CELL)));
3482 stack[0] = qvalue(elt(env, 21)); /* ng */
3483 v0207 = qvalue(elt(env, 15)); /* gv */
3484 v0206 = qvalue(elt(env, 21)); /* ng */
3485 v0206 = *(Lisp_Object *)((char *)v0207 + (CELL-TAG_VECTOR) + ((int32_t)v0206/(16/CELL)));
3486 fn = elt(env, 29); /* ljet */
3487 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3488 nil = C_nil;
3489 if (exception_pending()) goto v0210;
3490 env = stack[-16];
3491 v0206 = cons(stack[0], v0206);
3492 nil = C_nil;
3493 if (exception_pending()) goto v0210;
3494 env = stack[-16];
3495 v0207 = ncons(v0206);
3496 nil = C_nil;
3497 if (exception_pending()) goto v0210;
3498 env = stack[-16];
3499 v0206 = (Lisp_Object)17; /* 1 */
3500 fn = elt(env, 33); /* nf */
3501 v0206 = (*qfnn(fn))(qenv(fn), 3, stack[-1], v0207, v0206);
3502 nil = C_nil;
3503 if (exception_pending()) goto v0210;
3504 env = stack[-16];
3505 *(Lisp_Object *)((char *)stack[-3] + (CELL-TAG_VECTOR) + ((int32_t)stack[-2]/(16/CELL))) = v0206;
3506 goto v0241;
3507
3508 v0241:
3509 v0206 = stack[-4];
3510 v0206 = qcdr(v0206);
3511 stack[-4] = v0206;
3512 goto v0240;
3513
3514 v0027:
3515 fn = elt(env, 34); /* stat */
3516 v0206 = (*qfnn(fn))(qenv(fn), 0);
3517 nil = C_nil;
3518 if (exception_pending()) goto v0210;
3519 env = stack[-16];
3520 v0207 = stack[-11];
3521 v0206 = stack[-10];
3522 v0206 = (Lisp_Object)lesseq2(v0207, v0206);
3523 nil = C_nil;
3524 if (exception_pending()) goto v0210;
3525 v0206 = v0206 ? lisp_true : nil;
3526 env = stack[-16];
3527 if (v0206 == nil) goto v0242;
3528 v0206 = qvalue(elt(env, 7)); /* gg */
3529 fn = elt(env, 35); /* dim */
3530 v0206 = (*qfn1(fn))(qenv(fn), v0206);
3531 nil = C_nil;
3532 if (exception_pending()) goto v0210;
3533 env = stack[-16];
3534 goto v0242;
3535
3536 v0242:
3537 v0206 = nil;
3538 qvalue(elt(env, 2)) = stack[-13]; /* shortway */
3539 qvalue(elt(env, 1)) = stack[-14]; /* thirdway */
3540 { popv(17); return onevalue(v0206); }
3541
3542 v0218:
3543 v0206 = (Lisp_Object)1; /* 0 */
3544 goto v0219;
3545
3546 v0217:
3547 v0206 = qvalue(elt(env, 6)); /* nil */
3548 goto v0224;
3549
3550 v0216:
3551 v0206 = qvalue(elt(env, 6)); /* nil */
3552 goto v0235;
3553 /* error exit handlers */
3554 v0210:
3555 env = stack[-16];
3556 qvalue(elt(env, 2)) = stack[-13]; /* shortway */
3557 qvalue(elt(env, 1)) = stack[-14]; /* thirdway */
3558 popv(17);
3559 return nil;
3560 }
3561
3562
3563
3564 /* Code for radf */
3565
CC_radf(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)3566 static Lisp_Object CC_radf(Lisp_Object env,
3567 Lisp_Object v0000, Lisp_Object v0066)
3568 {
3569 Lisp_Object nil = C_nil;
3570 Lisp_Object v0309, v0119, v0120;
3571 Lisp_Object fn;
3572 CSL_IGNORE(nil);
3573 #ifdef DEBUG
3574 if (check_env(env)) return aerror("env for radf");
3575 #endif
3576 if (stack >= stacklimit)
3577 {
3578 push2(v0066,v0000);
3579 env = reclaim(env, "stack", GC_STACK, 0);
3580 pop2(v0000,v0066);
3581 nil = C_nil;
3582 if (exception_pending()) return nil;
3583 }
3584 push(env);
3585 /* space for vars preserved across procedure calls */
3586 push5(nil, nil, nil, nil, nil);
3587 push5(nil, nil, nil, nil, nil);
3588 /* copy arguments values to proper place */
3589 stack[-7] = v0066;
3590 stack[-8] = v0000;
3591 /* end of prologue */
3592 stack[-6] = nil;
3593 stack[-2] = qvalue(elt(env, 1)); /* !*gcd */
3594 qvalue(elt(env, 1)) = nil; /* !*gcd */
3595 stack[-1] = qvalue(elt(env, 2)); /* !*mcd */
3596 qvalue(elt(env, 2)) = nil; /* !*mcd */
3597 v0309 = stack[-8];
3598 if (v0309 == nil) goto v0083;
3599 v0309 = qvalue(elt(env, 3)); /* t */
3600 qvalue(elt(env, 2)) = v0309; /* !*mcd */
3601 qvalue(elt(env, 1)) = v0309; /* !*gcd */
3602 v0309 = (Lisp_Object)17; /* 1 */
3603 stack[-9] = v0309;
3604 v0309 = (Lisp_Object)17; /* 1 */
3605 stack[-3] = v0309;
3606 goto v0025;
3607
3608 v0025:
3609 v0309 = stack[-8];
3610 if (!consp(v0309)) goto v0060;
3611 v0309 = stack[-8];
3612 v0309 = qcar(v0309);
3613 v0309 = (consp(v0309) ? nil : lisp_true);
3614 goto v0079;
3615
3616 v0079:
3617 if (v0309 == nil) goto v0310;
3618 v0119 = stack[-8];
3619 v0309 = (Lisp_Object)17; /* 1 */
3620 if (v0119 == v0309) goto v0131;
3621 v0119 = stack[-8];
3622 v0309 = stack[-7];
3623 fn = elt(env, 13); /* radd */
3624 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3625 nil = C_nil;
3626 if (exception_pending()) goto v0311;
3627 env = stack[-10];
3628 stack[-5] = v0309;
3629 v0309 = stack[-5];
3630 v0119 = qcar(v0309);
3631 v0309 = stack[-9];
3632 fn = elt(env, 14); /* multf */
3633 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3634 nil = C_nil;
3635 if (exception_pending()) goto v0311;
3636 env = stack[-10];
3637 stack[-9] = v0309;
3638 v0309 = stack[-5];
3639 v0119 = qcdr(v0309);
3640 v0309 = stack[-6];
3641 v0309 = Lappend(nil, v0119, v0309);
3642 nil = C_nil;
3643 if (exception_pending()) goto v0311;
3644 env = stack[-10];
3645 stack[-6] = v0309;
3646 goto v0131;
3647
3648 v0131:
3649 v0119 = stack[-3];
3650 v0309 = (Lisp_Object)17; /* 1 */
3651 if (v0119 == v0309) goto v0312;
3652 v0309 = qvalue(elt(env, 12)); /* !*numval */
3653 if (v0309 == nil) goto v0313;
3654 stack[-5] = elt(env, 8); /* expt */
3655 stack[-4] = stack[-3];
3656 stack[0] = (Lisp_Object)17; /* 1 */
3657 v0309 = stack[-7];
3658 fn = elt(env, 15); /* !:recip */
3659 v0119 = (*qfn1(fn))(qenv(fn), v0309);
3660 nil = C_nil;
3661 if (exception_pending()) goto v0311;
3662 env = stack[-10];
3663 v0309 = (Lisp_Object)17; /* 1 */
3664 v0309 = cons(v0119, v0309);
3665 nil = C_nil;
3666 if (exception_pending()) goto v0311;
3667 env = stack[-10];
3668 v0309 = ncons(v0309);
3669 nil = C_nil;
3670 if (exception_pending()) goto v0311;
3671 env = stack[-10];
3672 v0309 = acons(stack[-4], stack[0], v0309);
3673 nil = C_nil;
3674 if (exception_pending()) goto v0311;
3675 env = stack[-10];
3676 fn = elt(env, 16); /* domainvalchk */
3677 v0309 = (*qfn2(fn))(qenv(fn), stack[-5], v0309);
3678 nil = C_nil;
3679 if (exception_pending()) goto v0311;
3680 env = stack[-10];
3681 stack[-4] = v0309;
3682 if (v0309 == nil) goto v0313;
3683 v0309 = stack[-4];
3684 fn = elt(env, 17); /* !*q2f */
3685 v0119 = (*qfn1(fn))(qenv(fn), v0309);
3686 nil = C_nil;
3687 if (exception_pending()) goto v0311;
3688 env = stack[-10];
3689 v0309 = stack[-9];
3690 fn = elt(env, 18); /* multd */
3691 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3692 nil = C_nil;
3693 if (exception_pending()) goto v0311;
3694 env = stack[-10];
3695 stack[-9] = v0309;
3696 goto v0312;
3697
3698 v0312:
3699 v0119 = stack[-9];
3700 v0309 = stack[-6];
3701 v0309 = cons(v0119, v0309);
3702 nil = C_nil;
3703 if (exception_pending()) goto v0311;
3704 env = stack[-10];
3705 goto v0089;
3706
3707 v0089:
3708 qvalue(elt(env, 2)) = stack[-1]; /* !*mcd */
3709 qvalue(elt(env, 1)) = stack[-2]; /* !*gcd */
3710 { popv(11); return onevalue(v0309); }
3711
3712 v0313:
3713 v0309 = stack[-3];
3714 fn = elt(env, 19); /* prepf */
3715 v0119 = (*qfn1(fn))(qenv(fn), v0309);
3716 nil = C_nil;
3717 if (exception_pending()) goto v0311;
3718 env = stack[-10];
3719 v0309 = stack[-6];
3720 v0309 = cons(v0119, v0309);
3721 nil = C_nil;
3722 if (exception_pending()) goto v0311;
3723 env = stack[-10];
3724 stack[-6] = v0309;
3725 goto v0312;
3726
3727 v0310:
3728 v0309 = stack[-8];
3729 fn = elt(env, 20); /* comfac */
3730 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3731 nil = C_nil;
3732 if (exception_pending()) goto v0311;
3733 env = stack[-10];
3734 stack[-4] = v0309;
3735 v0309 = stack[-4];
3736 v0309 = qcar(v0309);
3737 if (v0309 == nil) goto v0180;
3738 v0309 = qvalue(elt(env, 5)); /* !*precise_complex */
3739 if (v0309 == nil) goto v0015;
3740 v0119 = (Lisp_Object)1; /* 0 */
3741 v0309 = stack[-4];
3742 v0309 = qcar(v0309);
3743 v0309 = qcdr(v0309);
3744 v0309 = cons(v0119, v0309);
3745 nil = C_nil;
3746 if (exception_pending()) goto v0311;
3747 env = stack[-10];
3748 goto v0019;
3749
3750 v0019:
3751 stack[-5] = v0309;
3752 v0309 = stack[-5];
3753 v0119 = qcar(v0309);
3754 v0309 = (Lisp_Object)1; /* 0 */
3755 if (v0119 == v0309) goto v0189;
3756 v0309 = stack[-5];
3757 v0309 = qcar(v0309);
3758 v0309 = Levenp(nil, v0309);
3759 env = stack[-10];
3760 if (v0309 == nil) goto v0314;
3761 v0309 = stack[-8];
3762 v0309 = qcar(v0309);
3763 v0309 = qcar(v0309);
3764 v0120 = qcar(v0309);
3765 v0309 = stack[-5];
3766 v0119 = qcar(v0309);
3767 v0309 = (Lisp_Object)17; /* 1 */
3768 v0309 = acons(v0120, v0119, v0309);
3769 nil = C_nil;
3770 if (exception_pending()) goto v0311;
3771 env = stack[-10];
3772 v0309 = ncons(v0309);
3773 nil = C_nil;
3774 if (exception_pending()) goto v0311;
3775 env = stack[-10];
3776 v0119 = v0309;
3777 goto v0081;
3778
3779 v0081:
3780 v0309 = stack[-9];
3781 fn = elt(env, 14); /* multf */
3782 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3783 nil = C_nil;
3784 if (exception_pending()) goto v0311;
3785 env = stack[-10];
3786 stack[-9] = v0309;
3787 goto v0189;
3788
3789 v0189:
3790 v0309 = stack[-5];
3791 v0119 = qcdr(v0309);
3792 v0309 = (Lisp_Object)1; /* 0 */
3793 if (v0119 == v0309) goto v0180;
3794 v0309 = stack[-8];
3795 v0309 = qcar(v0309);
3796 v0309 = qcar(v0309);
3797 v0309 = qcar(v0309);
3798 if (!consp(v0309)) goto v0315;
3799 v0309 = stack[-8];
3800 v0309 = qcar(v0309);
3801 v0309 = qcar(v0309);
3802 v0309 = qcar(v0309);
3803 v0309 = qcar(v0309);
3804 v0309 = (consp(v0309) ? nil : lisp_true);
3805 v0309 = (v0309 == nil ? lisp_true : nil);
3806 goto v0160;
3807
3808 v0160:
3809 if (v0309 == nil) goto v0316;
3810 v0309 = stack[-8];
3811 v0309 = qcar(v0309);
3812 v0309 = qcar(v0309);
3813 v0309 = qcar(v0309);
3814 fn = elt(env, 19); /* prepf */
3815 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3816 nil = C_nil;
3817 if (exception_pending()) goto v0311;
3818 env = stack[-10];
3819 goto v0317;
3820
3821 v0317:
3822 v0119 = v0309;
3823 v0309 = stack[-5];
3824 v0120 = qcdr(v0309);
3825 v0309 = (Lisp_Object)17; /* 1 */
3826 if (v0120 == v0309) goto v0318;
3827 v0120 = elt(env, 8); /* expt */
3828 v0309 = stack[-5];
3829 v0309 = qcdr(v0309);
3830 v0309 = list3(v0120, v0119, v0309);
3831 nil = C_nil;
3832 if (exception_pending()) goto v0311;
3833 env = stack[-10];
3834 v0119 = v0309;
3835 goto v0319;
3836
3837 v0319:
3838 v0309 = stack[-6];
3839 v0309 = cons(v0119, v0309);
3840 nil = C_nil;
3841 if (exception_pending()) goto v0311;
3842 env = stack[-10];
3843 stack[-6] = v0309;
3844 goto v0180;
3845
3846 v0180:
3847 stack[0] = stack[-8];
3848 v0309 = stack[-4];
3849 v0309 = qcar(v0309);
3850 if (v0309 == nil) goto v0320;
3851 v0309 = stack[-4];
3852 v0309 = ncons(v0309);
3853 nil = C_nil;
3854 if (exception_pending()) goto v0311;
3855 env = stack[-10];
3856 goto v0218;
3857
3858 v0218:
3859 fn = elt(env, 21); /* quotf */
3860 v0309 = (*qfn2(fn))(qenv(fn), stack[0], v0309);
3861 nil = C_nil;
3862 if (exception_pending()) goto v0311;
3863 env = stack[-10];
3864 stack[-5] = v0309;
3865 v0309 = stack[-4];
3866 v0309 = qcdr(v0309);
3867 stack[-8] = v0309;
3868 v0309 = qvalue(elt(env, 9)); /* !*reduced */
3869 if (v0309 == nil) goto v0321;
3870 v0309 = stack[-5];
3871 fn = elt(env, 22); /* minusf */
3872 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3873 nil = C_nil;
3874 if (exception_pending()) goto v0311;
3875 env = stack[-10];
3876 if (v0309 == nil) goto v0321;
3877 v0309 = stack[-5];
3878 fn = elt(env, 23); /* negf */
3879 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3880 nil = C_nil;
3881 if (exception_pending()) goto v0311;
3882 env = stack[-10];
3883 stack[-5] = v0309;
3884 v0309 = stack[-8];
3885 fn = elt(env, 23); /* negf */
3886 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3887 nil = C_nil;
3888 if (exception_pending()) goto v0311;
3889 env = stack[-10];
3890 stack[-8] = v0309;
3891 goto v0321;
3892
3893 v0321:
3894 v0119 = qvalue(elt(env, 10)); /* dmode!* */
3895 v0309 = elt(env, 11); /* field */
3896 v0309 = Lflagp(nil, v0119, v0309);
3897 env = stack[-10];
3898 if (v0309 == nil) goto v0322;
3899 v0309 = stack[-5];
3900 fn = elt(env, 24); /* lnc */
3901 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3902 nil = C_nil;
3903 if (exception_pending()) goto v0311;
3904 env = stack[-10];
3905 stack[-4] = v0309;
3906 v0119 = stack[-4];
3907 v0309 = (Lisp_Object)17; /* 1 */
3908 if (v0119 == v0309) goto v0322;
3909 v0119 = stack[-5];
3910 v0309 = stack[-4];
3911 fn = elt(env, 21); /* quotf */
3912 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3913 nil = C_nil;
3914 if (exception_pending()) goto v0311;
3915 env = stack[-10];
3916 stack[-5] = v0309;
3917 v0119 = stack[-4];
3918 v0309 = stack[-3];
3919 fn = elt(env, 18); /* multd */
3920 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3921 nil = C_nil;
3922 if (exception_pending()) goto v0311;
3923 env = stack[-10];
3924 stack[-3] = v0309;
3925 goto v0322;
3926
3927 v0322:
3928 v0119 = stack[-5];
3929 v0309 = (Lisp_Object)17; /* 1 */
3930 if (v0119 == v0309) goto v0025;
3931 v0309 = qvalue(elt(env, 5)); /* !*precise_complex */
3932 if (v0309 == nil) goto v0158;
3933 v0119 = stack[-5];
3934 v0309 = (Lisp_Object)17; /* 1 */
3935 v0309 = cons(v0119, v0309);
3936 nil = C_nil;
3937 if (exception_pending()) goto v0311;
3938 env = stack[-10];
3939 v0309 = ncons(v0309);
3940 nil = C_nil;
3941 if (exception_pending()) goto v0311;
3942 env = stack[-10];
3943 v0119 = v0309;
3944 goto v0323;
3945
3946 v0323:
3947 v0309 = stack[-7];
3948 fn = elt(env, 25); /* radf1 */
3949 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3950 nil = C_nil;
3951 if (exception_pending()) goto v0311;
3952 env = stack[-10];
3953 stack[-5] = v0309;
3954 v0309 = stack[-5];
3955 v0309 = qcar(v0309);
3956 stack[-4] = v0309;
3957 v0119 = stack[-4];
3958 v0309 = (Lisp_Object)17; /* 1 */
3959 if (v0119 == v0309) goto v0324;
3960 v0309 = qvalue(elt(env, 6)); /* !*precise */
3961 if (v0309 == nil) goto v0138;
3962 v0309 = stack[-7];
3963 v0309 = Levenp(nil, v0309);
3964 env = stack[-10];
3965 if (v0309 == nil) goto v0138;
3966 stack[0] = elt(env, 7); /* abs */
3967 v0309 = stack[-4];
3968 fn = elt(env, 19); /* prepf */
3969 v0309 = (*qfn1(fn))(qenv(fn), v0309);
3970 nil = C_nil;
3971 if (exception_pending()) goto v0311;
3972 env = stack[-10];
3973 v0309 = list2(stack[0], v0309);
3974 nil = C_nil;
3975 if (exception_pending()) goto v0311;
3976 env = stack[-10];
3977 fn = elt(env, 26); /* fkern */
3978 v0119 = (*qfn1(fn))(qenv(fn), v0309);
3979 nil = C_nil;
3980 if (exception_pending()) goto v0311;
3981 env = stack[-10];
3982 v0309 = (Lisp_Object)17; /* 1 */
3983 fn = elt(env, 27); /* getpower */
3984 v0119 = (*qfn2(fn))(qenv(fn), v0119, v0309);
3985 nil = C_nil;
3986 if (exception_pending()) goto v0311;
3987 env = stack[-10];
3988 v0309 = (Lisp_Object)17; /* 1 */
3989 v0309 = cons(v0119, v0309);
3990 nil = C_nil;
3991 if (exception_pending()) goto v0311;
3992 env = stack[-10];
3993 v0309 = ncons(v0309);
3994 nil = C_nil;
3995 if (exception_pending()) goto v0311;
3996 env = stack[-10];
3997 stack[-4] = v0309;
3998 goto v0138;
3999
4000 v0138:
4001 v0119 = stack[-4];
4002 v0309 = stack[-9];
4003 fn = elt(env, 14); /* multf */
4004 v0309 = (*qfn2(fn))(qenv(fn), v0119, v0309);
4005 nil = C_nil;
4006 if (exception_pending()) goto v0311;
4007 env = stack[-10];
4008 stack[-9] = v0309;
4009 goto v0324;
4010
4011 v0324:
4012 v0119 = stack[-6];
4013 v0309 = stack[-5];
4014 v0309 = qcdr(v0309);
4015 v0309 = Lappend(nil, v0119, v0309);
4016 nil = C_nil;
4017 if (exception_pending()) goto v0311;
4018 env = stack[-10];
4019 stack[-6] = v0309;
4020 goto v0025;
4021
4022 v0158:
4023 v0309 = stack[-5];
4024 fn = elt(env, 28); /* sqfrf */
4025 v0309 = (*qfn1(fn))(qenv(fn), v0309);
4026 nil = C_nil;
4027 if (exception_pending()) goto v0311;
4028 env = stack[-10];
4029 v0119 = v0309;
4030 goto v0323;
4031
4032 v0320:
4033 v0309 = stack[-4];
4034 v0309 = qcdr(v0309);
4035 goto v0218;
4036
4037 v0318:
4038 v0309 = v0119;
4039 v0119 = v0309;
4040 goto v0319;
4041
4042 v0316:
4043 v0309 = stack[-8];
4044 v0309 = qcar(v0309);
4045 v0309 = qcar(v0309);
4046 v0309 = qcar(v0309);
4047 goto v0317;
4048
4049 v0315:
4050 v0309 = qvalue(elt(env, 4)); /* nil */
4051 goto v0160;
4052
4053 v0314:
4054 v0309 = stack[-8];
4055 v0309 = qcar(v0309);
4056 v0309 = qcar(v0309);
4057 v0120 = qcar(v0309);
4058 v0309 = stack[-4];
4059 v0309 = qcar(v0309);
4060 v0119 = qcdr(v0309);
4061 v0309 = (Lisp_Object)17; /* 1 */
4062 v0309 = acons(v0120, v0119, v0309);
4063 nil = C_nil;
4064 if (exception_pending()) goto v0311;
4065 env = stack[-10];
4066 stack[0] = ncons(v0309);
4067 nil = C_nil;
4068 if (exception_pending()) goto v0311;
4069 env = stack[-10];
4070 v0309 = qvalue(elt(env, 6)); /* !*precise */
4071 if (v0309 == nil) goto v0325;
4072 v0309 = stack[-7];
4073 v0309 = Levenp(nil, v0309);
4074 env = stack[-10];
4075 if (v0309 == nil) goto v0325;
4076 v0119 = elt(env, 7); /* abs */
4077 v0309 = stack[-8];
4078 v0309 = qcar(v0309);
4079 v0309 = qcar(v0309);
4080 v0309 = qcar(v0309);
4081 v0309 = list2(v0119, v0309);
4082 nil = C_nil;
4083 if (exception_pending()) goto v0311;
4084 env = stack[-10];
4085 v0120 = v0309;
4086 goto v0326;
4087
4088 v0326:
4089 v0309 = stack[-5];
4090 v0119 = qcar(v0309);
4091 v0309 = (Lisp_Object)17; /* 1 */
4092 v0309 = acons(v0120, v0119, v0309);
4093 nil = C_nil;
4094 if (exception_pending()) goto v0311;
4095 env = stack[-10];
4096 v0119 = ncons(v0309);
4097 nil = C_nil;
4098 if (exception_pending()) goto v0311;
4099 env = stack[-10];
4100 v0309 = stack[-7];
4101 fn = elt(env, 29); /* check!-radf!-sign */
4102 v0309 = (*qfnn(fn))(qenv(fn), 3, stack[0], v0119, v0309);
4103 nil = C_nil;
4104 if (exception_pending()) goto v0311;
4105 env = stack[-10];
4106 v0119 = v0309;
4107 goto v0081;
4108
4109 v0325:
4110 v0309 = stack[-8];
4111 v0309 = qcar(v0309);
4112 v0309 = qcar(v0309);
4113 v0309 = qcar(v0309);
4114 v0120 = v0309;
4115 goto v0326;
4116
4117 v0015:
4118 v0309 = stack[-4];
4119 v0309 = qcar(v0309);
4120 v0119 = qcdr(v0309);
4121 v0309 = stack[-7];
4122 v0309 = Ldivide(nil, v0119, v0309);
4123 nil = C_nil;
4124 if (exception_pending()) goto v0311;
4125 env = stack[-10];
4126 goto v0019;
4127
4128 v0060:
4129 v0309 = qvalue(elt(env, 3)); /* t */
4130 goto v0079;
4131
4132 v0083:
4133 v0309 = stack[-8];
4134 v0309 = ncons(v0309);
4135 nil = C_nil;
4136 if (exception_pending()) goto v0311;
4137 env = stack[-10];
4138 goto v0089;
4139 /* error exit handlers */
4140 v0311:
4141 env = stack[-10];
4142 qvalue(elt(env, 2)) = stack[-1]; /* !*mcd */
4143 qvalue(elt(env, 1)) = stack[-2]; /* !*gcd */
4144 popv(11);
4145 return nil;
4146 }
4147
4148
4149
4150 /* Code for update_kc_list */
4151
CC_update_kc_list(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0066,Lisp_Object v0006,...)4152 static Lisp_Object MS_CDECL CC_update_kc_list(Lisp_Object env, int nargs,
4153 Lisp_Object v0000, Lisp_Object v0066,
4154 Lisp_Object v0006, ...)
4155 {
4156 Lisp_Object nil = C_nil;
4157 Lisp_Object v0016, v0328;
4158 Lisp_Object fn;
4159 CSL_IGNORE(nil);
4160 argcheck(nargs, 3, "update_kc_list");
4161 #ifdef DEBUG
4162 if (check_env(env)) return aerror("env for update_kc_list");
4163 #endif
4164 if (stack >= stacklimit)
4165 {
4166 push3(v0006,v0066,v0000);
4167 env = reclaim(env, "stack", GC_STACK, 0);
4168 pop3(v0000,v0066,v0006);
4169 nil = C_nil;
4170 if (exception_pending()) return nil;
4171 }
4172 push(env);
4173 /* space for vars preserved across procedure calls */
4174 push4(nil, nil, nil, nil);
4175 /* copy arguments values to proper place */
4176 stack[0] = v0006;
4177 stack[-1] = v0066;
4178 stack[-2] = v0000;
4179 /* end of prologue */
4180 v0328 = stack[-1];
4181 v0016 = stack[-2];
4182 v0016 = qcdr(v0016);
4183 fn = elt(env, 1); /* list_assoc */
4184 v0016 = (*qfn2(fn))(qenv(fn), v0328, v0016);
4185 nil = C_nil;
4186 if (exception_pending()) goto v0075;
4187 env = stack[-4];
4188 v0328 = v0016;
4189 v0016 = v0328;
4190 if (v0016 == nil) goto v0068;
4191 stack[-3] = v0328;
4192 v0016 = v0328;
4193 v0016 = qcar(v0016);
4194 stack[-1] = qcar(v0016);
4195 v0016 = v0328;
4196 v0016 = qcar(v0016);
4197 v0328 = qcdr(v0016);
4198 v0016 = stack[0];
4199 fn = elt(env, 2); /* addf */
4200 v0016 = (*qfn2(fn))(qenv(fn), v0328, v0016);
4201 nil = C_nil;
4202 if (exception_pending()) goto v0075;
4203 env = stack[-4];
4204 v0016 = cons(stack[-1], v0016);
4205 nil = C_nil;
4206 if (exception_pending()) goto v0075;
4207 env = stack[-4];
4208 v0016 = Lrplaca(nil, stack[-3], v0016);
4209 nil = C_nil;
4210 if (exception_pending()) goto v0075;
4211 { Lisp_Object res = stack[-2]; popv(5); return onevalue(res); }
4212
4213 v0068:
4214 v0016 = stack[-2];
4215 stack[-3] = qcar(v0016);
4216 v0328 = stack[-1];
4217 v0016 = stack[0];
4218 v0328 = cons(v0328, v0016);
4219 nil = C_nil;
4220 if (exception_pending()) goto v0075;
4221 v0016 = stack[-2];
4222 v0016 = qcdr(v0016);
4223 {
4224 Lisp_Object v0073 = stack[-3];
4225 popv(5);
4226 return list2star(v0073, v0328, v0016);
4227 }
4228 /* error exit handlers */
4229 v0075:
4230 popv(5);
4231 return nil;
4232 }
4233
4234
4235
4236 /* Code for multtaylorsq */
4237
CC_multtaylorsq(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)4238 static Lisp_Object CC_multtaylorsq(Lisp_Object env,
4239 Lisp_Object v0000, Lisp_Object v0066)
4240 {
4241 Lisp_Object nil = C_nil;
4242 Lisp_Object v0302, v0332;
4243 Lisp_Object fn;
4244 CSL_IGNORE(nil);
4245 #ifdef DEBUG
4246 if (check_env(env)) return aerror("env for multtaylorsq");
4247 #endif
4248 if (stack >= stacklimit)
4249 {
4250 push2(v0066,v0000);
4251 env = reclaim(env, "stack", GC_STACK, 0);
4252 pop2(v0000,v0066);
4253 nil = C_nil;
4254 if (exception_pending()) return nil;
4255 }
4256 push(env);
4257 /* space for vars preserved across procedure calls */
4258 push5(nil, nil, nil, nil, nil);
4259 push3(nil, nil, nil);
4260 /* copy arguments values to proper place */
4261 stack[-5] = v0066;
4262 stack[-6] = v0000;
4263 /* end of prologue */
4264 v0302 = stack[-6];
4265 if (v0302 == nil) goto v0065;
4266 v0302 = stack[-5];
4267 v0302 = qcar(v0302);
4268 v0302 = (v0302 == nil ? lisp_true : nil);
4269 goto v0053;
4270
4271 v0053:
4272 if (v0302 == nil) goto v0041;
4273 v0302 = qvalue(elt(env, 2)); /* nil */
4274 { popv(9); return onevalue(v0302); }
4275
4276 v0041:
4277 stack[-7] = elt(env, 3); /* taylor!* */
4278 v0302 = stack[-6];
4279 v0302 = qcdr(v0302);
4280 v0302 = qcar(v0302);
4281 stack[-4] = v0302;
4282 v0302 = stack[-4];
4283 if (v0302 == nil) goto v0071;
4284 v0302 = stack[-4];
4285 v0302 = qcar(v0302);
4286 v0332 = v0302;
4287 v0302 = v0332;
4288 stack[0] = qcar(v0302);
4289 v0302 = v0332;
4290 v0332 = qcdr(v0302);
4291 v0302 = stack[-5];
4292 fn = elt(env, 5); /* multsq */
4293 v0302 = (*qfn2(fn))(qenv(fn), v0332, v0302);
4294 nil = C_nil;
4295 if (exception_pending()) goto v0333;
4296 env = stack[-8];
4297 fn = elt(env, 6); /* subs2!* */
4298 v0302 = (*qfn1(fn))(qenv(fn), v0302);
4299 nil = C_nil;
4300 if (exception_pending()) goto v0333;
4301 env = stack[-8];
4302 fn = elt(env, 7); /* resimp */
4303 v0302 = (*qfn1(fn))(qenv(fn), v0302);
4304 nil = C_nil;
4305 if (exception_pending()) goto v0333;
4306 env = stack[-8];
4307 v0302 = cons(stack[0], v0302);
4308 nil = C_nil;
4309 if (exception_pending()) goto v0333;
4310 env = stack[-8];
4311 v0302 = ncons(v0302);
4312 nil = C_nil;
4313 if (exception_pending()) goto v0333;
4314 env = stack[-8];
4315 stack[-2] = v0302;
4316 stack[-3] = v0302;
4317 goto v0334;
4318
4319 v0334:
4320 v0302 = stack[-4];
4321 v0302 = qcdr(v0302);
4322 stack[-4] = v0302;
4323 v0302 = stack[-4];
4324 if (v0302 == nil) goto v0075;
4325 stack[-1] = stack[-2];
4326 v0302 = stack[-4];
4327 v0302 = qcar(v0302);
4328 v0332 = v0302;
4329 v0302 = v0332;
4330 stack[0] = qcar(v0302);
4331 v0302 = v0332;
4332 v0332 = qcdr(v0302);
4333 v0302 = stack[-5];
4334 fn = elt(env, 5); /* multsq */
4335 v0302 = (*qfn2(fn))(qenv(fn), v0332, v0302);
4336 nil = C_nil;
4337 if (exception_pending()) goto v0333;
4338 env = stack[-8];
4339 fn = elt(env, 6); /* subs2!* */
4340 v0302 = (*qfn1(fn))(qenv(fn), v0302);
4341 nil = C_nil;
4342 if (exception_pending()) goto v0333;
4343 env = stack[-8];
4344 fn = elt(env, 7); /* resimp */
4345 v0302 = (*qfn1(fn))(qenv(fn), v0302);
4346 nil = C_nil;
4347 if (exception_pending()) goto v0333;
4348 env = stack[-8];
4349 v0302 = cons(stack[0], v0302);
4350 nil = C_nil;
4351 if (exception_pending()) goto v0333;
4352 env = stack[-8];
4353 v0302 = ncons(v0302);
4354 nil = C_nil;
4355 if (exception_pending()) goto v0333;
4356 env = stack[-8];
4357 v0302 = Lrplacd(nil, stack[-1], v0302);
4358 nil = C_nil;
4359 if (exception_pending()) goto v0333;
4360 env = stack[-8];
4361 v0302 = stack[-2];
4362 v0302 = qcdr(v0302);
4363 stack[-2] = v0302;
4364 goto v0334;
4365
4366 v0075:
4367 v0302 = stack[-3];
4368 stack[-1] = v0302;
4369 goto v0310;
4370
4371 v0310:
4372 v0302 = stack[-6];
4373 v0302 = qcdr(v0302);
4374 v0302 = qcdr(v0302);
4375 stack[0] = qcar(v0302);
4376 v0302 = qvalue(elt(env, 4)); /* !*taylorkeeporiginal */
4377 if (v0302 == nil) goto v0297;
4378 v0302 = stack[-6];
4379 v0302 = qcdr(v0302);
4380 v0302 = qcdr(v0302);
4381 v0302 = qcdr(v0302);
4382 v0302 = qcar(v0302);
4383 if (v0302 == nil) goto v0297;
4384 v0332 = stack[-5];
4385 v0302 = stack[-6];
4386 v0302 = qcdr(v0302);
4387 v0302 = qcdr(v0302);
4388 v0302 = qcdr(v0302);
4389 v0302 = qcar(v0302);
4390 fn = elt(env, 5); /* multsq */
4391 v0302 = (*qfn2(fn))(qenv(fn), v0332, v0302);
4392 nil = C_nil;
4393 if (exception_pending()) goto v0333;
4394 env = stack[-8];
4395 v0332 = v0302;
4396 goto v0213;
4397
4398 v0213:
4399 v0302 = stack[-6];
4400 v0302 = qcdr(v0302);
4401 v0302 = qcdr(v0302);
4402 v0302 = qcdr(v0302);
4403 v0302 = qcdr(v0302);
4404 v0302 = qcar(v0302);
4405 v0302 = list2(v0332, v0302);
4406 nil = C_nil;
4407 if (exception_pending()) goto v0333;
4408 {
4409 Lisp_Object v0335 = stack[-7];
4410 Lisp_Object v0336 = stack[-1];
4411 Lisp_Object v0337 = stack[0];
4412 popv(9);
4413 return list3star(v0335, v0336, v0337, v0302);
4414 }
4415
4416 v0297:
4417 v0302 = qvalue(elt(env, 2)); /* nil */
4418 v0332 = v0302;
4419 goto v0213;
4420
4421 v0071:
4422 v0302 = qvalue(elt(env, 2)); /* nil */
4423 stack[-1] = v0302;
4424 goto v0310;
4425
4426 v0065:
4427 v0302 = qvalue(elt(env, 1)); /* t */
4428 goto v0053;
4429 /* error exit handlers */
4430 v0333:
4431 popv(9);
4432 return nil;
4433 }
4434
4435
4436
4437 /* Code for same!+dim!+squared!+p */
4438
CC_sameLdimLsquaredLp(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)4439 static Lisp_Object CC_sameLdimLsquaredLp(Lisp_Object env,
4440 Lisp_Object v0000, Lisp_Object v0066)
4441 {
4442 Lisp_Object nil = C_nil;
4443 Lisp_Object v0338;
4444 Lisp_Object fn;
4445 CSL_IGNORE(nil);
4446 #ifdef DEBUG
4447 if (check_env(env)) return aerror("env for same+dim+squared+p");
4448 #endif
4449 if (stack >= stacklimit)
4450 {
4451 push2(v0066,v0000);
4452 env = reclaim(env, "stack", GC_STACK, 0);
4453 pop2(v0000,v0066);
4454 nil = C_nil;
4455 if (exception_pending()) return nil;
4456 }
4457 push(env);
4458 /* space for vars preserved across procedure calls */
4459 push2(nil, nil);
4460 /* copy arguments values to proper place */
4461 stack[0] = v0066;
4462 stack[-1] = v0000;
4463 /* end of prologue */
4464 v0338 = stack[-1];
4465 fn = elt(env, 2); /* squared!+matrix!+p */
4466 v0338 = (*qfn1(fn))(qenv(fn), v0338);
4467 nil = C_nil;
4468 if (exception_pending()) goto v0079;
4469 env = stack[-2];
4470 if (v0338 == nil) goto v0064;
4471 v0338 = stack[0];
4472 fn = elt(env, 2); /* squared!+matrix!+p */
4473 v0338 = (*qfn1(fn))(qenv(fn), v0338);
4474 nil = C_nil;
4475 if (exception_pending()) goto v0079;
4476 env = stack[-2];
4477 if (v0338 == nil) goto v0064;
4478 v0338 = stack[-1];
4479 fn = elt(env, 3); /* get!+row!+nr */
4480 stack[0] = (*qfn1(fn))(qenv(fn), v0338);
4481 nil = C_nil;
4482 if (exception_pending()) goto v0079;
4483 env = stack[-2];
4484 v0338 = stack[-1];
4485 fn = elt(env, 3); /* get!+row!+nr */
4486 v0338 = (*qfn1(fn))(qenv(fn), v0338);
4487 nil = C_nil;
4488 if (exception_pending()) goto v0079;
4489 env = stack[-2];
4490 if (!(equal(stack[0], v0338))) goto v0064;
4491 v0338 = qvalue(elt(env, 1)); /* t */
4492 { popv(3); return onevalue(v0338); }
4493
4494 v0064:
4495 v0338 = nil;
4496 { popv(3); return onevalue(v0338); }
4497 /* error exit handlers */
4498 v0079:
4499 popv(3);
4500 return nil;
4501 }
4502
4503
4504
4505 /* Code for kern!-list */
4506
CC_kernKlist(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)4507 static Lisp_Object CC_kernKlist(Lisp_Object env,
4508 Lisp_Object v0000, Lisp_Object v0066)
4509 {
4510 Lisp_Object nil = C_nil;
4511 Lisp_Object v0019, v0020;
4512 Lisp_Object fn;
4513 CSL_IGNORE(nil);
4514 #ifdef DEBUG
4515 if (check_env(env)) return aerror("env for kern-list");
4516 #endif
4517 if (stack >= stacklimit)
4518 {
4519 push2(v0066,v0000);
4520 env = reclaim(env, "stack", GC_STACK, 0);
4521 pop2(v0000,v0066);
4522 nil = C_nil;
4523 if (exception_pending()) return nil;
4524 }
4525 push(env);
4526 /* space for vars preserved across procedure calls */
4527 push4(nil, nil, nil, nil);
4528 /* copy arguments values to proper place */
4529 stack[-2] = v0066;
4530 v0019 = v0000;
4531 /* end of prologue */
4532 stack[-3] = nil;
4533 v0020 = v0019;
4534 v0019 = qvalue(elt(env, 1)); /* nil */
4535 fn = elt(env, 2); /* kernels1 */
4536 v0019 = (*qfn2(fn))(qenv(fn), v0020, v0019);
4537 nil = C_nil;
4538 if (exception_pending()) goto v0339;
4539 env = stack[-4];
4540 stack[-1] = v0019;
4541 goto v0065;
4542
4543 v0065:
4544 v0019 = stack[-1];
4545 if (v0019 == nil) { Lisp_Object res = stack[-3]; popv(5); return onevalue(res); }
4546 v0019 = stack[-1];
4547 v0019 = qcar(v0019);
4548 stack[0] = v0019;
4549 v0020 = stack[0];
4550 v0019 = stack[-2];
4551 fn = elt(env, 3); /* depend!-p */
4552 v0019 = (*qfn2(fn))(qenv(fn), v0020, v0019);
4553 nil = C_nil;
4554 if (exception_pending()) goto v0339;
4555 env = stack[-4];
4556 if (v0019 == nil) goto v0057;
4557 v0020 = stack[0];
4558 v0019 = stack[-3];
4559 v0019 = cons(v0020, v0019);
4560 nil = C_nil;
4561 if (exception_pending()) goto v0339;
4562 env = stack[-4];
4563 stack[-3] = v0019;
4564 goto v0057;
4565
4566 v0057:
4567 v0019 = stack[-1];
4568 v0019 = qcdr(v0019);
4569 stack[-1] = v0019;
4570 goto v0065;
4571 /* error exit handlers */
4572 v0339:
4573 popv(5);
4574 return nil;
4575 }
4576
4577
4578
4579 /* Code for aex_mvar */
4580
CC_aex_mvar(Lisp_Object env,Lisp_Object v0000)4581 static Lisp_Object CC_aex_mvar(Lisp_Object env,
4582 Lisp_Object v0000)
4583 {
4584 Lisp_Object nil = C_nil;
4585 Lisp_Object v0033;
4586 Lisp_Object fn;
4587 CSL_IGNORE(nil);
4588 #ifdef DEBUG
4589 if (check_env(env)) return aerror("env for aex_mvar");
4590 #endif
4591 if (stack >= stacklimit)
4592 {
4593 push(v0000);
4594 env = reclaim(env, "stack", GC_STACK, 0);
4595 pop(v0000);
4596 nil = C_nil;
4597 if (exception_pending()) return nil;
4598 }
4599 push(env);
4600 /* space for vars preserved across procedure calls */
4601 push(nil);
4602 /* copy arguments values to proper place */
4603 v0033 = v0000;
4604 /* end of prologue */
4605 fn = elt(env, 2); /* aex_freeids */
4606 v0033 = (*qfn1(fn))(qenv(fn), v0033);
4607 nil = C_nil;
4608 if (exception_pending()) goto v0340;
4609 env = stack[-1];
4610 stack[0] = v0033;
4611 if (!(v0033 == nil)) goto v0064;
4612 v0033 = elt(env, 1); /* "***** aex_mvar: invalid argument" */
4613 v0033 = Lprinc(nil, v0033);
4614 nil = C_nil;
4615 if (exception_pending()) goto v0340;
4616 env = stack[-1];
4617 v0033 = Lterpri(nil, 0);
4618 nil = C_nil;
4619 if (exception_pending()) goto v0340;
4620 goto v0064;
4621
4622 v0064:
4623 v0033 = stack[0];
4624 v0033 = qcar(v0033);
4625 { popv(2); return onevalue(v0033); }
4626 /* error exit handlers */
4627 v0340:
4628 popv(2);
4629 return nil;
4630 }
4631
4632
4633
4634 /* Code for math_ml_printer */
4635
CC_math_ml_printer(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)4636 static Lisp_Object CC_math_ml_printer(Lisp_Object env,
4637 Lisp_Object v0000, Lisp_Object v0066)
4638 {
4639 Lisp_Object nil = C_nil;
4640 Lisp_Object v0356, v0357, v0358;
4641 Lisp_Object fn;
4642 CSL_IGNORE(nil);
4643 #ifdef DEBUG
4644 if (check_env(env)) return aerror("env for math_ml_printer");
4645 #endif
4646 if (stack >= stacklimit)
4647 {
4648 push2(v0066,v0000);
4649 env = reclaim(env, "stack", GC_STACK, 0);
4650 pop2(v0000,v0066);
4651 nil = C_nil;
4652 if (exception_pending()) return nil;
4653 }
4654 push(env);
4655 /* space for vars preserved across procedure calls */
4656 push3(nil, nil, nil);
4657 /* copy arguments values to proper place */
4658 stack[0] = v0066;
4659 stack[-1] = v0000;
4660 /* end of prologue */
4661 v0357 = qvalue(elt(env, 1)); /* !*both */
4662 v0356 = qvalue(elt(env, 2)); /* t */
4663 if (!(equal(v0357, v0356))) goto v0049;
4664 v0356 = qvalue(elt(env, 3)); /* nil */
4665 stack[-2] = qvalue(elt(env, 4)); /* outputhandler!* */
4666 qvalue(elt(env, 4)) = v0356; /* outputhandler!* */
4667 v0357 = stack[0];
4668 v0356 = qvalue(elt(env, 2)); /* t */
4669 if (equal(v0357, v0356)) goto v0028;
4670 v0356 = qvalue(elt(env, 4)); /* outputhandler!* */
4671 if (v0356 == nil) goto v0023;
4672 v0358 = qvalue(elt(env, 4)); /* outputhandler!* */
4673 v0357 = elt(env, 5); /* maprin */
4674 v0356 = stack[0];
4675 v0356 = Lapply2(nil, 3, v0358, v0357, v0356);
4676 nil = C_nil;
4677 if (exception_pending()) goto v0359;
4678 env = stack[-3];
4679 goto v0028;
4680
4681 v0028:
4682 v0356 = qvalue(elt(env, 3)); /* nil */
4683 fn = elt(env, 30); /* terpri!* */
4684 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4685 nil = C_nil;
4686 if (exception_pending()) goto v0359;
4687 env = stack[-3];
4688 qvalue(elt(env, 4)) = stack[-2]; /* outputhandler!* */
4689 goto v0049;
4690
4691 v0049:
4692 v0357 = stack[-1];
4693 v0356 = elt(env, 7); /* terpri */
4694 if (v0357 == v0356) goto v0046;
4695 v0356 = (Lisp_Object)1; /* 0 */
4696 qvalue(elt(env, 10)) = v0356; /* indent */
4697 v0356 = qvalue(elt(env, 3)); /* nil */
4698 qvalue(elt(env, 11)) = v0356; /* consts_compl */
4699 v0356 = qvalue(elt(env, 3)); /* nil */
4700 qvalue(elt(env, 12)) = v0356; /* consts_mat_compl */
4701 v0356 = qvalue(elt(env, 3)); /* nil */
4702 qvalue(elt(env, 13)) = v0356; /* consts_int */
4703 v0356 = qvalue(elt(env, 3)); /* nil */
4704 qvalue(elt(env, 14)) = v0356; /* consts_mat_int */
4705 v0356 = (Lisp_Object)1; /* 0 */
4706 qvalue(elt(env, 15)) = v0356; /* found_int */
4707 v0356 = (Lisp_Object)1; /* 0 */
4708 qvalue(elt(env, 16)) = v0356; /* found_compl */
4709 v0356 = (Lisp_Object)1; /* 0 */
4710 qvalue(elt(env, 17)) = v0356; /* flagg */
4711 v0356 = stack[0];
4712 v0356 = Lconsp(nil, v0356);
4713 env = stack[-3];
4714 if (v0356 == nil) goto v0085;
4715 v0357 = qvalue(elt(env, 18)); /* !*web */
4716 v0356 = qvalue(elt(env, 2)); /* t */
4717 if (!(equal(v0357, v0356))) goto v0199;
4718 v0356 = elt(env, 19); /* "<EMBED TYPE=""text/mathml"" MMLDATA=""" */
4719 fn = elt(env, 31); /* printout */
4720 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4721 nil = C_nil;
4722 if (exception_pending()) goto v0360;
4723 env = stack[-3];
4724 goto v0199;
4725
4726 v0199:
4727 v0356 = elt(env, 20); /* "<math>" */
4728 fn = elt(env, 31); /* printout */
4729 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4730 nil = C_nil;
4731 if (exception_pending()) goto v0360;
4732 env = stack[-3];
4733 v0356 = (Lisp_Object)49; /* 3 */
4734 qvalue(elt(env, 10)) = v0356; /* indent */
4735 v0356 = stack[0];
4736 v0357 = qcar(v0356);
4737 v0356 = elt(env, 21); /* setq */
4738 if (v0357 == v0356) goto v0039;
4739 v0356 = stack[0];
4740 v0357 = qcar(v0356);
4741 v0356 = elt(env, 24); /* list */
4742 if (v0357 == v0356) goto v0315;
4743 v0356 = stack[0];
4744 v0357 = qcar(v0356);
4745 v0356 = elt(env, 23); /* mat */
4746 if (v0357 == v0356) goto v0361;
4747 v0356 = stack[0];
4748 v0357 = qcar(v0356);
4749 v0356 = elt(env, 25); /* !*sq */
4750 if (v0357 == v0356) goto v0362;
4751 v0356 = stack[0];
4752 fn = elt(env, 32); /* expression */
4753 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4754 nil = C_nil;
4755 if (exception_pending()) goto v0360;
4756 env = stack[-3];
4757 goto v0170;
4758
4759 v0170:
4760 v0357 = qvalue(elt(env, 10)); /* indent */
4761 v0356 = (Lisp_Object)49; /* 3 */
4762 v0356 = difference2(v0357, v0356);
4763 nil = C_nil;
4764 if (exception_pending()) goto v0360;
4765 env = stack[-3];
4766 qvalue(elt(env, 10)) = v0356; /* indent */
4767 fn = elt(env, 33); /* close_forall */
4768 v0356 = (*qfnn(fn))(qenv(fn), 0);
4769 nil = C_nil;
4770 if (exception_pending()) goto v0360;
4771 env = stack[-3];
4772 v0356 = (Lisp_Object)1; /* 0 */
4773 qvalue(elt(env, 10)) = v0356; /* indent */
4774 v0356 = elt(env, 26); /* "</math>" */
4775 fn = elt(env, 31); /* printout */
4776 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4777 nil = C_nil;
4778 if (exception_pending()) goto v0360;
4779 env = stack[-3];
4780 v0357 = qvalue(elt(env, 18)); /* !*web */
4781 v0356 = qvalue(elt(env, 2)); /* t */
4782 if (!(equal(v0357, v0356))) goto v0363;
4783 v0356 = elt(env, 27); /* """ HEIGHT=300 WIDTH=500>" */
4784 v0356 = Lprinc(nil, v0356);
4785 nil = C_nil;
4786 if (exception_pending()) goto v0360;
4787 env = stack[-3];
4788 goto v0363;
4789
4790 v0363:
4791 v0356 = Lterpri(nil, 0);
4792 nil = C_nil;
4793 if (exception_pending()) goto v0360;
4794 env = stack[-3];
4795 goto v0009;
4796
4797 v0009:
4798 v0356 = qvalue(elt(env, 3)); /* nil */
4799 { popv(4); return onevalue(v0356); }
4800
4801 v0362:
4802 v0356 = stack[0];
4803 v0356 = qcdr(v0356);
4804 v0356 = qcar(v0356);
4805 v0356 = qcar(v0356);
4806 if (v0356 == nil) goto v0180;
4807 v0356 = stack[0];
4808 v0356 = qcdr(v0356);
4809 v0357 = qcar(v0356);
4810 v0356 = elt(env, 22); /* prepf */
4811 fn = elt(env, 34); /* sqform */
4812 v0356 = (*qfn2(fn))(qenv(fn), v0357, v0356);
4813 nil = C_nil;
4814 if (exception_pending()) goto v0360;
4815 env = stack[-3];
4816 goto v0182;
4817
4818 v0182:
4819 fn = elt(env, 35); /* arbitrary_c */
4820 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4821 nil = C_nil;
4822 if (exception_pending()) goto v0360;
4823 env = stack[-3];
4824 v0356 = stack[0];
4825 v0356 = qcdr(v0356);
4826 v0356 = qcar(v0356);
4827 v0356 = qcar(v0356);
4828 if (v0356 == nil) goto v0221;
4829 v0356 = stack[0];
4830 v0356 = qcdr(v0356);
4831 v0357 = qcar(v0356);
4832 v0356 = elt(env, 22); /* prepf */
4833 fn = elt(env, 34); /* sqform */
4834 v0356 = (*qfn2(fn))(qenv(fn), v0357, v0356);
4835 nil = C_nil;
4836 if (exception_pending()) goto v0360;
4837 env = stack[-3];
4838 goto v0364;
4839
4840 v0364:
4841 fn = elt(env, 32); /* expression */
4842 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4843 nil = C_nil;
4844 if (exception_pending()) goto v0360;
4845 env = stack[-3];
4846 goto v0170;
4847
4848 v0221:
4849 v0356 = (Lisp_Object)1; /* 0 */
4850 goto v0364;
4851
4852 v0180:
4853 v0356 = (Lisp_Object)1; /* 0 */
4854 goto v0182;
4855
4856 v0361:
4857 v0356 = stack[0];
4858 fn = elt(env, 35); /* arbitrary_c */
4859 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4860 nil = C_nil;
4861 if (exception_pending()) goto v0360;
4862 env = stack[-3];
4863 v0356 = stack[0];
4864 v0356 = qcdr(v0356);
4865 fn = elt(env, 36); /* matrixml */
4866 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4867 nil = C_nil;
4868 if (exception_pending()) goto v0360;
4869 env = stack[-3];
4870 goto v0170;
4871
4872 v0315:
4873 v0356 = stack[0];
4874 fn = elt(env, 37); /* !*a2k */
4875 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4876 nil = C_nil;
4877 if (exception_pending()) goto v0360;
4878 env = stack[-3];
4879 fn = elt(env, 35); /* arbitrary_c */
4880 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4881 nil = C_nil;
4882 if (exception_pending()) goto v0360;
4883 env = stack[-3];
4884 v0356 = stack[0];
4885 v0356 = qcdr(v0356);
4886 fn = elt(env, 38); /* listml */
4887 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4888 nil = C_nil;
4889 if (exception_pending()) goto v0360;
4890 env = stack[-3];
4891 goto v0170;
4892
4893 v0039:
4894 v0356 = stack[0];
4895 v0356 = qcdr(v0356);
4896 v0356 = qcdr(v0356);
4897 v0356 = qcar(v0356);
4898 v0356 = Lconsp(nil, v0356);
4899 env = stack[-3];
4900 if (v0356 == nil) goto v0365;
4901 v0356 = stack[0];
4902 v0356 = qcdr(v0356);
4903 v0356 = qcdr(v0356);
4904 v0356 = qcar(v0356);
4905 fn = elt(env, 39); /* issq */
4906 v0357 = (*qfn1(fn))(qenv(fn), v0356);
4907 nil = C_nil;
4908 if (exception_pending()) goto v0360;
4909 env = stack[-3];
4910 v0356 = (Lisp_Object)17; /* 1 */
4911 if (v0357 == v0356) goto v0366;
4912 v0356 = stack[0];
4913 v0356 = qcdr(v0356);
4914 v0356 = qcdr(v0356);
4915 v0356 = qcar(v0356);
4916 v0357 = qcar(v0356);
4917 v0356 = elt(env, 23); /* mat */
4918 if (v0357 == v0356) goto v0298;
4919 v0356 = stack[0];
4920 v0356 = qcdr(v0356);
4921 v0356 = qcdr(v0356);
4922 v0356 = qcar(v0356);
4923 v0357 = qcar(v0356);
4924 v0356 = elt(env, 24); /* list */
4925 if (!(v0357 == v0356)) goto v0365;
4926 v0356 = stack[0];
4927 v0356 = qcdr(v0356);
4928 v0356 = qcdr(v0356);
4929 v0356 = qcar(v0356);
4930 fn = elt(env, 37); /* !*a2k */
4931 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4932 nil = C_nil;
4933 if (exception_pending()) goto v0360;
4934 env = stack[-3];
4935 fn = elt(env, 35); /* arbitrary_c */
4936 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4937 nil = C_nil;
4938 if (exception_pending()) goto v0360;
4939 env = stack[-3];
4940 goto v0365;
4941
4942 v0365:
4943 v0356 = stack[0];
4944 fn = elt(env, 40); /* setqml */
4945 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4946 nil = C_nil;
4947 if (exception_pending()) goto v0360;
4948 env = stack[-3];
4949 goto v0170;
4950
4951 v0298:
4952 v0356 = stack[0];
4953 v0356 = qcdr(v0356);
4954 v0356 = qcdr(v0356);
4955 v0356 = qcar(v0356);
4956 fn = elt(env, 35); /* arbitrary_c */
4957 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4958 nil = C_nil;
4959 if (exception_pending()) goto v0360;
4960 env = stack[-3];
4961 goto v0365;
4962
4963 v0366:
4964 v0356 = stack[0];
4965 v0356 = qcdr(v0356);
4966 v0356 = qcdr(v0356);
4967 v0356 = qcar(v0356);
4968 v0356 = qcdr(v0356);
4969 v0356 = qcar(v0356);
4970 v0356 = qcar(v0356);
4971 if (v0356 == nil) goto v0367;
4972 v0356 = stack[0];
4973 v0356 = qcdr(v0356);
4974 v0356 = qcdr(v0356);
4975 v0356 = qcar(v0356);
4976 v0356 = qcdr(v0356);
4977 v0357 = qcar(v0356);
4978 v0356 = elt(env, 22); /* prepf */
4979 fn = elt(env, 34); /* sqform */
4980 v0356 = (*qfn2(fn))(qenv(fn), v0357, v0356);
4981 nil = C_nil;
4982 if (exception_pending()) goto v0360;
4983 env = stack[-3];
4984 goto v0368;
4985
4986 v0368:
4987 fn = elt(env, 35); /* arbitrary_c */
4988 v0356 = (*qfn1(fn))(qenv(fn), v0356);
4989 nil = C_nil;
4990 if (exception_pending()) goto v0360;
4991 env = stack[-3];
4992 goto v0365;
4993
4994 v0367:
4995 v0356 = (Lisp_Object)1; /* 0 */
4996 goto v0368;
4997
4998 v0085:
4999 v0356 = stack[0];
5000 if (!(!consp(v0356))) goto v0009;
5001 v0357 = qvalue(elt(env, 18)); /* !*web */
5002 v0356 = qvalue(elt(env, 2)); /* t */
5003 if (!(equal(v0357, v0356))) goto v0369;
5004 v0356 = elt(env, 28); /* "<EMBED TYPE=""text/mathml"" MMLDATA="" "
5005 */
5006 fn = elt(env, 31); /* printout */
5007 v0356 = (*qfn1(fn))(qenv(fn), v0356);
5008 nil = C_nil;
5009 if (exception_pending()) goto v0360;
5010 env = stack[-3];
5011 goto v0369;
5012
5013 v0369:
5014 v0356 = elt(env, 20); /* "<math>" */
5015 fn = elt(env, 31); /* printout */
5016 v0356 = (*qfn1(fn))(qenv(fn), v0356);
5017 nil = C_nil;
5018 if (exception_pending()) goto v0360;
5019 env = stack[-3];
5020 v0356 = (Lisp_Object)49; /* 3 */
5021 qvalue(elt(env, 10)) = v0356; /* indent */
5022 v0356 = stack[0];
5023 fn = elt(env, 32); /* expression */
5024 v0356 = (*qfn1(fn))(qenv(fn), v0356);
5025 nil = C_nil;
5026 if (exception_pending()) goto v0360;
5027 env = stack[-3];
5028 v0356 = (Lisp_Object)1; /* 0 */
5029 qvalue(elt(env, 10)) = v0356; /* indent */
5030 v0356 = elt(env, 26); /* "</math>" */
5031 fn = elt(env, 31); /* printout */
5032 v0356 = (*qfn1(fn))(qenv(fn), v0356);
5033 nil = C_nil;
5034 if (exception_pending()) goto v0360;
5035 env = stack[-3];
5036 v0357 = qvalue(elt(env, 18)); /* !*web */
5037 v0356 = qvalue(elt(env, 2)); /* t */
5038 if (!(equal(v0357, v0356))) goto v0370;
5039 v0356 = elt(env, 29); /* " "" HEIGHT=300 WIDTH=500>" */
5040 v0356 = Lprinc(nil, v0356);
5041 nil = C_nil;
5042 if (exception_pending()) goto v0360;
5043 env = stack[-3];
5044 goto v0370;
5045
5046 v0370:
5047 v0356 = Lterpri(nil, 0);
5048 nil = C_nil;
5049 if (exception_pending()) goto v0360;
5050 env = stack[-3];
5051 goto v0009;
5052
5053 v0046:
5054 v0356 = nil;
5055 { popv(4); return onevalue(v0356); }
5056
5057 v0023:
5058 v0356 = qvalue(elt(env, 6)); /* overflowed!* */
5059 if (!(v0356 == nil)) goto v0028;
5060 v0357 = stack[0];
5061 v0356 = (Lisp_Object)1; /* 0 */
5062 fn = elt(env, 41); /* maprint */
5063 v0356 = (*qfn2(fn))(qenv(fn), v0357, v0356);
5064 nil = C_nil;
5065 if (exception_pending()) goto v0359;
5066 env = stack[-3];
5067 goto v0028;
5068 /* error exit handlers */
5069 v0360:
5070 popv(4);
5071 return nil;
5072 v0359:
5073 env = stack[-3];
5074 qvalue(elt(env, 4)) = stack[-2]; /* outputhandler!* */
5075 popv(4);
5076 return nil;
5077 }
5078
5079
5080
5081 /* Code for mappend */
5082
CC_mappend(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)5083 static Lisp_Object CC_mappend(Lisp_Object env,
5084 Lisp_Object v0000, Lisp_Object v0066)
5085 {
5086 Lisp_Object nil = C_nil;
5087 Lisp_Object v0327, v0017;
5088 CSL_IGNORE(nil);
5089 #ifdef DEBUG
5090 if (check_env(env)) return aerror("env for mappend");
5091 #endif
5092 if (stack >= stacklimit)
5093 {
5094 push2(v0066,v0000);
5095 env = reclaim(env, "stack", GC_STACK, 0);
5096 pop2(v0000,v0066);
5097 nil = C_nil;
5098 if (exception_pending()) return nil;
5099 }
5100 push(env);
5101 /* space for vars preserved across procedure calls */
5102 push5(nil, nil, nil, nil, nil);
5103 /* copy arguments values to proper place */
5104 stack[-3] = v0066;
5105 v0327 = v0000;
5106 /* end of prologue */
5107 stack[-4] = v0327;
5108 v0327 = stack[-4];
5109 if (v0327 == nil) goto v0080;
5110 v0327 = stack[-4];
5111 v0327 = qcar(v0327);
5112 v0017 = stack[-3];
5113 v0327 = Lappend(nil, v0017, v0327);
5114 nil = C_nil;
5115 if (exception_pending()) goto v0050;
5116 env = stack[-5];
5117 v0327 = ncons(v0327);
5118 nil = C_nil;
5119 if (exception_pending()) goto v0050;
5120 env = stack[-5];
5121 stack[-1] = v0327;
5122 stack[-2] = v0327;
5123 goto v0053;
5124
5125 v0053:
5126 v0327 = stack[-4];
5127 v0327 = qcdr(v0327);
5128 stack[-4] = v0327;
5129 v0327 = stack[-4];
5130 if (v0327 == nil) { Lisp_Object res = stack[-2]; popv(6); return onevalue(res); }
5131 stack[0] = stack[-1];
5132 v0327 = stack[-4];
5133 v0327 = qcar(v0327);
5134 v0017 = stack[-3];
5135 v0327 = Lappend(nil, v0017, v0327);
5136 nil = C_nil;
5137 if (exception_pending()) goto v0050;
5138 env = stack[-5];
5139 v0327 = ncons(v0327);
5140 nil = C_nil;
5141 if (exception_pending()) goto v0050;
5142 env = stack[-5];
5143 v0327 = Lrplacd(nil, stack[0], v0327);
5144 nil = C_nil;
5145 if (exception_pending()) goto v0050;
5146 env = stack[-5];
5147 v0327 = stack[-1];
5148 v0327 = qcdr(v0327);
5149 stack[-1] = v0327;
5150 goto v0053;
5151
5152 v0080:
5153 v0327 = qvalue(elt(env, 1)); /* nil */
5154 { popv(6); return onevalue(v0327); }
5155 /* error exit handlers */
5156 v0050:
5157 popv(6);
5158 return nil;
5159 }
5160
5161
5162
5163 /* Code for gbfmult */
5164
CC_gbfmult(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)5165 static Lisp_Object CC_gbfmult(Lisp_Object env,
5166 Lisp_Object v0000, Lisp_Object v0066)
5167 {
5168 Lisp_Object nil = C_nil;
5169 Lisp_Object v0049, v0050, v0051;
5170 Lisp_Object fn;
5171 CSL_IGNORE(nil);
5172 #ifdef DEBUG
5173 if (check_env(env)) return aerror("env for gbfmult");
5174 #endif
5175 if (stack >= stacklimit)
5176 {
5177 push2(v0066,v0000);
5178 env = reclaim(env, "stack", GC_STACK, 0);
5179 pop2(v0000,v0066);
5180 nil = C_nil;
5181 if (exception_pending()) return nil;
5182 }
5183 push(env);
5184 /* space for vars preserved across procedure calls */
5185 push3(nil, nil, nil);
5186 /* copy arguments values to proper place */
5187 stack[0] = v0066;
5188 stack[-1] = v0000;
5189 /* end of prologue */
5190 v0049 = stack[-1];
5191 v0049 = Lfloatp(nil, v0049);
5192 env = stack[-3];
5193 if (v0049 == nil) goto v0089;
5194 v0049 = stack[-1];
5195 fn = elt(env, 2); /* fl2bf */
5196 v0049 = (*qfn1(fn))(qenv(fn), v0049);
5197 nil = C_nil;
5198 if (exception_pending()) goto v0328;
5199 env = stack[-3];
5200 goto v0044;
5201
5202 v0044:
5203 stack[-1] = v0049;
5204 v0050 = stack[-1];
5205 v0049 = stack[0];
5206 v0049 = qcar(v0049);
5207 fn = elt(env, 3); /* csl_timbf */
5208 stack[-2] = (*qfn2(fn))(qenv(fn), v0050, v0049);
5209 nil = C_nil;
5210 if (exception_pending()) goto v0328;
5211 env = stack[-3];
5212 v0050 = stack[-1];
5213 v0049 = stack[0];
5214 v0049 = qcdr(v0049);
5215 fn = elt(env, 3); /* csl_timbf */
5216 v0049 = (*qfn2(fn))(qenv(fn), v0050, v0049);
5217 nil = C_nil;
5218 if (exception_pending()) goto v0328;
5219 {
5220 Lisp_Object v0202 = stack[-2];
5221 popv(4);
5222 return cons(v0202, v0049);
5223 }
5224
5225 v0089:
5226 v0049 = stack[-1];
5227 if (!consp(v0049)) goto v0028;
5228 v0049 = stack[-1];
5229 goto v0212;
5230
5231 v0212:
5232 fn = elt(env, 4); /* csl_normbf */
5233 v0049 = (*qfn1(fn))(qenv(fn), v0049);
5234 nil = C_nil;
5235 if (exception_pending()) goto v0328;
5236 env = stack[-3];
5237 goto v0044;
5238
5239 v0028:
5240 v0049 = stack[-1];
5241 v0049 = integerp(v0049);
5242 if (v0049 == nil) goto v0058;
5243 v0051 = elt(env, 1); /* !:rd!: */
5244 v0050 = stack[-1];
5245 v0049 = (Lisp_Object)1; /* 0 */
5246 v0049 = list2star(v0051, v0050, v0049);
5247 nil = C_nil;
5248 if (exception_pending()) goto v0328;
5249 env = stack[-3];
5250 goto v0212;
5251
5252 v0058:
5253 v0049 = stack[-1];
5254 fn = elt(env, 5); /* read!:num */
5255 v0049 = (*qfn1(fn))(qenv(fn), v0049);
5256 nil = C_nil;
5257 if (exception_pending()) goto v0328;
5258 env = stack[-3];
5259 goto v0212;
5260 /* error exit handlers */
5261 v0328:
5262 popv(4);
5263 return nil;
5264 }
5265
5266
5267
5268 /* Code for randpoly */
5269
CC_randpoly(Lisp_Object env,Lisp_Object v0000)5270 static Lisp_Object CC_randpoly(Lisp_Object env,
5271 Lisp_Object v0000)
5272 {
5273 Lisp_Object nil = C_nil;
5274 Lisp_Object v0459, v0460, v0461, v0462, v0463;
5275 Lisp_Object fn;
5276 CSL_IGNORE(nil);
5277 #ifdef DEBUG
5278 if (check_env(env)) return aerror("env for randpoly");
5279 #endif
5280 if (stack >= stacklimit)
5281 {
5282 push(v0000);
5283 env = reclaim(env, "stack", GC_STACK, 0);
5284 pop(v0000);
5285 nil = C_nil;
5286 if (exception_pending()) return nil;
5287 }
5288 push(env);
5289 /* space for vars preserved across procedure calls */
5290 push5(nil, nil, nil, nil, nil);
5291 push5(nil, nil, nil, nil, nil);
5292 push5(nil, nil, nil, nil, nil);
5293 push(nil);
5294 /* copy arguments values to proper place */
5295 stack[-14] = v0000;
5296 /* end of prologue */
5297 stack[-15] = nil;
5298 stack[-12] = nil;
5299 stack[-7] = nil;
5300 v0459 = elt(env, 1); /* lambda_ls8o1m_11 */
5301 stack[-13] = v0459;
5302 v0459 = (Lisp_Object)81; /* 5 */
5303 stack[-10] = v0459;
5304 v0459 = (Lisp_Object)1; /* 0 */
5305 stack[-9] = v0459;
5306 v0459 = (Lisp_Object)97; /* 6 */
5307 stack[-11] = v0459;
5308 v0459 = elt(env, 2); /* sparse */
5309 stack[-8] = v0459;
5310 stack[-6] = qvalue(elt(env, 3)); /* wtl!* */
5311 qvalue(elt(env, 3)) = nil; /* wtl!* */
5312 v0459 = stack[-14];
5313 fn = elt(env, 17); /* revlis */
5314 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5315 nil = C_nil;
5316 if (exception_pending()) goto v0464;
5317 env = stack[-16];
5318 stack[-14] = v0459;
5319 v0459 = qcar(v0459);
5320 stack[0] = v0459;
5321 v0460 = stack[0];
5322 v0459 = elt(env, 4); /* list */
5323 if (!consp(v0460)) goto v0204;
5324 v0460 = qcar(v0460);
5325 if (!(v0460 == v0459)) goto v0204;
5326 v0459 = stack[0];
5327 v0459 = qcdr(v0459);
5328 goto v0310;
5329
5330 v0310:
5331 stack[0] = v0459;
5332 v0459 = stack[0];
5333 stack[-5] = v0459;
5334 v0459 = stack[-5];
5335 if (v0459 == nil) goto v0035;
5336 v0459 = stack[-5];
5337 v0459 = qcar(v0459);
5338 stack[-1] = v0459;
5339 v0459 = stack[-1];
5340 if (!consp(v0459)) goto v0465;
5341 v0459 = stack[-1];
5342 v0460 = qcar(v0459);
5343 v0459 = elt(env, 7); /* equalopr */
5344 v0459 = Lflagp(nil, v0460, v0459);
5345 env = stack[-16];
5346 if (v0459 == nil) goto v0466;
5347 v0459 = stack[-1];
5348 v0459 = qcdr(v0459);
5349 v0459 = qcdr(v0459);
5350 if (v0459 == nil) goto v0074;
5351 v0459 = stack[-1];
5352 v0459 = qcdr(v0459);
5353 v0459 = qcdr(v0459);
5354 v0459 = qcdr(v0459);
5355 v0459 = (v0459 == nil ? lisp_true : nil);
5356 goto v0328;
5357
5358 v0328:
5359 if (v0459 == nil) goto v0015;
5360 v0459 = stack[-1];
5361 fn = elt(env, 18); /* !*eqn2a */
5362 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5363 nil = C_nil;
5364 if (exception_pending()) goto v0464;
5365 env = stack[-16];
5366 stack[-1] = v0459;
5367 v0459 = (Lisp_Object)17; /* 1 */
5368 stack[-9] = v0459;
5369 goto v0051;
5370
5371 v0051:
5372 v0459 = elt(env, 8); /* g */
5373 v0459 = Lgensym1(nil, v0459);
5374 nil = C_nil;
5375 if (exception_pending()) goto v0464;
5376 env = stack[-16];
5377 stack[0] = v0459;
5378 v0461 = elt(env, 9); /* equal */
5379 v0460 = stack[0];
5380 v0459 = stack[-1];
5381 v0460 = list3(v0461, v0460, v0459);
5382 nil = C_nil;
5383 if (exception_pending()) goto v0464;
5384 env = stack[-16];
5385 v0459 = stack[-7];
5386 v0459 = cons(v0460, v0459);
5387 nil = C_nil;
5388 if (exception_pending()) goto v0464;
5389 env = stack[-16];
5390 stack[-7] = v0459;
5391 v0459 = stack[0];
5392 goto v0049;
5393
5394 v0049:
5395 v0459 = ncons(v0459);
5396 nil = C_nil;
5397 if (exception_pending()) goto v0464;
5398 env = stack[-16];
5399 stack[-3] = v0459;
5400 stack[-4] = v0459;
5401 goto v0068;
5402
5403 v0068:
5404 v0459 = stack[-5];
5405 v0459 = qcdr(v0459);
5406 stack[-5] = v0459;
5407 v0459 = stack[-5];
5408 if (v0459 == nil) goto v0366;
5409 stack[-2] = stack[-3];
5410 v0459 = stack[-5];
5411 v0459 = qcar(v0459);
5412 stack[-1] = v0459;
5413 v0459 = stack[-1];
5414 if (!consp(v0459)) goto v0319;
5415 v0459 = stack[-1];
5416 v0460 = qcar(v0459);
5417 v0459 = elt(env, 7); /* equalopr */
5418 v0459 = Lflagp(nil, v0460, v0459);
5419 env = stack[-16];
5420 if (v0459 == nil) goto v0187;
5421 v0459 = stack[-1];
5422 v0459 = qcdr(v0459);
5423 v0459 = qcdr(v0459);
5424 if (v0459 == nil) goto v0296;
5425 v0459 = stack[-1];
5426 v0459 = qcdr(v0459);
5427 v0459 = qcdr(v0459);
5428 v0459 = qcdr(v0459);
5429 v0459 = (v0459 == nil ? lisp_true : nil);
5430 goto v0335;
5431
5432 v0335:
5433 if (v0459 == nil) goto v0467;
5434 v0459 = stack[-1];
5435 fn = elt(env, 18); /* !*eqn2a */
5436 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5437 nil = C_nil;
5438 if (exception_pending()) goto v0464;
5439 env = stack[-16];
5440 stack[-1] = v0459;
5441 v0459 = (Lisp_Object)17; /* 1 */
5442 stack[-9] = v0459;
5443 goto v0468;
5444
5445 v0468:
5446 v0459 = elt(env, 8); /* g */
5447 v0459 = Lgensym1(nil, v0459);
5448 nil = C_nil;
5449 if (exception_pending()) goto v0464;
5450 env = stack[-16];
5451 stack[0] = v0459;
5452 v0461 = elt(env, 9); /* equal */
5453 v0460 = stack[0];
5454 v0459 = stack[-1];
5455 v0460 = list3(v0461, v0460, v0459);
5456 nil = C_nil;
5457 if (exception_pending()) goto v0464;
5458 env = stack[-16];
5459 v0459 = stack[-7];
5460 v0459 = cons(v0460, v0459);
5461 nil = C_nil;
5462 if (exception_pending()) goto v0464;
5463 env = stack[-16];
5464 stack[-7] = v0459;
5465 v0459 = stack[0];
5466 goto v0469;
5467
5468 v0469:
5469 v0459 = ncons(v0459);
5470 nil = C_nil;
5471 if (exception_pending()) goto v0464;
5472 env = stack[-16];
5473 v0459 = Lrplacd(nil, stack[-2], v0459);
5474 nil = C_nil;
5475 if (exception_pending()) goto v0464;
5476 env = stack[-16];
5477 v0459 = stack[-3];
5478 v0459 = qcdr(v0459);
5479 stack[-3] = v0459;
5480 goto v0068;
5481
5482 v0467:
5483 v0459 = stack[-1];
5484 fn = elt(env, 19); /* simp!* */
5485 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5486 nil = C_nil;
5487 if (exception_pending()) goto v0464;
5488 env = stack[-16];
5489 fn = elt(env, 20); /* kernp */
5490 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5491 nil = C_nil;
5492 if (exception_pending()) goto v0464;
5493 env = stack[-16];
5494 if (v0459 == nil) goto v0468;
5495 v0459 = stack[-1];
5496 goto v0469;
5497
5498 v0296:
5499 v0459 = qvalue(elt(env, 6)); /* nil */
5500 goto v0335;
5501
5502 v0187:
5503 v0459 = qvalue(elt(env, 6)); /* nil */
5504 goto v0335;
5505
5506 v0319:
5507 v0459 = qvalue(elt(env, 6)); /* nil */
5508 goto v0335;
5509
5510 v0366:
5511 v0459 = stack[-4];
5512 goto v0067;
5513
5514 v0067:
5515 stack[0] = v0459;
5516 v0459 = stack[-15];
5517 if (v0459 == nil) goto v0340;
5518 v0459 = stack[0];
5519 v0459 = qcar(v0459);
5520 stack[0] = v0459;
5521 goto v0340;
5522
5523 v0340:
5524 qvalue(elt(env, 3)) = stack[-6]; /* wtl!* */
5525 v0459 = stack[-14];
5526 v0459 = qcdr(v0459);
5527 stack[-2] = v0459;
5528 goto v0185;
5529
5530 v0185:
5531 v0459 = stack[-2];
5532 if (v0459 == nil) goto v0260;
5533 v0459 = stack[-2];
5534 v0459 = qcar(v0459);
5535 stack[-1] = v0459;
5536 v0460 = stack[-1];
5537 v0459 = elt(env, 10); /* dense */
5538 if (v0460 == v0459) goto v0181;
5539 v0460 = stack[-1];
5540 v0459 = elt(env, 2); /* sparse */
5541 v0459 = (v0460 == v0459 ? lisp_true : nil);
5542 goto v0349;
5543
5544 v0349:
5545 if (v0459 == nil) goto v0288;
5546 v0459 = stack[-1];
5547 stack[-8] = v0459;
5548 goto v0470;
5549
5550 v0470:
5551 v0459 = stack[-2];
5552 v0459 = qcdr(v0459);
5553 stack[-2] = v0459;
5554 goto v0185;
5555
5556 v0288:
5557 v0459 = stack[-1];
5558 if (!consp(v0459)) goto v0282;
5559 v0459 = stack[-1];
5560 v0460 = qcar(v0459);
5561 v0459 = elt(env, 7); /* equalopr */
5562 v0459 = Lflagp(nil, v0460, v0459);
5563 env = stack[-16];
5564 if (v0459 == nil) goto v0471;
5565 v0459 = stack[-1];
5566 v0459 = qcdr(v0459);
5567 v0459 = qcdr(v0459);
5568 if (v0459 == nil) goto v0472;
5569 v0459 = stack[-1];
5570 v0459 = qcdr(v0459);
5571 v0459 = qcdr(v0459);
5572 v0459 = qcdr(v0459);
5573 v0459 = (v0459 == nil ? lisp_true : nil);
5574 goto v0221;
5575
5576 v0221:
5577 if (v0459 == nil) goto v0261;
5578 v0459 = stack[-1];
5579 v0459 = qcdr(v0459);
5580 v0460 = qcar(v0459);
5581 v0459 = elt(env, 11); /* coeffs */
5582 if (v0460 == v0459) goto v0342;
5583 v0459 = qvalue(elt(env, 6)); /* nil */
5584 goto v0341;
5585
5586 v0341:
5587 if (v0459 == nil) goto v0370;
5588 v0459 = stack[-1];
5589 v0459 = qcdr(v0459);
5590 v0459 = qcdr(v0459);
5591 v0459 = qcar(v0459);
5592 stack[-13] = v0459;
5593 goto v0168;
5594
5595 v0168:
5596 if (!(v0459 == nil)) goto v0470;
5597
5598 v0261:
5599 v0460 = stack[-1];
5600 v0459 = elt(env, 16); /* "optional randpoly argument" */
5601 fn = elt(env, 21); /* typerr */
5602 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5603 nil = C_nil;
5604 if (exception_pending()) goto v0473;
5605 env = stack[-16];
5606 goto v0470;
5607
5608 v0370:
5609 v0459 = stack[-1];
5610 v0459 = qcdr(v0459);
5611 v0460 = qcar(v0459);
5612 v0459 = elt(env, 12); /* expons */
5613 if (v0460 == v0459) goto v0148;
5614 v0459 = qvalue(elt(env, 6)); /* nil */
5615 goto v0149;
5616
5617 v0149:
5618 if (v0459 == nil) goto v0360;
5619 v0459 = stack[-1];
5620 v0459 = qcdr(v0459);
5621 v0459 = qcdr(v0459);
5622 v0459 = qcar(v0459);
5623 stack[-12] = v0459;
5624 goto v0168;
5625
5626 v0360:
5627 v0459 = stack[-1];
5628 v0459 = qcdr(v0459);
5629 v0460 = qcar(v0459);
5630 v0459 = elt(env, 13); /* (degree deg maxdeg) */
5631 v0459 = Lmemq(nil, v0460, v0459);
5632 if (v0459 == nil) goto v0152;
5633 v0459 = stack[-1];
5634 v0459 = qcdr(v0459);
5635 v0459 = qcdr(v0459);
5636 v0459 = qcar(v0459);
5637 fn = elt(env, 22); /* natnump */
5638 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5639 nil = C_nil;
5640 if (exception_pending()) goto v0473;
5641 env = stack[-16];
5642 if (v0459 == nil) goto v0152;
5643 v0459 = stack[-1];
5644 v0459 = qcdr(v0459);
5645 v0459 = qcdr(v0459);
5646 v0459 = qcar(v0459);
5647 stack[-10] = v0459;
5648 goto v0168;
5649
5650 v0152:
5651 v0459 = stack[-1];
5652 v0459 = qcdr(v0459);
5653 v0460 = qcar(v0459);
5654 v0459 = elt(env, 14); /* (ord mindeg) */
5655 v0459 = Lmemq(nil, v0460, v0459);
5656 if (v0459 == nil) goto v0144;
5657 v0459 = stack[-1];
5658 v0459 = qcdr(v0459);
5659 v0459 = qcdr(v0459);
5660 v0459 = qcar(v0459);
5661 fn = elt(env, 22); /* natnump */
5662 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5663 nil = C_nil;
5664 if (exception_pending()) goto v0473;
5665 env = stack[-16];
5666 if (v0459 == nil) goto v0144;
5667 v0459 = stack[-1];
5668 v0459 = qcdr(v0459);
5669 v0459 = qcdr(v0459);
5670 v0459 = qcar(v0459);
5671 stack[-9] = v0459;
5672 goto v0168;
5673
5674 v0144:
5675 v0459 = stack[-1];
5676 v0459 = qcdr(v0459);
5677 v0460 = qcar(v0459);
5678 v0459 = elt(env, 15); /* terms */
5679 if (v0460 == v0459) goto v0474;
5680 v0459 = qvalue(elt(env, 6)); /* nil */
5681 goto v0324;
5682
5683 v0324:
5684 if (v0459 == nil) goto v0266;
5685 v0459 = stack[-1];
5686 v0459 = qcdr(v0459);
5687 v0459 = qcdr(v0459);
5688 v0459 = qcar(v0459);
5689 stack[-11] = v0459;
5690 goto v0168;
5691
5692 v0266:
5693 v0459 = nil;
5694 goto v0168;
5695
5696 v0474:
5697 v0459 = stack[-1];
5698 v0459 = qcdr(v0459);
5699 v0459 = qcdr(v0459);
5700 v0459 = qcar(v0459);
5701 fn = elt(env, 22); /* natnump */
5702 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5703 nil = C_nil;
5704 if (exception_pending()) goto v0473;
5705 env = stack[-16];
5706 goto v0324;
5707
5708 v0148:
5709 v0459 = stack[-1];
5710 v0459 = qcdr(v0459);
5711 v0459 = qcdr(v0459);
5712 v0459 = qcar(v0459);
5713 fn = elt(env, 23); /* functionp */
5714 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5715 nil = C_nil;
5716 if (exception_pending()) goto v0473;
5717 env = stack[-16];
5718 goto v0149;
5719
5720 v0342:
5721 v0459 = stack[-1];
5722 v0459 = qcdr(v0459);
5723 v0459 = qcdr(v0459);
5724 v0459 = qcar(v0459);
5725 fn = elt(env, 23); /* functionp */
5726 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5727 nil = C_nil;
5728 if (exception_pending()) goto v0473;
5729 env = stack[-16];
5730 goto v0341;
5731
5732 v0472:
5733 v0459 = qvalue(elt(env, 6)); /* nil */
5734 goto v0221;
5735
5736 v0471:
5737 v0459 = qvalue(elt(env, 6)); /* nil */
5738 goto v0221;
5739
5740 v0282:
5741 v0459 = qvalue(elt(env, 6)); /* nil */
5742 goto v0221;
5743
5744 v0181:
5745 v0459 = qvalue(elt(env, 5)); /* t */
5746 goto v0349;
5747
5748 v0260:
5749 v0460 = qvalue(elt(env, 6)); /* nil */
5750 v0459 = (Lisp_Object)17; /* 1 */
5751 v0459 = cons(v0460, v0459);
5752 nil = C_nil;
5753 if (exception_pending()) goto v0473;
5754 env = stack[-16];
5755 stack[-1] = v0459;
5756 v0460 = stack[-9];
5757 v0459 = stack[-10];
5758 v0459 = (Lisp_Object)lesseq2(v0460, v0459);
5759 nil = C_nil;
5760 if (exception_pending()) goto v0473;
5761 v0459 = v0459 ? lisp_true : nil;
5762 env = stack[-16];
5763 if (v0459 == nil) goto v0257;
5764 v0460 = stack[-8];
5765 v0459 = elt(env, 2); /* sparse */
5766 if (v0460 == v0459) goto v0475;
5767 v0459 = stack[-15];
5768 if (v0459 == nil) goto v0476;
5769 v0460 = stack[-13];
5770 v0459 = qvalue(elt(env, 6)); /* nil */
5771 fn = elt(env, 24); /* apply */
5772 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5773 nil = C_nil;
5774 if (exception_pending()) goto v0473;
5775 env = stack[-16];
5776 fn = elt(env, 19); /* simp!* */
5777 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5778 nil = C_nil;
5779 if (exception_pending()) goto v0473;
5780 env = stack[-16];
5781 stack[-1] = v0459;
5782 v0460 = stack[-9];
5783 v0459 = (Lisp_Object)1; /* 0 */
5784 v0459 = (Lisp_Object)greaterp2(v0460, v0459);
5785 nil = C_nil;
5786 if (exception_pending()) goto v0473;
5787 v0459 = v0459 ? lisp_true : nil;
5788 env = stack[-16];
5789 if (v0459 == nil) goto v0477;
5790 v0460 = stack[0];
5791 v0459 = stack[-9];
5792 fn = elt(env, 25); /* mksq */
5793 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5794 nil = C_nil;
5795 if (exception_pending()) goto v0473;
5796 env = stack[-16];
5797 fn = elt(env, 26); /* multsq */
5798 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
5799 nil = C_nil;
5800 if (exception_pending()) goto v0473;
5801 env = stack[-16];
5802 stack[-1] = v0459;
5803 goto v0477;
5804
5805 v0477:
5806 v0459 = stack[-9];
5807 v0459 = add1(v0459);
5808 nil = C_nil;
5809 if (exception_pending()) goto v0473;
5810 env = stack[-16];
5811 stack[-2] = v0459;
5812 goto v0478;
5813
5814 v0478:
5815 v0460 = stack[-10];
5816 v0459 = stack[-2];
5817 v0459 = difference2(v0460, v0459);
5818 nil = C_nil;
5819 if (exception_pending()) goto v0473;
5820 env = stack[-16];
5821 v0459 = Lminusp(nil, v0459);
5822 env = stack[-16];
5823 if (!(v0459 == nil)) goto v0257;
5824 stack[-3] = stack[-1];
5825 v0460 = stack[-13];
5826 v0459 = qvalue(elt(env, 6)); /* nil */
5827 fn = elt(env, 24); /* apply */
5828 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5829 nil = C_nil;
5830 if (exception_pending()) goto v0473;
5831 env = stack[-16];
5832 fn = elt(env, 19); /* simp!* */
5833 stack[-1] = (*qfn1(fn))(qenv(fn), v0459);
5834 nil = C_nil;
5835 if (exception_pending()) goto v0473;
5836 env = stack[-16];
5837 v0460 = stack[0];
5838 v0459 = stack[-2];
5839 fn = elt(env, 25); /* mksq */
5840 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5841 nil = C_nil;
5842 if (exception_pending()) goto v0473;
5843 env = stack[-16];
5844 fn = elt(env, 26); /* multsq */
5845 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
5846 nil = C_nil;
5847 if (exception_pending()) goto v0473;
5848 env = stack[-16];
5849 fn = elt(env, 27); /* addsq */
5850 v0459 = (*qfn2(fn))(qenv(fn), stack[-3], v0459);
5851 nil = C_nil;
5852 if (exception_pending()) goto v0473;
5853 env = stack[-16];
5854 stack[-1] = v0459;
5855 v0459 = stack[-2];
5856 v0459 = add1(v0459);
5857 nil = C_nil;
5858 if (exception_pending()) goto v0473;
5859 env = stack[-16];
5860 stack[-2] = v0459;
5861 goto v0478;
5862
5863 v0257:
5864 v0459 = stack[-7];
5865 if (v0459 == nil) { Lisp_Object res = stack[-1]; popv(17); return onevalue(res); }
5866 stack[0] = stack[-7];
5867 v0459 = stack[-1];
5868 fn = elt(env, 28); /* mk!*sq */
5869 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5870 nil = C_nil;
5871 if (exception_pending()) goto v0473;
5872 env = stack[-16];
5873 v0459 = ncons(v0459);
5874 nil = C_nil;
5875 if (exception_pending()) goto v0473;
5876 env = stack[-16];
5877 v0459 = Lappend(nil, stack[0], v0459);
5878 nil = C_nil;
5879 if (exception_pending()) goto v0473;
5880 env = stack[-16];
5881 fn = elt(env, 29); /* subeval */
5882 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5883 nil = C_nil;
5884 if (exception_pending()) goto v0473;
5885 env = stack[-16];
5886 {
5887 popv(17);
5888 fn = elt(env, 19); /* simp!* */
5889 return (*qfn1(fn))(qenv(fn), v0459);
5890 }
5891
5892 v0476:
5893 v0461 = stack[0];
5894 v0460 = stack[-10];
5895 v0459 = stack[-9];
5896 fn = elt(env, 30); /* rand!-mons!-dense */
5897 v0459 = (*qfnn(fn))(qenv(fn), 3, v0461, v0460, v0459);
5898 nil = C_nil;
5899 if (exception_pending()) goto v0473;
5900 env = stack[-16];
5901 stack[-3] = v0459;
5902 goto v0479;
5903
5904 v0479:
5905 v0459 = stack[-3];
5906 if (v0459 == nil) goto v0257;
5907 v0459 = stack[-3];
5908 v0459 = qcar(v0459);
5909 stack[-2] = v0459;
5910 v0460 = stack[-13];
5911 v0459 = qvalue(elt(env, 6)); /* nil */
5912 fn = elt(env, 24); /* apply */
5913 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5914 nil = C_nil;
5915 if (exception_pending()) goto v0473;
5916 env = stack[-16];
5917 fn = elt(env, 19); /* simp!* */
5918 stack[0] = (*qfn1(fn))(qenv(fn), v0459);
5919 nil = C_nil;
5920 if (exception_pending()) goto v0473;
5921 env = stack[-16];
5922 v0460 = stack[-2];
5923 v0459 = (Lisp_Object)17; /* 1 */
5924 v0459 = cons(v0460, v0459);
5925 nil = C_nil;
5926 if (exception_pending()) goto v0473;
5927 env = stack[-16];
5928 fn = elt(env, 26); /* multsq */
5929 v0459 = (*qfn2(fn))(qenv(fn), stack[0], v0459);
5930 nil = C_nil;
5931 if (exception_pending()) goto v0473;
5932 env = stack[-16];
5933 fn = elt(env, 27); /* addsq */
5934 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
5935 nil = C_nil;
5936 if (exception_pending()) goto v0473;
5937 env = stack[-16];
5938 stack[-1] = v0459;
5939 v0459 = stack[-3];
5940 v0459 = qcdr(v0459);
5941 stack[-3] = v0459;
5942 goto v0479;
5943
5944 v0475:
5945 v0459 = stack[-12];
5946 if (v0459 == nil) goto v0480;
5947 v0459 = stack[-15];
5948 if (v0459 == nil) goto v0481;
5949 v0459 = (Lisp_Object)17; /* 1 */
5950 stack[-3] = v0459;
5951 goto v0482;
5952
5953 v0482:
5954 v0460 = stack[-11];
5955 v0459 = stack[-3];
5956 v0459 = difference2(v0460, v0459);
5957 nil = C_nil;
5958 if (exception_pending()) goto v0473;
5959 env = stack[-16];
5960 v0459 = Lminusp(nil, v0459);
5961 env = stack[-16];
5962 if (!(v0459 == nil)) goto v0257;
5963 stack[-4] = stack[-1];
5964 v0460 = stack[-13];
5965 v0459 = qvalue(elt(env, 6)); /* nil */
5966 fn = elt(env, 24); /* apply */
5967 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
5968 nil = C_nil;
5969 if (exception_pending()) goto v0473;
5970 env = stack[-16];
5971 fn = elt(env, 19); /* simp!* */
5972 stack[-2] = (*qfn1(fn))(qenv(fn), v0459);
5973 nil = C_nil;
5974 if (exception_pending()) goto v0473;
5975 env = stack[-16];
5976 stack[-1] = stack[0];
5977 v0459 = stack[-12];
5978 fn = elt(env, 31); /* apply_e */
5979 v0459 = (*qfn1(fn))(qenv(fn), v0459);
5980 nil = C_nil;
5981 if (exception_pending()) goto v0473;
5982 env = stack[-16];
5983 fn = elt(env, 32); /* !*kp2q */
5984 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
5985 nil = C_nil;
5986 if (exception_pending()) goto v0473;
5987 env = stack[-16];
5988 fn = elt(env, 26); /* multsq */
5989 v0459 = (*qfn2(fn))(qenv(fn), stack[-2], v0459);
5990 nil = C_nil;
5991 if (exception_pending()) goto v0473;
5992 env = stack[-16];
5993 fn = elt(env, 27); /* addsq */
5994 v0459 = (*qfn2(fn))(qenv(fn), stack[-4], v0459);
5995 nil = C_nil;
5996 if (exception_pending()) goto v0473;
5997 env = stack[-16];
5998 stack[-1] = v0459;
5999 v0459 = stack[-3];
6000 v0459 = add1(v0459);
6001 nil = C_nil;
6002 if (exception_pending()) goto v0473;
6003 env = stack[-16];
6004 stack[-3] = v0459;
6005 goto v0482;
6006
6007 v0481:
6008 v0459 = (Lisp_Object)17; /* 1 */
6009 stack[-4] = v0459;
6010 goto v0483;
6011
6012 v0483:
6013 v0460 = stack[-11];
6014 v0459 = stack[-4];
6015 v0459 = difference2(v0460, v0459);
6016 nil = C_nil;
6017 if (exception_pending()) goto v0473;
6018 env = stack[-16];
6019 v0459 = Lminusp(nil, v0459);
6020 env = stack[-16];
6021 if (!(v0459 == nil)) goto v0257;
6022 v0460 = stack[-13];
6023 v0459 = qvalue(elt(env, 6)); /* nil */
6024 fn = elt(env, 24); /* apply */
6025 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
6026 nil = C_nil;
6027 if (exception_pending()) goto v0473;
6028 env = stack[-16];
6029 fn = elt(env, 19); /* simp!* */
6030 v0459 = (*qfn1(fn))(qenv(fn), v0459);
6031 nil = C_nil;
6032 if (exception_pending()) goto v0473;
6033 env = stack[-16];
6034 v0460 = v0459;
6035 v0459 = v0460;
6036 v0459 = qcar(v0459);
6037 if (v0459 == nil) goto v0484;
6038 stack[-5] = stack[-1];
6039 v0459 = stack[0];
6040 stack[-3] = v0459;
6041 goto v0485;
6042
6043 v0485:
6044 v0459 = stack[-3];
6045 if (v0459 == nil) goto v0486;
6046 v0459 = stack[-3];
6047 v0459 = qcar(v0459);
6048 stack[-2] = v0460;
6049 stack[-1] = v0459;
6050 v0459 = stack[-12];
6051 fn = elt(env, 31); /* apply_e */
6052 v0459 = (*qfn1(fn))(qenv(fn), v0459);
6053 nil = C_nil;
6054 if (exception_pending()) goto v0473;
6055 env = stack[-16];
6056 fn = elt(env, 32); /* !*kp2q */
6057 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
6058 nil = C_nil;
6059 if (exception_pending()) goto v0473;
6060 env = stack[-16];
6061 fn = elt(env, 26); /* multsq */
6062 v0459 = (*qfn2(fn))(qenv(fn), stack[-2], v0459);
6063 nil = C_nil;
6064 if (exception_pending()) goto v0473;
6065 env = stack[-16];
6066 v0460 = v0459;
6067 v0459 = stack[-3];
6068 v0459 = qcdr(v0459);
6069 stack[-3] = v0459;
6070 goto v0485;
6071
6072 v0486:
6073 v0459 = v0460;
6074 fn = elt(env, 27); /* addsq */
6075 v0459 = (*qfn2(fn))(qenv(fn), stack[-5], v0459);
6076 nil = C_nil;
6077 if (exception_pending()) goto v0473;
6078 env = stack[-16];
6079 stack[-1] = v0459;
6080 goto v0484;
6081
6082 v0484:
6083 v0459 = stack[-4];
6084 v0459 = add1(v0459);
6085 nil = C_nil;
6086 if (exception_pending()) goto v0473;
6087 env = stack[-16];
6088 stack[-4] = v0459;
6089 goto v0483;
6090
6091 v0480:
6092 v0463 = stack[0];
6093 v0462 = stack[-11];
6094 v0461 = stack[-10];
6095 v0460 = stack[-9];
6096 v0459 = stack[-15];
6097 fn = elt(env, 33); /* rand!-mons!-sparse */
6098 v0459 = (*qfnn(fn))(qenv(fn), 5, v0463, v0462, v0461, v0460, v0459);
6099 nil = C_nil;
6100 if (exception_pending()) goto v0473;
6101 env = stack[-16];
6102 stack[-3] = v0459;
6103 goto v0487;
6104
6105 v0487:
6106 v0459 = stack[-3];
6107 if (v0459 == nil) goto v0257;
6108 v0459 = stack[-3];
6109 v0459 = qcar(v0459);
6110 stack[-2] = v0459;
6111 v0460 = stack[-13];
6112 v0459 = qvalue(elt(env, 6)); /* nil */
6113 fn = elt(env, 24); /* apply */
6114 v0459 = (*qfn2(fn))(qenv(fn), v0460, v0459);
6115 nil = C_nil;
6116 if (exception_pending()) goto v0473;
6117 env = stack[-16];
6118 fn = elt(env, 19); /* simp!* */
6119 stack[0] = (*qfn1(fn))(qenv(fn), v0459);
6120 nil = C_nil;
6121 if (exception_pending()) goto v0473;
6122 env = stack[-16];
6123 v0460 = stack[-2];
6124 v0459 = (Lisp_Object)17; /* 1 */
6125 v0459 = cons(v0460, v0459);
6126 nil = C_nil;
6127 if (exception_pending()) goto v0473;
6128 env = stack[-16];
6129 fn = elt(env, 26); /* multsq */
6130 v0459 = (*qfn2(fn))(qenv(fn), stack[0], v0459);
6131 nil = C_nil;
6132 if (exception_pending()) goto v0473;
6133 env = stack[-16];
6134 fn = elt(env, 27); /* addsq */
6135 v0459 = (*qfn2(fn))(qenv(fn), stack[-1], v0459);
6136 nil = C_nil;
6137 if (exception_pending()) goto v0473;
6138 env = stack[-16];
6139 stack[-1] = v0459;
6140 v0459 = stack[-3];
6141 v0459 = qcdr(v0459);
6142 stack[-3] = v0459;
6143 goto v0487;
6144
6145 v0015:
6146 v0459 = stack[-1];
6147 fn = elt(env, 19); /* simp!* */
6148 v0459 = (*qfn1(fn))(qenv(fn), v0459);
6149 nil = C_nil;
6150 if (exception_pending()) goto v0464;
6151 env = stack[-16];
6152 fn = elt(env, 20); /* kernp */
6153 v0459 = (*qfn1(fn))(qenv(fn), v0459);
6154 nil = C_nil;
6155 if (exception_pending()) goto v0464;
6156 env = stack[-16];
6157 if (v0459 == nil) goto v0051;
6158 v0459 = stack[-1];
6159 goto v0049;
6160
6161 v0074:
6162 v0459 = qvalue(elt(env, 6)); /* nil */
6163 goto v0328;
6164
6165 v0466:
6166 v0459 = qvalue(elt(env, 6)); /* nil */
6167 goto v0328;
6168
6169 v0465:
6170 v0459 = qvalue(elt(env, 6)); /* nil */
6171 goto v0328;
6172
6173 v0035:
6174 v0459 = qvalue(elt(env, 6)); /* nil */
6175 goto v0067;
6176
6177 v0204:
6178 v0459 = qvalue(elt(env, 5)); /* t */
6179 stack[-15] = v0459;
6180 v0459 = stack[0];
6181 v0459 = ncons(v0459);
6182 nil = C_nil;
6183 if (exception_pending()) goto v0464;
6184 env = stack[-16];
6185 goto v0310;
6186 /* error exit handlers */
6187 v0473:
6188 popv(17);
6189 return nil;
6190 v0464:
6191 env = stack[-16];
6192 qvalue(elt(env, 3)) = stack[-6]; /* wtl!* */
6193 popv(17);
6194 return nil;
6195 }
6196
6197
6198
6199 /* Code for lambda_ls8o1m_11 */
6200
CC_lambda_ls8o1m_11(Lisp_Object env,int nargs,...)6201 static Lisp_Object MS_CDECL CC_lambda_ls8o1m_11(Lisp_Object env, int nargs, ...)
6202 {
6203 Lisp_Object nil = C_nil;
6204 Lisp_Object v0196, v0089;
6205 Lisp_Object fn;
6206 CSL_IGNORE(nil);
6207 argcheck(nargs, 0, "lambda_ls8o1m_11");
6208 #ifdef DEBUG
6209 if (check_env(env)) return aerror("env for lambda_ls8o1m_11");
6210 #endif
6211 if (stack >= stacklimit)
6212 {
6213 env = reclaim(env, "stack", GC_STACK, 0);
6214 nil = C_nil;
6215 if (exception_pending()) return nil;
6216 }
6217 CSL_IGNORE(env);
6218 /* end of prologue */
6219 v0196 = (Lisp_Object)3185; /* 199 */
6220 fn = elt(env, 1); /* random */
6221 v0089 = (*qfn1(fn))(qenv(fn), v0196);
6222 errexit();
6223 v0196 = (Lisp_Object)1585; /* 99 */
6224 return difference2(v0089, v0196);
6225 }
6226
6227
6228
6229 /* Code for positive!-rounded!-float */
6230
CC_positiveKroundedKfloat(Lisp_Object env,Lisp_Object v0000)6231 static Lisp_Object CC_positiveKroundedKfloat(Lisp_Object env,
6232 Lisp_Object v0000)
6233 {
6234 Lisp_Object nil = C_nil;
6235 Lisp_Object v0026, v0310;
6236 Lisp_Object fn;
6237 CSL_IGNORE(nil);
6238 #ifdef DEBUG
6239 if (check_env(env)) return aerror("env for positive-rounded-float");
6240 #endif
6241 if (stack >= stacklimit)
6242 {
6243 push(v0000);
6244 env = reclaim(env, "stack", GC_STACK, 0);
6245 pop(v0000);
6246 nil = C_nil;
6247 if (exception_pending()) return nil;
6248 }
6249 push(env);
6250 /* space for vars preserved across procedure calls */
6251 push(nil);
6252 /* copy arguments values to proper place */
6253 stack[0] = v0000;
6254 /* end of prologue */
6255 v0026 = stack[0];
6256 fn = elt(env, 1); /* rounded!-float */
6257 v0026 = (*qfn1(fn))(qenv(fn), v0026);
6258 nil = C_nil;
6259 if (exception_pending()) goto v0057;
6260 env = stack[-1];
6261 stack[0] = v0026;
6262 v0026 = stack[0];
6263 if (v0026 == nil) { Lisp_Object res = stack[0]; popv(2); return onevalue(res); }
6264 v0310 = stack[0];
6265 v0026 = (Lisp_Object)1; /* 0 */
6266 v0026 = (Lisp_Object)lessp2(v0310, v0026);
6267 nil = C_nil;
6268 if (exception_pending()) goto v0057;
6269 v0026 = v0026 ? lisp_true : nil;
6270 if (v0026 == nil) { Lisp_Object res = stack[0]; popv(2); return onevalue(res); }
6271 v0026 = stack[0];
6272 popv(2);
6273 return negate(v0026);
6274 /* error exit handlers */
6275 v0057:
6276 popv(2);
6277 return nil;
6278 }
6279
6280
6281
6282 /* Code for symmetrize!-inds */
6283
CC_symmetrizeKinds(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)6284 static Lisp_Object CC_symmetrizeKinds(Lisp_Object env,
6285 Lisp_Object v0000, Lisp_Object v0066)
6286 {
6287 Lisp_Object nil = C_nil;
6288 Lisp_Object v0499, v0471;
6289 Lisp_Object fn;
6290 CSL_IGNORE(nil);
6291 #ifdef DEBUG
6292 if (check_env(env)) return aerror("env for symmetrize-inds");
6293 #endif
6294 if (stack >= stacklimit)
6295 {
6296 push2(v0066,v0000);
6297 env = reclaim(env, "stack", GC_STACK, 0);
6298 pop2(v0000,v0066);
6299 nil = C_nil;
6300 if (exception_pending()) return nil;
6301 }
6302 push(env);
6303 /* space for vars preserved across procedure calls */
6304 push5(nil, nil, nil, nil, nil);
6305 push5(nil, nil, nil, nil, nil);
6306 push(nil);
6307 /* copy arguments values to proper place */
6308 stack[-8] = v0066;
6309 stack[-9] = v0000;
6310 /* end of prologue */
6311 v0499 = (Lisp_Object)1; /* 0 */
6312 stack[-10] = v0499;
6313 v0499 = stack[-9];
6314 stack[-7] = v0499;
6315 v0499 = stack[-7];
6316 if (v0499 == nil) goto v0033;
6317 v0499 = stack[-7];
6318 v0499 = qcar(v0499);
6319 v0471 = v0499;
6320 if (!consp(v0471)) goto v0023;
6321 stack[-3] = v0499;
6322 v0499 = stack[-3];
6323 if (v0499 == nil) goto v0500;
6324 v0499 = stack[-3];
6325 v0499 = qcar(v0499);
6326 v0471 = stack[-8];
6327 fn = elt(env, 2); /* pnth */
6328 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6329 nil = C_nil;
6330 if (exception_pending()) goto v0341;
6331 env = stack[-11];
6332 v0499 = qcar(v0499);
6333 v0499 = ncons(v0499);
6334 nil = C_nil;
6335 if (exception_pending()) goto v0341;
6336 env = stack[-11];
6337 stack[-1] = v0499;
6338 stack[-2] = v0499;
6339 goto v0067;
6340
6341 v0067:
6342 v0499 = stack[-3];
6343 v0499 = qcdr(v0499);
6344 stack[-3] = v0499;
6345 v0499 = stack[-3];
6346 if (v0499 == nil) goto v0458;
6347 stack[0] = stack[-1];
6348 v0499 = stack[-3];
6349 v0499 = qcar(v0499);
6350 v0471 = stack[-8];
6351 fn = elt(env, 2); /* pnth */
6352 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6353 nil = C_nil;
6354 if (exception_pending()) goto v0341;
6355 env = stack[-11];
6356 v0499 = qcar(v0499);
6357 v0499 = ncons(v0499);
6358 nil = C_nil;
6359 if (exception_pending()) goto v0341;
6360 env = stack[-11];
6361 v0499 = Lrplacd(nil, stack[0], v0499);
6362 nil = C_nil;
6363 if (exception_pending()) goto v0341;
6364 env = stack[-11];
6365 v0499 = stack[-1];
6366 v0499 = qcdr(v0499);
6367 stack[-1] = v0499;
6368 goto v0067;
6369
6370 v0458:
6371 v0499 = stack[-2];
6372 goto v0057;
6373
6374 v0057:
6375 v0499 = ncons(v0499);
6376 nil = C_nil;
6377 if (exception_pending()) goto v0341;
6378 env = stack[-11];
6379 stack[-5] = v0499;
6380 stack[-6] = v0499;
6381 goto v0212;
6382
6383 v0212:
6384 v0499 = stack[-7];
6385 v0499 = qcdr(v0499);
6386 stack[-7] = v0499;
6387 v0499 = stack[-7];
6388 if (v0499 == nil) goto v0199;
6389 stack[-4] = stack[-5];
6390 v0499 = stack[-7];
6391 v0499 = qcar(v0499);
6392 v0471 = v0499;
6393 if (!consp(v0471)) goto v0455;
6394 stack[-3] = v0499;
6395 v0499 = stack[-3];
6396 if (v0499 == nil) goto v0305;
6397 v0499 = stack[-3];
6398 v0499 = qcar(v0499);
6399 v0471 = stack[-8];
6400 fn = elt(env, 2); /* pnth */
6401 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6402 nil = C_nil;
6403 if (exception_pending()) goto v0341;
6404 env = stack[-11];
6405 v0499 = qcar(v0499);
6406 v0499 = ncons(v0499);
6407 nil = C_nil;
6408 if (exception_pending()) goto v0341;
6409 env = stack[-11];
6410 stack[-1] = v0499;
6411 stack[-2] = v0499;
6412 goto v0306;
6413
6414 v0306:
6415 v0499 = stack[-3];
6416 v0499 = qcdr(v0499);
6417 stack[-3] = v0499;
6418 v0499 = stack[-3];
6419 if (v0499 == nil) goto v0335;
6420 stack[0] = stack[-1];
6421 v0499 = stack[-3];
6422 v0499 = qcar(v0499);
6423 v0471 = stack[-8];
6424 fn = elt(env, 2); /* pnth */
6425 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6426 nil = C_nil;
6427 if (exception_pending()) goto v0341;
6428 env = stack[-11];
6429 v0499 = qcar(v0499);
6430 v0499 = ncons(v0499);
6431 nil = C_nil;
6432 if (exception_pending()) goto v0341;
6433 env = stack[-11];
6434 v0499 = Lrplacd(nil, stack[0], v0499);
6435 nil = C_nil;
6436 if (exception_pending()) goto v0341;
6437 env = stack[-11];
6438 v0499 = stack[-1];
6439 v0499 = qcdr(v0499);
6440 stack[-1] = v0499;
6441 goto v0306;
6442
6443 v0335:
6444 v0499 = stack[-2];
6445 goto v0501;
6446
6447 v0501:
6448 v0499 = ncons(v0499);
6449 nil = C_nil;
6450 if (exception_pending()) goto v0341;
6451 env = stack[-11];
6452 v0499 = Lrplacd(nil, stack[-4], v0499);
6453 nil = C_nil;
6454 if (exception_pending()) goto v0341;
6455 env = stack[-11];
6456 v0499 = stack[-5];
6457 v0499 = qcdr(v0499);
6458 stack[-5] = v0499;
6459 goto v0212;
6460
6461 v0305:
6462 v0499 = qvalue(elt(env, 1)); /* nil */
6463 goto v0501;
6464
6465 v0455:
6466 v0471 = stack[-8];
6467 fn = elt(env, 2); /* pnth */
6468 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6469 nil = C_nil;
6470 if (exception_pending()) goto v0341;
6471 env = stack[-11];
6472 v0499 = qcar(v0499);
6473 goto v0501;
6474
6475 v0199:
6476 v0499 = stack[-6];
6477 goto v0083;
6478
6479 v0083:
6480 stack[-5] = v0499;
6481 v0499 = stack[-5];
6482 v0499 = qcar(v0499);
6483 if (!consp(v0499)) goto v0293;
6484 v0499 = stack[-5];
6485 fn = elt(env, 3); /* indordln */
6486 v0499 = (*qfn1(fn))(qenv(fn), v0499);
6487 nil = C_nil;
6488 if (exception_pending()) goto v0341;
6489 env = stack[-11];
6490 fn = elt(env, 4); /* flatindl */
6491 v0499 = (*qfn1(fn))(qenv(fn), v0499);
6492 nil = C_nil;
6493 if (exception_pending()) goto v0341;
6494 env = stack[-11];
6495 goto v0352;
6496
6497 v0352:
6498 stack[0] = v0499;
6499 v0499 = stack[-9];
6500 v0499 = qcar(v0499);
6501 if (!consp(v0499)) goto v0502;
6502 v0499 = stack[-9];
6503 fn = elt(env, 4); /* flatindl */
6504 v0499 = (*qfn1(fn))(qenv(fn), v0499);
6505 nil = C_nil;
6506 if (exception_pending()) goto v0341;
6507 env = stack[-11];
6508 stack[-9] = v0499;
6509 goto v0502;
6510
6511 v0502:
6512 v0471 = stack[-9];
6513 v0499 = stack[0];
6514 fn = elt(env, 5); /* pair */
6515 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6516 nil = C_nil;
6517 if (exception_pending()) goto v0341;
6518 env = stack[-11];
6519 stack[-5] = v0499;
6520 stack[-6] = (Lisp_Object)17; /* 1 */
6521 v0499 = stack[-8];
6522 stack[-7] = v0499;
6523 v0499 = stack[-7];
6524 if (v0499 == nil) goto v0361;
6525 v0499 = stack[-7];
6526 v0499 = qcar(v0499);
6527 stack[-1] = v0499;
6528 v0499 = stack[-5];
6529 if (v0499 == nil) goto v0218;
6530 v0499 = stack[-5];
6531 v0499 = qcar(v0499);
6532 stack[0] = qcar(v0499);
6533 v0499 = stack[-10];
6534 v0499 = add1(v0499);
6535 nil = C_nil;
6536 if (exception_pending()) goto v0341;
6537 env = stack[-11];
6538 stack[-10] = v0499;
6539 if (!(equal(stack[0], v0499))) goto v0218;
6540 v0499 = stack[-5];
6541 v0499 = qcar(v0499);
6542 v0499 = qcdr(v0499);
6543 v0471 = v0499;
6544 v0499 = stack[-5];
6545 v0499 = qcdr(v0499);
6546 stack[-5] = v0499;
6547 v0499 = v0471;
6548 goto v0290;
6549
6550 v0290:
6551 v0499 = ncons(v0499);
6552 nil = C_nil;
6553 if (exception_pending()) goto v0341;
6554 env = stack[-11];
6555 stack[-3] = v0499;
6556 stack[-4] = v0499;
6557 goto v0175;
6558
6559 v0175:
6560 v0499 = stack[-7];
6561 v0499 = qcdr(v0499);
6562 stack[-7] = v0499;
6563 v0499 = stack[-7];
6564 if (v0499 == nil) goto v0503;
6565 stack[-2] = stack[-3];
6566 v0499 = stack[-7];
6567 v0499 = qcar(v0499);
6568 stack[-1] = v0499;
6569 v0499 = stack[-5];
6570 if (v0499 == nil) goto v0223;
6571 v0499 = stack[-5];
6572 v0499 = qcar(v0499);
6573 stack[0] = qcar(v0499);
6574 v0499 = stack[-10];
6575 v0499 = add1(v0499);
6576 nil = C_nil;
6577 if (exception_pending()) goto v0341;
6578 env = stack[-11];
6579 stack[-10] = v0499;
6580 if (!(equal(stack[0], v0499))) goto v0223;
6581 v0499 = stack[-5];
6582 v0499 = qcar(v0499);
6583 v0499 = qcdr(v0499);
6584 v0471 = v0499;
6585 v0499 = stack[-5];
6586 v0499 = qcdr(v0499);
6587 stack[-5] = v0499;
6588 v0499 = v0471;
6589 goto v0446;
6590
6591 v0446:
6592 v0499 = ncons(v0499);
6593 nil = C_nil;
6594 if (exception_pending()) goto v0341;
6595 env = stack[-11];
6596 v0499 = Lrplacd(nil, stack[-2], v0499);
6597 nil = C_nil;
6598 if (exception_pending()) goto v0341;
6599 env = stack[-11];
6600 v0499 = stack[-3];
6601 v0499 = qcdr(v0499);
6602 stack[-3] = v0499;
6603 goto v0175;
6604
6605 v0223:
6606 v0499 = stack[-1];
6607 goto v0446;
6608
6609 v0503:
6610 v0499 = stack[-4];
6611 goto v0504;
6612
6613 v0504:
6614 {
6615 Lisp_Object v0342 = stack[-6];
6616 popv(12);
6617 return cons(v0342, v0499);
6618 }
6619
6620 v0218:
6621 v0499 = stack[-1];
6622 goto v0290;
6623
6624 v0361:
6625 v0499 = qvalue(elt(env, 1)); /* nil */
6626 goto v0504;
6627
6628 v0293:
6629 v0499 = stack[-5];
6630 fn = elt(env, 6); /* indordn */
6631 v0499 = (*qfn1(fn))(qenv(fn), v0499);
6632 nil = C_nil;
6633 if (exception_pending()) goto v0341;
6634 env = stack[-11];
6635 goto v0352;
6636
6637 v0500:
6638 v0499 = qvalue(elt(env, 1)); /* nil */
6639 goto v0057;
6640
6641 v0023:
6642 v0471 = stack[-8];
6643 fn = elt(env, 2); /* pnth */
6644 v0499 = (*qfn2(fn))(qenv(fn), v0471, v0499);
6645 nil = C_nil;
6646 if (exception_pending()) goto v0341;
6647 env = stack[-11];
6648 v0499 = qcar(v0499);
6649 goto v0057;
6650
6651 v0033:
6652 v0499 = qvalue(elt(env, 1)); /* nil */
6653 goto v0083;
6654 /* error exit handlers */
6655 v0341:
6656 popv(12);
6657 return nil;
6658 }
6659
6660
6661
6662 /* Code for mod!-dump1 */
6663
CC_modKdump1(Lisp_Object env,int nargs,Lisp_Object v0000,Lisp_Object v0066,Lisp_Object v0006,...)6664 static Lisp_Object MS_CDECL CC_modKdump1(Lisp_Object env, int nargs,
6665 Lisp_Object v0000, Lisp_Object v0066,
6666 Lisp_Object v0006, ...)
6667 {
6668 Lisp_Object nil = C_nil;
6669 Lisp_Object v0061, v0062, v0063;
6670 Lisp_Object fn;
6671 CSL_IGNORE(nil);
6672 argcheck(nargs, 3, "mod-dump1");
6673 #ifdef DEBUG
6674 if (check_env(env)) return aerror("env for mod-dump1");
6675 #endif
6676 if (stack >= stacklimit)
6677 {
6678 push3(v0006,v0066,v0000);
6679 env = reclaim(env, "stack", GC_STACK, 0);
6680 pop3(v0000,v0066,v0006);
6681 nil = C_nil;
6682 if (exception_pending()) return nil;
6683 }
6684 push(env);
6685 /* space for vars preserved across procedure calls */
6686 push5(nil, nil, nil, nil, nil);
6687 /* copy arguments values to proper place */
6688 stack[-1] = v0006;
6689 stack[-2] = v0066;
6690 stack[-3] = v0000;
6691 /* end of prologue */
6692 stack[-4] = nil;
6693 goto v0054;
6694
6695 v0054:
6696 v0061 = stack[-1];
6697 if (v0061 == nil) goto v0196;
6698 v0061 = stack[-1];
6699 v0061 = qcar(v0061);
6700 stack[0] = qcar(v0061);
6701 v0063 = stack[-3];
6702 v0062 = stack[-2];
6703 v0061 = stack[-1];
6704 v0061 = qcar(v0061);
6705 v0061 = qcdr(v0061);
6706 fn = elt(env, 1); /* l!-subst */
6707 v0062 = (*qfnn(fn))(qenv(fn), 3, v0063, v0062, v0061);
6708 nil = C_nil;
6709 if (exception_pending()) goto v0500;
6710 env = stack[-5];
6711 v0061 = stack[-4];
6712 v0061 = acons(stack[0], v0062, v0061);
6713 nil = C_nil;
6714 if (exception_pending()) goto v0500;
6715 env = stack[-5];
6716 stack[-4] = v0061;
6717 v0061 = stack[-1];
6718 v0061 = qcdr(v0061);
6719 stack[-1] = v0061;
6720 goto v0054;
6721
6722 v0196:
6723 v0061 = stack[-4];
6724 {
6725 popv(6);
6726 fn = elt(env, 2); /* nreverse */
6727 return (*qfn1(fn))(qenv(fn), v0061);
6728 }
6729 /* error exit handlers */
6730 v0500:
6731 popv(6);
6732 return nil;
6733 }
6734
6735
6736
6737 /* Code for force!-lc */
6738
CC_forceKlc(Lisp_Object env,Lisp_Object v0000,Lisp_Object v0066)6739 static Lisp_Object CC_forceKlc(Lisp_Object env,
6740 Lisp_Object v0000, Lisp_Object v0066)
6741 {
6742 Lisp_Object nil = C_nil;
6743 Lisp_Object v0028, v0069, v0033;
6744 CSL_IGNORE(nil);
6745 #ifdef DEBUG
6746 if (check_env(env)) return aerror("env for force-lc");
6747 #endif
6748 CSL_IGNORE(env);
6749 /* copy arguments values to proper place */
6750 v0028 = v0066;
6751 v0069 = v0000;
6752 /* end of prologue */
6753 v0033 = v0069;
6754 v0033 = qcar(v0033);
6755 v0033 = qcar(v0033);
6756 v0069 = qcdr(v0069);
6757 return acons(v0033, v0028, v0069);
6758 }
6759
6760
6761
6762 setup_type const u52_setup[] =
6763 {
6764 {"relationrd", CC_relationrd, too_many_1, wrong_no_1},
6765 {"numlistp", CC_numlistp, too_many_1, wrong_no_1},
6766 {"prinindexs", CC_prinindexs, too_many_1, wrong_no_1},
6767 {"redexpp", CC_redexpp, too_many_1, wrong_no_1},
6768 {"let0", CC_let0, too_many_1, wrong_no_1},
6769 {"mk-strand-vertex", too_few_2, CC_mkKstrandKvertex,wrong_no_2},
6770 {"compactf2", wrong_no_na, wrong_no_nb, (n_args *)CC_compactf2},
6771 {"invbase*", wrong_no_na, wrong_no_nb, (n_args *)CC_invbaseH},
6772 {"radf", too_few_2, CC_radf, wrong_no_2},
6773 {"update_kc_list", wrong_no_na, wrong_no_nb, (n_args *)CC_update_kc_list},
6774 {"multtaylorsq", too_few_2, CC_multtaylorsq,wrong_no_2},
6775 {"same+dim+squared+p", too_few_2, CC_sameLdimLsquaredLp,wrong_no_2},
6776 {"kern-list", too_few_2, CC_kernKlist, wrong_no_2},
6777 {"aex_mvar", CC_aex_mvar, too_many_1, wrong_no_1},
6778 {"math_ml_printer", too_few_2, CC_math_ml_printer,wrong_no_2},
6779 {"mappend", too_few_2, CC_mappend, wrong_no_2},
6780 {"gbfmult", too_few_2, CC_gbfmult, wrong_no_2},
6781 {"randpoly", CC_randpoly, too_many_1, wrong_no_1},
6782 {"lambda_ls8o1m_11", wrong_no_na, wrong_no_nb, (n_args *)CC_lambda_ls8o1m_11},
6783 {"positive-rounded-float", CC_positiveKroundedKfloat,too_many_1,wrong_no_1},
6784 {"symmetrize-inds", too_few_2, CC_symmetrizeKinds,wrong_no_2},
6785 {"mod-dump1", wrong_no_na, wrong_no_nb, (n_args *)CC_modKdump1},
6786 {"force-lc", too_few_2, CC_forceKlc, wrong_no_2},
6787 {NULL, (one_args *)"u52", (two_args *)"22076 7981718 2657698", 0}
6788 };
6789
6790 /* end of generated code */
6791