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