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