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