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