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