1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_numlib.h" |
4 |
|
void init_gcl_numlib(){do_init(VV);} |
5 |
|
/* local entry for function ISQRT */ |
6 |
|
|
7 |
|
static object LI1(V2) |
8 |
|
|
9 |
|
register object V2; |
10 |
|
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
|
TTL:; |
13 |
|
if(!(type_of((V2))==t_fixnum||type_of((V2))==t_bignum)){ |
14 |
|
goto T2;} |
15 |
|
if(number_compare((V2),small_fixnum(0))>=0){ |
16 |
|
goto T1;} |
17 |
|
goto T2; |
18 |
|
T2:; |
19 |
|
base[0]= VV[0]; |
20 |
|
base[1]= (V2); |
21 |
|
vs_top=(vs_base=base+0)+2; |
22 |
|
Lerror(); |
23 |
|
vs_top=sup; |
24 |
|
goto T1; |
25 |
|
T1:; |
26 |
|
if(!(number_compare(small_fixnum(0),(V2))==0)){ |
27 |
|
goto T9;} |
28 |
|
{object V3 = small_fixnum(0); |
29 |
|
VMR1(V3)} |
30 |
|
goto T9; |
31 |
|
T9:; |
32 |
|
{object V4; |
33 |
|
base[0]= (V2); |
34 |
|
vs_top=(vs_base=base+0)+1; |
35 |
|
Linteger_length(); |
36 |
|
vs_top=sup; |
37 |
|
V4= vs_base[0]; |
38 |
|
{register object V5; |
39 |
|
register object V6; |
40 |
|
base[0]= small_fixnum(1); |
41 |
|
base[2]= (V4); |
42 |
|
base[3]= small_fixnum(2); |
43 |
|
vs_top=(vs_base=base+2)+2; |
44 |
|
Lceiling(); |
45 |
|
vs_top=sup; |
46 |
|
base[1]= vs_base[0]; |
47 |
|
vs_top=(vs_base=base+0)+2; |
48 |
|
Lash(); |
49 |
|
vs_top=sup; |
50 |
|
V5= vs_base[0]; |
51 |
|
V6= Cnil; |
52 |
|
goto T19; |
53 |
|
T19:; |
54 |
|
base[0]= (V2); |
55 |
|
base[1]= (V5); |
56 |
|
vs_top=(vs_base=base+0)+2; |
57 |
|
Lfloor(); |
58 |
|
vs_top=sup; |
59 |
|
V6= vs_base[0]; |
60 |
|
if(!(number_compare((V5),(V6))<=0)){ |
61 |
|
goto T26;} |
62 |
|
{object V7 = (V5); |
63 |
|
VMR1(V7)} |
64 |
|
goto T26; |
65 |
|
T26:; |
66 |
|
base[0]= number_plus((V5),(V6)); |
67 |
|
base[1]= small_fixnum(2); |
68 |
|
vs_top=(vs_base=base+0)+2; |
69 |
|
Lfloor(); |
70 |
|
vs_top=sup; |
71 |
|
V5= vs_base[0]; |
72 |
|
goto T19;}} |
73 |
|
base[0]=base[0]; |
74 |
|
return Cnil; |
75 |
|
} |
76 |
|
/* local entry for function ABS */ |
77 |
|
|
78 |
|
static object LI2(V9) |
79 |
|
|
80 |
|
register object V9; |
81 |
|
{ VMB2 VMS2 VMV2 |
82 |
|
goto TTL; |
83 |
|
TTL:; |
84 |
|
base[0]= (V9); |
85 |
|
vs_top=(vs_base=base+0)+1; |
86 |
|
Lcomplexp(); |
87 |
|
vs_top=sup; |
88 |
|
if((vs_base[0])==Cnil){ |
89 |
|
goto T36;} |
90 |
|
{register object V10; |
91 |
|
register object V11; |
92 |
|
base[2]= (V9); |
93 |
|
vs_top=(vs_base=base+2)+1; |
94 |
|
Lrealpart(); |
95 |
|
vs_top=sup; |
96 |
|
V12= vs_base[0]; |
97 |
|
V10= (*(LnkLI13))(V12); |
98 |
|
base[2]= (V9); |
99 |
|
vs_top=(vs_base=base+2)+1; |
100 |
|
Limagpart(); |
101 |
|
vs_top=sup; |
102 |
|
V13= vs_base[0]; |
103 |
|
V11= (*(LnkLI13))(V13); |
104 |
|
if(!(number_compare((V10),(V11))<0)){ |
105 |
|
goto T45;} |
106 |
|
{object V14; |
107 |
|
object V15; |
108 |
|
V14= (V11); |
109 |
|
V15= (V10); |
110 |
|
V10= (V14); |
111 |
|
V11= (V15);} |
112 |
|
goto T45; |
113 |
|
T45:; |
114 |
|
if(!(number_compare(small_fixnum(0),(V10))==0)){ |
115 |
|
goto T55;} |
116 |
|
{object V16 = (V10); |
117 |
|
VMR2(V16)} |
118 |
|
goto T55; |
119 |
|
T55:; |
120 |
|
{object V17; |
121 |
|
base[2]= (V11); |
122 |
|
base[3]= (V10); |
123 |
|
vs_top=(vs_base=base+2)+2; |
124 |
|
Ldivide(); |
125 |
|
vs_top=sup; |
126 |
|
V17= vs_base[0]; |
127 |
|
V19= number_times((V17),(V17)); |
128 |
|
base[2]= number_plus(small_fixnum(1),/* INLINE-ARGS */V19); |
129 |
|
vs_top=(vs_base=base+2)+1; |
130 |
|
Lsqrt(); |
131 |
|
vs_top=sup; |
132 |
|
V18= vs_base[0]; |
133 |
|
{object V20 = number_times((V10),V18); |
134 |
|
VMR2(V20)}}} |
135 |
|
goto T36; |
136 |
|
T36:; |
137 |
|
if(!(number_compare(small_fixnum(0),(V9))>0)){ |
138 |
|
goto T63;} |
139 |
|
{object V21 = number_negate((V9)); |
140 |
|
VMR2(V21)} |
141 |
|
goto T63; |
142 |
|
T63:; |
143 |
|
{object V22 = (V9); |
144 |
|
VMR2(V22)} |
145 |
|
base[0]=base[0]; |
146 |
|
return Cnil; |
147 |
|
} |
148 |
|
/* local entry for function PHASE */ |
149 |
|
|
150 |
|
static object LI3(V24) |
151 |
|
|
152 |
|
object V24; |
153 |
|
{ VMB3 VMS3 VMV3 |
154 |
|
goto TTL; |
155 |
|
TTL:; |
156 |
|
base[1]= (V24); |
157 |
|
vs_top=(vs_base=base+1)+1; |
158 |
|
Limagpart(); |
159 |
|
vs_top=sup; |
160 |
|
base[0]= vs_base[0]; |
161 |
|
base[2]= (V24); |
162 |
|
vs_top=(vs_base=base+2)+1; |
163 |
|
Lrealpart(); |
164 |
|
vs_top=sup; |
165 |
|
base[1]= vs_base[0]; |
166 |
|
vs_top=(vs_base=base+0)+2; |
167 |
|
Latan(); |
168 |
|
vs_top=sup; |
169 |
|
{object V25 = vs_base[0]; |
170 |
|
VMR3(V25)} |
171 |
|
base[0]=base[0]; |
172 |
|
return Cnil; |
173 |
|
} |
174 |
|
/* local entry for function SIGNUM */ |
175 |
|
|
176 |
|
static object LI4(V27) |
177 |
|
|
178 |
|
register object V27; |
179 |
|
{ VMB4 VMS4 VMV4 |
180 |
|
goto TTL; |
181 |
|
TTL:; |
182 |
|
if(!(number_compare(small_fixnum(0),(V27))==0)){ |
183 |
|
goto T70;} |
184 |
|
{object V28 = (V27); |
185 |
|
VMR4(V28)} |
186 |
|
goto T70; |
187 |
|
T70:; |
188 |
|
base[0]= (V27); |
189 |
|
base[1]= (*(LnkLI13))((V27)); |
190 |
|
vs_top=(vs_base=base+0)+2; |
191 |
|
Ldivide(); |
192 |
|
vs_top=sup; |
193 |
|
{object V29 = vs_base[0]; |
194 |
|
VMR4(V29)} |
195 |
|
base[0]=base[0]; |
196 |
|
return Cnil; |
197 |
|
} |
198 |
|
/* local entry for function CIS */ |
199 |
|
|
200 |
|
static object LI5(V31) |
201 |
|
|
202 |
|
object V31; |
203 |
|
{ VMB5 VMS5 VMV5 |
204 |
|
goto TTL; |
205 |
|
TTL:; |
206 |
|
base[0]= number_times(VV[1],(V31)); |
207 |
|
vs_top=(vs_base=base+0)+1; |
208 |
|
Lexp(); |
209 |
|
vs_top=sup; |
210 |
|
{object V32 = vs_base[0]; |
211 |
|
VMR5(V32)} |
212 |
|
base[0]=base[0]; |
213 |
|
return Cnil; |
214 |
|
} |
215 |
|
/* local entry for function ASIN */ |
216 |
|
|
217 |
|
static object LI6(V34) |
218 |
|
|
219 |
|
register object V34; |
220 |
|
{ VMB6 VMS6 VMV6 |
221 |
|
goto TTL; |
222 |
|
TTL:; |
223 |
|
{object V35; |
224 |
|
V37= number_times(VV[1],(V34)); |
225 |
|
V39= number_times((V34),(V34)); |
226 |
|
base[1]= number_minus(VV[2],/* INLINE-ARGS */V39); |
227 |
|
vs_top=(vs_base=base+1)+1; |
228 |
|
Lsqrt(); |
229 |
|
vs_top=sup; |
230 |
|
V38= vs_base[0]; |
231 |
|
base[0]= number_plus(/* INLINE-ARGS */V37,V38); |
232 |
|
vs_top=(vs_base=base+0)+1; |
233 |
|
Llog(); |
234 |
|
vs_top=sup; |
235 |
|
V36= vs_base[0]; |
236 |
|
V40= number_times(VV[1],V36); |
237 |
|
V35= number_negate(/* INLINE-ARGS */V40); |
238 |
|
base[0]= (V34); |
239 |
|
vs_top=(vs_base=base+0)+1; |
240 |
|
Lcomplexp(); |
241 |
|
vs_top=sup; |
242 |
|
if((vs_base[0])!=Cnil){ |
243 |
|
goto T82;} |
244 |
|
if(!(number_compare((V34),VV[2])<=0)){ |
245 |
|
goto T82;} |
246 |
|
if(number_compare((V34),VV[3])>=0){ |
247 |
|
goto T80;} |
248 |
|
goto T82; |
249 |
|
T82:; |
250 |
|
base[0]= (V35); |
251 |
|
vs_top=(vs_base=base+0)+1; |
252 |
|
Limagpart(); |
253 |
|
vs_top=sup; |
254 |
|
V41= vs_base[0]; |
255 |
|
if(!(number_compare(small_fixnum(0),V41)==0)){ |
256 |
|
goto T81;} |
257 |
|
goto T80; |
258 |
|
T80:; |
259 |
|
base[0]= (V35); |
260 |
|
vs_top=(vs_base=base+0)+1; |
261 |
|
Lrealpart(); |
262 |
|
vs_top=sup; |
263 |
|
{object V42 = vs_base[0]; |
264 |
|
VMR6(V42)} |
265 |
|
goto T81; |
266 |
|
T81:; |
267 |
|
{object V43 = (V35); |
268 |
|
VMR6(V43)}} |
269 |
|
base[0]=base[0]; |
270 |
|
return Cnil; |
271 |
|
} |
272 |
|
/* local entry for function ACOS */ |
273 |
|
|
274 |
|
static object LI7(V45) |
275 |
|
|
276 |
|
register object V45; |
277 |
|
{ VMB7 VMS7 VMV7 |
278 |
|
goto TTL; |
279 |
|
TTL:; |
280 |
|
{object V46; |
281 |
|
V49= number_times((V45),(V45)); |
282 |
|
base[1]= number_minus(VV[2],/* INLINE-ARGS */V49); |
283 |
|
vs_top=(vs_base=base+1)+1; |
284 |
|
Lsqrt(); |
285 |
|
vs_top=sup; |
286 |
|
V48= vs_base[0]; |
287 |
|
V50= number_times(VV[1],V48); |
288 |
|
base[0]= number_plus((V45),/* INLINE-ARGS */V50); |
289 |
|
vs_top=(vs_base=base+0)+1; |
290 |
|
Llog(); |
291 |
|
vs_top=sup; |
292 |
|
V47= vs_base[0]; |
293 |
|
V51= number_times(VV[1],V47); |
294 |
|
V46= number_negate(/* INLINE-ARGS */V51); |
295 |
|
base[0]= (V45); |
296 |
|
vs_top=(vs_base=base+0)+1; |
297 |
|
Lcomplexp(); |
298 |
|
vs_top=sup; |
299 |
|
if((vs_base[0])!=Cnil){ |
300 |
|
goto T100;} |
301 |
|
if(!(number_compare((V45),VV[2])<=0)){ |
302 |
|
goto T100;} |
303 |
|
if(number_compare((V45),VV[3])>=0){ |
304 |
|
goto T98;} |
305 |
|
goto T100; |
306 |
|
T100:; |
307 |
|
base[0]= (V46); |
308 |
|
vs_top=(vs_base=base+0)+1; |
309 |
|
Limagpart(); |
310 |
|
vs_top=sup; |
311 |
|
V52= vs_base[0]; |
312 |
|
if(!(number_compare(small_fixnum(0),V52)==0)){ |
313 |
|
goto T99;} |
314 |
|
goto T98; |
315 |
|
T98:; |
316 |
|
base[0]= (V46); |
317 |
|
vs_top=(vs_base=base+0)+1; |
318 |
|
Lrealpart(); |
319 |
|
vs_top=sup; |
320 |
|
{object V53 = vs_base[0]; |
321 |
|
VMR7(V53)} |
322 |
|
goto T99; |
323 |
|
T99:; |
324 |
|
{object V54 = (V46); |
325 |
|
VMR7(V54)}} |
326 |
|
base[0]=base[0]; |
327 |
|
return Cnil; |
328 |
|
} |
329 |
|
/* local entry for function SINH */ |
330 |
|
|
331 |
|
static object LI8(V56) |
332 |
|
|
333 |
|
register object V56; |
334 |
|
{ VMB8 VMS8 VMV8 |
335 |
|
goto TTL; |
336 |
|
TTL:; |
337 |
|
base[0]= (V56); |
338 |
|
vs_top=(vs_base=base+0)+1; |
339 |
|
Lcomplexp(); |
340 |
|
vs_top=sup; |
341 |
|
if((vs_base[0])==Cnil){ |
342 |
|
goto T112;} |
343 |
|
{object V57; |
344 |
|
object V58; |
345 |
|
base[0]= (V56); |
346 |
|
vs_top=(vs_base=base+0)+1; |
347 |
|
Lrealpart(); |
348 |
|
vs_top=sup; |
349 |
|
V57= vs_base[0]; |
350 |
|
base[0]= (V56); |
351 |
|
vs_top=(vs_base=base+0)+1; |
352 |
|
Limagpart(); |
353 |
|
vs_top=sup; |
354 |
|
V58= vs_base[0]; |
355 |
|
V59= (*(LnkLI14))((V57)); |
356 |
|
base[1]= (V58); |
357 |
|
vs_top=(vs_base=base+1)+1; |
358 |
|
Lcos(); |
359 |
|
vs_top=sup; |
360 |
|
V60= vs_base[0]; |
361 |
|
base[0]= number_times(/* INLINE-ARGS */V59,V60); |
362 |
|
V61= (*(LnkLI15))((V57)); |
363 |
|
base[2]= (V58); |
364 |
|
vs_top=(vs_base=base+2)+1; |
365 |
|
Lsin(); |
366 |
|
vs_top=sup; |
367 |
|
V62= vs_base[0]; |
368 |
|
base[1]= number_times(/* INLINE-ARGS */V61,V62); |
369 |
|
vs_top=(vs_base=base+0)+2; |
370 |
|
Lcomplex(); |
371 |
|
vs_top=sup; |
372 |
|
{object V63 = vs_base[0]; |
373 |
|
VMR8(V63)}} |
374 |
|
goto T112; |
375 |
|
T112:; |
376 |
|
base[0]= number_negate(VV[4]); |
377 |
|
base[1]= (V56); |
378 |
|
base[2]= VV[4]; |
379 |
|
vs_top=(vs_base=base+0)+3; |
380 |
|
Lmonotonically_increasing(); |
381 |
|
vs_top=sup; |
382 |
|
if((vs_base[0])==Cnil){ |
383 |
|
goto T126;} |
384 |
|
base[0]= (V56); |
385 |
|
base[2]= (V56); |
386 |
|
vs_top=(vs_base=base+2)+1; |
387 |
|
Lexp(); |
388 |
|
vs_top=sup; |
389 |
|
base[1]= vs_base[0]; |
390 |
|
V65= number_times(VV[7],(V56)); |
391 |
|
V66= number_minus(VV[6],/* INLINE-ARGS */V65); |
392 |
|
V67= number_times((V56),/* INLINE-ARGS */V66); |
393 |
|
V68= number_minus(VV[5],/* INLINE-ARGS */V67); |
394 |
|
V69= number_times((V56),/* INLINE-ARGS */V68); |
395 |
|
V70= number_minus(small_fixnum(1),/* INLINE-ARGS */V69); |
396 |
|
V71= number_times((V56),/* INLINE-ARGS */V70); |
397 |
|
base[2]= number_minus(small_fixnum(1),/* INLINE-ARGS */V71); |
398 |
|
vs_top=(vs_base=base+0)+3; |
399 |
|
Ltimes(); |
400 |
|
vs_top=sup; |
401 |
|
{object V72 = vs_base[0]; |
402 |
|
VMR8(V72)} |
403 |
|
goto T126; |
404 |
|
T126:; |
405 |
|
{object V73; |
406 |
|
base[0]= (V56); |
407 |
|
vs_top=(vs_base=base+0)+1; |
408 |
|
Lexp(); |
409 |
|
vs_top=sup; |
410 |
|
V73= vs_base[0]; |
411 |
|
base[0]= (V73); |
412 |
|
vs_top=(vs_base=base+0)+1; |
413 |
|
Ldivide(); |
414 |
|
vs_top=sup; |
415 |
|
V74= vs_base[0]; |
416 |
|
V75= number_minus((V73),V74); |
417 |
|
{object V76 = number_times(VV[8],/* INLINE-ARGS */V75); |
418 |
|
VMR8(V76)}} |
419 |
|
base[0]=base[0]; |
420 |
|
return Cnil; |
421 |
|
} |
422 |
|
/* local entry for function COSH */ |
423 |
|
|
424 |
|
static object LI9(V78) |
425 |
|
|
426 |
|
register object V78; |
427 |
|
{ VMB9 VMS9 VMV9 |
428 |
|
goto TTL; |
429 |
|
TTL:; |
430 |
|
base[0]= (V78); |
431 |
|
vs_top=(vs_base=base+0)+1; |
432 |
|
Lcomplexp(); |
433 |
|
vs_top=sup; |
434 |
|
if((vs_base[0])==Cnil){ |
435 |
|
goto T140;} |
436 |
|
{object V79; |
437 |
|
object V80; |
438 |
|
base[0]= (V78); |
439 |
|
vs_top=(vs_base=base+0)+1; |
440 |
|
Lrealpart(); |
441 |
|
vs_top=sup; |
442 |
|
V79= vs_base[0]; |
443 |
|
base[0]= (V78); |
444 |
|
vs_top=(vs_base=base+0)+1; |
445 |
|
Limagpart(); |
446 |
|
vs_top=sup; |
447 |
|
V80= vs_base[0]; |
448 |
|
V81= (*(LnkLI15))((V79)); |
449 |
|
base[1]= (V80); |
450 |
|
vs_top=(vs_base=base+1)+1; |
451 |
|
Lcos(); |
452 |
|
vs_top=sup; |
453 |
|
V82= vs_base[0]; |
454 |
|
base[0]= number_times(/* INLINE-ARGS */V81,V82); |
455 |
|
V83= (*(LnkLI14))((V79)); |
456 |
|
base[2]= (V80); |
457 |
|
vs_top=(vs_base=base+2)+1; |
458 |
|
Lsin(); |
459 |
|
vs_top=sup; |
460 |
|
V84= vs_base[0]; |
461 |
|
base[1]= number_times(/* INLINE-ARGS */V83,V84); |
462 |
|
vs_top=(vs_base=base+0)+2; |
463 |
|
Lcomplex(); |
464 |
|
vs_top=sup; |
465 |
|
{object V85 = vs_base[0]; |
466 |
|
VMR9(V85)}} |
467 |
|
goto T140; |
468 |
|
T140:; |
469 |
|
{object V86; |
470 |
|
base[0]= (V78); |
471 |
|
vs_top=(vs_base=base+0)+1; |
472 |
|
Lexp(); |
473 |
|
vs_top=sup; |
474 |
|
V86= vs_base[0]; |
475 |
|
base[0]= (V86); |
476 |
|
vs_top=(vs_base=base+0)+1; |
477 |
|
Ldivide(); |
478 |
|
vs_top=sup; |
479 |
|
V87= vs_base[0]; |
480 |
|
V88= number_plus((V86),V87); |
481 |
|
{object V89 = number_times(VV[8],/* INLINE-ARGS */V88); |
482 |
|
VMR9(V89)}} |
483 |
|
base[0]=base[0]; |
484 |
|
return Cnil; |
485 |
|
} |
486 |
|
/* local entry for function TANH */ |
487 |
|
|
488 |
|
static object LI10(V91) |
489 |
|
|
490 |
|
object V91; |
491 |
|
{ VMB10 VMS10 VMV10 |
492 |
|
goto TTL; |
493 |
|
TTL:; |
494 |
|
base[0]= (*(LnkLI14))((V91)); |
495 |
|
base[1]= (*(LnkLI15))((V91)); |
496 |
|
vs_top=(vs_base=base+0)+2; |
497 |
|
Ldivide(); |
498 |
|
vs_top=sup; |
499 |
|
{object V92 = vs_base[0]; |
500 |
|
VMR10(V92)} |
501 |
|
base[0]=base[0]; |
502 |
|
return Cnil; |
503 |
|
} |
504 |
|
/* local entry for function ASINH */ |
505 |
|
|
506 |
|
static object LI11(V94) |
507 |
|
|
508 |
|
object V94; |
509 |
|
{ VMB11 VMS11 VMV11 |
510 |
|
goto TTL; |
511 |
|
TTL:; |
512 |
|
V96= number_times((V94),(V94)); |
513 |
|
base[1]= number_plus(VV[2],/* INLINE-ARGS */V96); |
514 |
|
vs_top=(vs_base=base+1)+1; |
515 |
|
Lsqrt(); |
516 |
|
vs_top=sup; |
517 |
|
V95= vs_base[0]; |
518 |
|
base[0]= number_plus((V94),V95); |
519 |
|
vs_top=(vs_base=base+0)+1; |
520 |
|
Llog(); |
521 |
|
vs_top=sup; |
522 |
|
{object V97 = vs_base[0]; |
523 |
|
VMR11(V97)} |
524 |
|
base[0]=base[0]; |
525 |
|
return Cnil; |
526 |
|
} |
527 |
|
/* local entry for function ACOSH */ |
528 |
|
|
529 |
|
static object LI12(V99) |
530 |
|
|
531 |
|
object V99; |
532 |
|
{ VMB12 VMS12 VMV12 |
533 |
|
goto TTL; |
534 |
|
TTL:; |
535 |
|
base[2]= one_plus((V99)); |
536 |
|
base[3]= small_fixnum(2); |
537 |
|
vs_top=(vs_base=base+2)+2; |
538 |
|
Ldivide(); |
539 |
|
vs_top=sup; |
540 |
|
base[1]= vs_base[0]; |
541 |
|
vs_top=(vs_base=base+1)+1; |
542 |
|
Lsqrt(); |
543 |
|
vs_top=sup; |
544 |
|
V101= vs_base[0]; |
545 |
|
base[2]= one_minus((V99)); |
546 |
|
base[3]= small_fixnum(2); |
547 |
|
vs_top=(vs_base=base+2)+2; |
548 |
|
Ldivide(); |
549 |
|
vs_top=sup; |
550 |
|
base[1]= vs_base[0]; |
551 |
|
vs_top=(vs_base=base+1)+1; |
552 |
|
Lsqrt(); |
553 |
|
vs_top=sup; |
554 |
|
V102= vs_base[0]; |
555 |
|
base[0]= number_plus(V101,V102); |
556 |
|
vs_top=(vs_base=base+0)+1; |
557 |
|
Llog(); |
558 |
|
vs_top=sup; |
559 |
|
V100= vs_base[0]; |
560 |
|
{object V103 = number_times(small_fixnum(2),V100); |
561 |
|
VMR12(V103)} |
562 |
|
base[0]=base[0]; |
563 |
|
return Cnil; |
564 |
|
} |
565 |
|
/* local entry for function ATANH */ |
566 |
|
|
567 |
|
static object LI13(V105) |
568 |
|
|
569 |
|
register object V105; |
570 |
|
{ VMB13 VMS13 VMV13 |
571 |
|
goto TTL; |
572 |
|
TTL:; |
573 |
|
if(number_compare((V105),VV[2])==0){ |
574 |
|
goto T173;} |
575 |
|
if(!(number_compare((V105),VV[3])==0)){ |
576 |
|
goto T172;} |
577 |
|
goto T173; |
578 |
|
T173:; |
579 |
|
base[0]= VV[9]; |
580 |
|
base[1]= (V105); |
581 |
|
vs_top=(vs_base=base+0)+2; |
582 |
|
Lerror(); |
583 |
|
vs_top=sup; |
584 |
|
goto T172; |
585 |
|
T172:; |
586 |
|
base[1]= one_plus((V105)); |
587 |
|
V106= number_times((V105),(V105)); |
588 |
|
base[3]= number_minus(VV[2],/* INLINE-ARGS */V106); |
589 |
|
vs_top=(vs_base=base+3)+1; |
590 |
|
Lsqrt(); |
591 |
|
vs_top=sup; |
592 |
|
base[2]= vs_base[0]; |
593 |
|
vs_top=(vs_base=base+1)+2; |
594 |
|
Ldivide(); |
595 |
|
vs_top=sup; |
596 |
|
base[0]= vs_base[0]; |
597 |
|
vs_top=(vs_base=base+0)+1; |
598 |
|
Llog(); |
599 |
|
vs_top=sup; |
600 |
|
{object V107 = vs_base[0]; |
601 |
|
VMR13(V107)} |
602 |
|
base[0]=base[0]; |
603 |
|
return Cnil; |
604 |
|
} |
605 |
|
/* local entry for function RATIONAL */ |
606 |
|
|
607 |
|
static object LI14(V109) |
608 |
|
|
609 |
|
register object V109; |
610 |
|
{ VMB14 VMS14 VMV14 |
611 |
|
goto TTL; |
612 |
|
TTL:; |
613 |
|
{register object V110; |
614 |
|
V110= (V109); |
615 |
|
if(!(type_of((V110))==t_shortfloat||type_of((V110))==t_longfloat)){ |
616 |
|
goto T184;} |
617 |
|
{object V111; |
618 |
|
object V112; |
619 |
|
object V113; |
620 |
|
base[0]= (V109); |
621 |
|
vs_top=(vs_base=base+0)+1; |
622 |
|
Linteger_decode_float(); |
623 |
|
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
624 |
|
V111= vs_base[0]; |
625 |
|
vs_base++; |
626 |
|
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
627 |
|
V112= vs_base[0]; |
628 |
|
vs_base++; |
629 |
|
if(vs_base>=vs_top){vs_top=sup;goto T190;} |
630 |
|
V113= vs_base[0]; |
631 |
|
vs_top=sup; |
632 |
|
goto T191; |
633 |
|
goto T188; |
634 |
|
T188:; |
635 |
|
V111= Cnil; |
636 |
|
goto T189; |
637 |
|
T189:; |
638 |
|
V112= Cnil; |
639 |
|
goto T190; |
640 |
|
T190:; |
641 |
|
V113= Cnil; |
642 |
|
goto T191; |
643 |
|
T191:; |
644 |
|
if(!(number_compare((V113),small_fixnum(0))>=0)){ |
645 |
|
goto T193;} |
646 |
|
base[0]= (V109); |
647 |
|
vs_top=(vs_base=base+0)+1; |
648 |
|
Lfloat_radix(); |
649 |
|
vs_top=sup; |
650 |
|
V114= vs_base[0]; |
651 |
|
V115= number_expt(V114,(V112)); |
652 |
|
{object V116 = number_times((V111),/* INLINE-ARGS */V115); |
653 |
|
VMR14(V116)} |
654 |
|
goto T193; |
655 |
|
T193:; |
656 |
|
base[0]= (V109); |
657 |
|
vs_top=(vs_base=base+0)+1; |
658 |
|
Lfloat_radix(); |
659 |
|
vs_top=sup; |
660 |
|
V117= vs_base[0]; |
661 |
|
V118= number_expt(V117,(V112)); |
662 |
|
V119= number_times((V111),/* INLINE-ARGS */V118); |
663 |
|
{object V120 = number_negate(/* INLINE-ARGS */V119); |
664 |
|
VMR14(V120)}} |
665 |
|
goto T184; |
666 |
|
T184:; |
667 |
|
base[0]= (V110); |
668 |
|
vs_top=(vs_base=base+0)+1; |
669 |
|
(void) (*Lnk16)(); |
670 |
|
vs_top=sup; |
671 |
|
if((vs_base[0])==Cnil){ |
672 |
|
goto T200;} |
673 |
|
{object V121 = (V109); |
674 |
|
VMR14(V121)} |
675 |
|
goto T200; |
676 |
|
T200:; |
677 |
|
base[0]= (*(LnkLI17))(VV[10],(V110),VV[11]); |
678 |
|
vs_top=(vs_base=base+0)+1; |
679 |
|
Lerror(); |
680 |
|
vs_top=sup; |
681 |
|
{object V122 = vs_base[0]; |
682 |
|
VMR14(V122)}} |
683 |
|
base[0]=base[0]; |
684 |
|
return Cnil; |
685 |
|
} |
686 |
|
/* function definition for FFLOOR */ |
687 |
|
|
688 |
|
static void L15() |
689 |
|
{register object *base=vs_base; |
690 |
|
register object *sup=base+VM15; VC15 |
691 |
|
vs_reserve(VM15); |
692 |
|
{object V123; |
693 |
|
object V124; |
694 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
695 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
696 |
|
V123=(base[0]); |
697 |
|
vs_base=vs_base+1; |
698 |
|
if(vs_base>=vs_top){vs_top=sup;goto T204;} |
699 |
|
V124=(base[1]); |
700 |
|
vs_top=sup; |
701 |
|
goto T205; |
702 |
|
goto T204; |
703 |
|
T204:; |
704 |
|
V124= VV[12]; |
705 |
|
goto T205; |
706 |
|
T205:; |
707 |
|
{object V125; |
708 |
|
object V126; |
709 |
|
base[3]= (V123); |
710 |
|
vs_top=(vs_base=base+3)+1; |
711 |
|
Lfloat(); |
712 |
|
vs_top=sup; |
713 |
|
base[2]= vs_base[0]; |
714 |
|
base[4]= (V124); |
715 |
|
vs_top=(vs_base=base+4)+1; |
716 |
|
Lfloat(); |
717 |
|
vs_top=sup; |
718 |
|
base[3]= vs_base[0]; |
719 |
|
vs_top=(vs_base=base+2)+2; |
720 |
|
Lfloor(); |
721 |
|
if(vs_base>=vs_top){vs_top=sup;goto T212;} |
722 |
|
V125= vs_base[0]; |
723 |
|
vs_base++; |
724 |
|
if(vs_base>=vs_top){vs_top=sup;goto T213;} |
725 |
|
V126= vs_base[0]; |
726 |
|
vs_top=sup; |
727 |
|
goto T214; |
728 |
|
goto T212; |
729 |
|
T212:; |
730 |
|
V125= Cnil; |
731 |
|
goto T213; |
732 |
|
T213:; |
733 |
|
V126= Cnil; |
734 |
|
goto T214; |
735 |
|
T214:; |
736 |
|
base[3]= (V125); |
737 |
|
base[4]= (V126); |
738 |
|
vs_top=(vs_base=base+3)+2; |
739 |
|
Lfloat(); |
740 |
|
vs_top=sup; |
741 |
|
base[2]= vs_base[0]; |
742 |
|
base[3]= (V126); |
743 |
|
vs_top=(vs_base=base+2)+2; |
744 |
|
return;} |
745 |
|
} |
746 |
|
} |
747 |
|
/* function definition for FCEILING */ |
748 |
|
|
749 |
|
static void L16() |
750 |
|
{register object *base=vs_base; |
751 |
|
register object *sup=base+VM16; VC16 |
752 |
|
vs_reserve(VM16); |
753 |
|
{object V127; |
754 |
|
object V128; |
755 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
756 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
757 |
|
V127=(base[0]); |
758 |
|
vs_base=vs_base+1; |
759 |
|
if(vs_base>=vs_top){vs_top=sup;goto T219;} |
760 |
|
V128=(base[1]); |
761 |
|
vs_top=sup; |
762 |
|
goto T220; |
763 |
|
goto T219; |
764 |
|
T219:; |
765 |
|
V128= VV[12]; |
766 |
|
goto T220; |
767 |
|
T220:; |
768 |
|
{object V129; |
769 |
|
object V130; |
770 |
|
base[3]= (V127); |
771 |
|
vs_top=(vs_base=base+3)+1; |
772 |
|
Lfloat(); |
773 |
|
vs_top=sup; |
774 |
|
base[2]= vs_base[0]; |
775 |
|
base[4]= (V128); |
776 |
|
vs_top=(vs_base=base+4)+1; |
777 |
|
Lfloat(); |
778 |
|
vs_top=sup; |
779 |
|
base[3]= vs_base[0]; |
780 |
|
vs_top=(vs_base=base+2)+2; |
781 |
|
Lceiling(); |
782 |
|
if(vs_base>=vs_top){vs_top=sup;goto T227;} |
783 |
|
V129= vs_base[0]; |
784 |
|
vs_base++; |
785 |
|
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
786 |
|
V130= vs_base[0]; |
787 |
|
vs_top=sup; |
788 |
|
goto T229; |
789 |
|
goto T227; |
790 |
|
T227:; |
791 |
|
V129= Cnil; |
792 |
|
goto T228; |
793 |
|
T228:; |
794 |
|
V130= Cnil; |
795 |
|
goto T229; |
796 |
|
T229:; |
797 |
|
base[3]= (V129); |
798 |
|
base[4]= (V130); |
799 |
|
vs_top=(vs_base=base+3)+2; |
800 |
|
Lfloat(); |
801 |
|
vs_top=sup; |
802 |
|
base[2]= vs_base[0]; |
803 |
|
base[3]= (V130); |
804 |
|
vs_top=(vs_base=base+2)+2; |
805 |
|
return;} |
806 |
|
} |
807 |
|
} |
808 |
|
/* function definition for FTRUNCATE */ |
809 |
|
|
810 |
|
static void L17() |
811 |
|
{register object *base=vs_base; |
812 |
|
register object *sup=base+VM17; VC17 |
813 |
|
vs_reserve(VM17); |
814 |
|
{object V131; |
815 |
|
object V132; |
816 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
817 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
818 |
|
V131=(base[0]); |
819 |
|
vs_base=vs_base+1; |
820 |
|
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
821 |
|
V132=(base[1]); |
822 |
|
vs_top=sup; |
823 |
|
goto T235; |
824 |
|
goto T234; |
825 |
|
T234:; |
826 |
|
V132= VV[12]; |
827 |
|
goto T235; |
828 |
|
T235:; |
829 |
|
{object V133; |
830 |
|
object V134; |
831 |
|
base[3]= (V131); |
832 |
|
vs_top=(vs_base=base+3)+1; |
833 |
|
Lfloat(); |
834 |
|
vs_top=sup; |
835 |
|
base[2]= vs_base[0]; |
836 |
|
base[4]= (V132); |
837 |
|
vs_top=(vs_base=base+4)+1; |
838 |
|
Lfloat(); |
839 |
|
vs_top=sup; |
840 |
|
base[3]= vs_base[0]; |
841 |
|
vs_top=(vs_base=base+2)+2; |
842 |
|
Ltruncate(); |
843 |
|
if(vs_base>=vs_top){vs_top=sup;goto T242;} |
844 |
|
V133= vs_base[0]; |
845 |
|
vs_base++; |
846 |
|
if(vs_base>=vs_top){vs_top=sup;goto T243;} |
847 |
|
V134= vs_base[0]; |
848 |
|
vs_top=sup; |
849 |
|
goto T244; |
850 |
|
goto T242; |
851 |
|
T242:; |
852 |
|
V133= Cnil; |
853 |
|
goto T243; |
854 |
|
T243:; |
855 |
|
V134= Cnil; |
856 |
|
goto T244; |
857 |
|
T244:; |
858 |
|
base[3]= (V133); |
859 |
|
base[4]= (V134); |
860 |
|
vs_top=(vs_base=base+3)+2; |
861 |
|
Lfloat(); |
862 |
|
vs_top=sup; |
863 |
|
base[2]= vs_base[0]; |
864 |
|
base[3]= (V134); |
865 |
|
vs_top=(vs_base=base+2)+2; |
866 |
|
return;} |
867 |
|
} |
868 |
|
} |
869 |
|
/* function definition for FROUND */ |
870 |
|
|
871 |
|
static void L18() |
872 |
|
{register object *base=vs_base; |
873 |
|
register object *sup=base+VM18; VC18 |
874 |
|
vs_reserve(VM18); |
875 |
|
{object V135; |
876 |
|
object V136; |
877 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
878 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
879 |
|
V135=(base[0]); |
880 |
|
vs_base=vs_base+1; |
881 |
|
if(vs_base>=vs_top){vs_top=sup;goto T249;} |
882 |
|
V136=(base[1]); |
883 |
|
vs_top=sup; |
884 |
|
goto T250; |
885 |
|
goto T249; |
886 |
|
T249:; |
887 |
|
V136= VV[12]; |
888 |
|
goto T250; |
889 |
|
T250:; |
890 |
|
{object V137; |
891 |
|
object V138; |
892 |
|
base[3]= (V135); |
893 |
|
vs_top=(vs_base=base+3)+1; |
894 |
|
Lfloat(); |
895 |
|
vs_top=sup; |
896 |
|
base[2]= vs_base[0]; |
897 |
|
base[4]= (V136); |
898 |
|
vs_top=(vs_base=base+4)+1; |
899 |
|
Lfloat(); |
900 |
|
vs_top=sup; |
901 |
|
base[3]= vs_base[0]; |
902 |
|
vs_top=(vs_base=base+2)+2; |
903 |
|
Lround(); |
904 |
|
if(vs_base>=vs_top){vs_top=sup;goto T257;} |
905 |
|
V137= vs_base[0]; |
906 |
|
vs_base++; |
907 |
|
if(vs_base>=vs_top){vs_top=sup;goto T258;} |
908 |
|
V138= vs_base[0]; |
909 |
|
vs_top=sup; |
910 |
|
goto T259; |
911 |
|
goto T257; |
912 |
|
T257:; |
913 |
|
V137= Cnil; |
914 |
|
goto T258; |
915 |
|
T258:; |
916 |
|
V138= Cnil; |
917 |
|
goto T259; |
918 |
|
T259:; |
919 |
|
base[3]= (V137); |
920 |
|
base[4]= (V138); |
921 |
|
vs_top=(vs_base=base+3)+2; |
922 |
|
Lfloat(); |
923 |
|
vs_top=sup; |
924 |
|
base[2]= vs_base[0]; |
925 |
|
base[3]= (V138); |
926 |
|
vs_top=(vs_base=base+2)+2; |
927 |
|
return;} |
928 |
|
} |
929 |
|
} |
930 |
|
/* local entry for function LOGNAND */ |
931 |
|
|
932 |
|
static object LI19(V141,V142) |
933 |
|
|
934 |
|
object V141;object V142; |
935 |
|
{ VMB19 VMS19 VMV19 |
936 |
|
goto TTL; |
937 |
|
TTL:; |
938 |
|
base[0]= small_fixnum(14); |
939 |
|
base[1]= (V141); |
940 |
|
base[2]= (V142); |
941 |
|
vs_top=(vs_base=base+0)+3; |
942 |
|
Lboole(); |
943 |
|
vs_top=sup; |
944 |
|
{object V143 = vs_base[0]; |
945 |
|
VMR19(V143)} |
946 |
|
base[0]=base[0]; |
947 |
|
return Cnil; |
948 |
|
} |
949 |
|
/* local entry for function LOGNOR */ |
950 |
|
|
951 |
|
static object LI20(V146,V147) |
952 |
|
|
953 |
|
object V146;object V147; |
954 |
|
{ VMB20 VMS20 VMV20 |
955 |
|
goto TTL; |
956 |
|
TTL:; |
957 |
|
base[0]= small_fixnum(8); |
958 |
|
base[1]= (V146); |
959 |
|
base[2]= (V147); |
960 |
|
vs_top=(vs_base=base+0)+3; |
961 |
|
Lboole(); |
962 |
|
vs_top=sup; |
963 |
|
{object V148 = vs_base[0]; |
964 |
|
VMR20(V148)} |
965 |
|
base[0]=base[0]; |
966 |
|
return Cnil; |
967 |
|
} |
968 |
|
/* local entry for function LOGANDC1 */ |
969 |
|
|
970 |
|
static object LI21(V151,V152) |
971 |
|
|
972 |
|
object V151;object V152; |
973 |
|
{ VMB21 VMS21 VMV21 |
974 |
|
goto TTL; |
975 |
|
TTL:; |
976 |
|
base[0]= small_fixnum(4); |
977 |
|
base[1]= (V151); |
978 |
|
base[2]= (V152); |
979 |
|
vs_top=(vs_base=base+0)+3; |
980 |
|
Lboole(); |
981 |
|
vs_top=sup; |
982 |
|
{object V153 = vs_base[0]; |
983 |
|
VMR21(V153)} |
984 |
|
base[0]=base[0]; |
985 |
|
return Cnil; |
986 |
|
} |
987 |
|
/* local entry for function LOGANDC2 */ |
988 |
|
|
989 |
|
static object LI22(V156,V157) |
990 |
|
|
991 |
|
object V156;object V157; |
992 |
|
{ VMB22 VMS22 VMV22 |
993 |
|
goto TTL; |
994 |
|
TTL:; |
995 |
|
base[0]= small_fixnum(2); |
996 |
|
base[1]= (V156); |
997 |
|
base[2]= (V157); |
998 |
|
vs_top=(vs_base=base+0)+3; |
999 |
|
Lboole(); |
1000 |
|
vs_top=sup; |
1001 |
|
{object V158 = vs_base[0]; |
1002 |
|
VMR22(V158)} |
1003 |
|
base[0]=base[0]; |
1004 |
|
return Cnil; |
1005 |
|
} |
1006 |
|
/* local entry for function LOGORC1 */ |
1007 |
|
|
1008 |
|
static object LI23(V161,V162) |
1009 |
|
|
1010 |
|
object V161;object V162; |
1011 |
|
{ VMB23 VMS23 VMV23 |
1012 |
|
goto TTL; |
1013 |
|
TTL:; |
1014 |
|
base[0]= small_fixnum(13); |
1015 |
|
base[1]= (V161); |
1016 |
|
base[2]= (V162); |
1017 |
|
vs_top=(vs_base=base+0)+3; |
1018 |
|
Lboole(); |
1019 |
|
vs_top=sup; |
1020 |
|
{object V163 = vs_base[0]; |
1021 |
|
VMR23(V163)} |
1022 |
|
base[0]=base[0]; |
1023 |
|
return Cnil; |
1024 |
|
} |
1025 |
|
/* local entry for function LOGORC2 */ |
1026 |
|
|
1027 |
|
static object LI24(V166,V167) |
1028 |
|
|
1029 |
|
object V166;object V167; |
1030 |
|
{ VMB24 VMS24 VMV24 |
1031 |
|
goto TTL; |
1032 |
|
TTL:; |
1033 |
|
base[0]= small_fixnum(11); |
1034 |
|
base[1]= (V166); |
1035 |
|
base[2]= (V167); |
1036 |
|
vs_top=(vs_base=base+0)+3; |
1037 |
|
Lboole(); |
1038 |
|
vs_top=sup; |
1039 |
|
{object V168 = vs_base[0]; |
1040 |
|
VMR24(V168)} |
1041 |
|
base[0]=base[0]; |
1042 |
|
return Cnil; |
1043 |
|
} |
1044 |
|
/* local entry for function LOGNOT */ |
1045 |
|
|
1046 |
|
static object LI25(V170) |
1047 |
|
|
1048 |
|
object V170; |
1049 |
|
{ VMB25 VMS25 VMV25 |
1050 |
|
goto TTL; |
1051 |
|
TTL:; |
1052 |
|
base[0]= small_fixnum(-1); |
1053 |
|
base[1]= (V170); |
1054 |
|
vs_top=(vs_base=base+0)+2; |
1055 |
|
Llogxor(); |
1056 |
|
vs_top=sup; |
1057 |
|
{object V171 = vs_base[0]; |
1058 |
|
VMR25(V171)} |
1059 |
|
base[0]=base[0]; |
1060 |
|
return Cnil; |
1061 |
|
} |
1062 |
|
/* local entry for function LOGTEST */ |
1063 |
|
|
1064 |
|
static object LI26(V174,V175) |
1065 |
|
|
1066 |
|
object V174;object V175; |
1067 |
|
{ VMB26 VMS26 VMV26 |
1068 |
|
goto TTL; |
1069 |
|
TTL:; |
1070 |
|
base[0]= (V174); |
1071 |
|
base[1]= (V175); |
1072 |
|
vs_top=(vs_base=base+0)+2; |
1073 |
|
Llogand(); |
1074 |
|
vs_top=sup; |
1075 |
|
V176= vs_base[0]; |
1076 |
|
{object V177 = (((number_compare(small_fixnum(0),V176)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
1077 |
|
VMR26(V177)} |
1078 |
|
base[0]=base[0]; |
1079 |
|
return Cnil; |
1080 |
|
} |
1081 |
|
/* local entry for function BYTE */ |
1082 |
|
|
1083 |
|
static object LI27(V180,V181) |
1084 |
|
|
1085 |
|
object V180;object V181; |
1086 |
|
{ VMB27 VMS27 VMV27 |
1087 |
|
goto TTL; |
1088 |
|
TTL:; |
1089 |
|
{object V182 = make_cons((V180),(V181)); |
1090 |
|
VMR27(V182)} |
1091 |
|
return Cnil; |
1092 |
|
} |
1093 |
|
/* local entry for function BYTE-SIZE */ |
1094 |
|
|
1095 |
|
static object LI28(V184) |
1096 |
|
|
1097 |
|
object V184; |
1098 |
|
{ VMB28 VMS28 VMV28 |
1099 |
|
goto TTL; |
1100 |
|
TTL:; |
1101 |
|
{object V185 = car((V184)); |
1102 |
|
VMR28(V185)} |
1103 |
|
return Cnil; |
1104 |
|
} |
1105 |
|
/* local entry for function BYTE-POSITION */ |
1106 |
|
|
1107 |
|
static object LI29(V187) |
1108 |
|
|
1109 |
|
object V187; |
1110 |
|
{ VMB29 VMS29 VMV29 |
1111 |
|
goto TTL; |
1112 |
|
TTL:; |
1113 |
|
{object V188 = cdr((V187)); |
1114 |
|
VMR29(V188)} |
1115 |
|
return Cnil; |
1116 |
|
} |
1117 |
|
/* local entry for function LDB */ |
1118 |
|
|
1119 |
|
static object LI30(V191,V192) |
1120 |
|
|
1121 |
|
object V191;object V192; |
1122 |
|
{ VMB30 VMS30 VMV30 |
1123 |
|
goto TTL; |
1124 |
|
TTL:; |
1125 |
|
base[0]= (V192); |
1126 |
|
V194= (*(LnkLI19))((V191)); |
1127 |
|
base[1]= number_negate(/* INLINE-ARGS */V194); |
1128 |
|
vs_top=(vs_base=base+0)+2; |
1129 |
|
Lash(); |
1130 |
|
vs_top=sup; |
1131 |
|
V193= vs_base[0]; |
1132 |
|
base[0]= small_fixnum(1); |
1133 |
|
base[1]= (*(LnkLI20))((V191)); |
1134 |
|
vs_top=(vs_base=base+0)+2; |
1135 |
|
Lash(); |
1136 |
|
vs_top=sup; |
1137 |
|
V195= vs_base[0]; |
1138 |
|
V196= number_negate(V195); |
1139 |
|
{object V197 = (*(LnkLI18))(V193,/* INLINE-ARGS */V196); |
1140 |
|
VMR30(V197)} |
1141 |
|
base[0]=base[0]; |
1142 |
|
return Cnil; |
1143 |
|
} |
1144 |
|
/* local entry for function LDB-TEST */ |
1145 |
|
|
1146 |
|
static object LI31(V200,V201) |
1147 |
|
|
1148 |
|
object V200;object V201; |
1149 |
|
{ VMB31 VMS31 VMV31 |
1150 |
|
goto TTL; |
1151 |
|
TTL:; |
1152 |
|
V202= (*(LnkLI21))((V200),(V201)); |
1153 |
|
{object V203 = (((number_compare(small_fixnum(0),/* INLINE-ARGS */V202)==0?Ct:Cnil))==Cnil?Ct:Cnil); |
1154 |
|
VMR31(V203)} |
1155 |
|
return Cnil; |
1156 |
|
} |
1157 |
|
/* local entry for function MASK-FIELD */ |
1158 |
|
|
1159 |
|
static object LI32(V206,V207) |
1160 |
|
|
1161 |
|
object V206;object V207; |
1162 |
|
{ VMB32 VMS32 VMV32 |
1163 |
|
goto TTL; |
1164 |
|
TTL:; |
1165 |
|
base[0]= (*(LnkLI21))((V206),(V207)); |
1166 |
|
base[1]= (*(LnkLI19))((V206)); |
1167 |
|
vs_top=(vs_base=base+0)+2; |
1168 |
|
Lash(); |
1169 |
|
vs_top=sup; |
1170 |
|
{object V208 = vs_base[0]; |
1171 |
|
VMR32(V208)} |
1172 |
|
base[0]=base[0]; |
1173 |
|
return Cnil; |
1174 |
|
} |
1175 |
|
/* local entry for function DPB */ |
1176 |
|
|
1177 |
|
static object LI33(V212,V213,V214) |
1178 |
|
|
1179 |
|
object V212;object V213;object V214; |
1180 |
|
{ VMB33 VMS33 VMV33 |
1181 |
|
goto TTL; |
1182 |
|
TTL:; |
1183 |
|
base[0]= (V214); |
1184 |
|
base[1]= (*(LnkLI22))((V213),(V214)); |
1185 |
|
base[4]= small_fixnum(1); |
1186 |
|
base[5]= (*(LnkLI20))((V213)); |
1187 |
|
vs_top=(vs_base=base+4)+2; |
1188 |
|
Lash(); |
1189 |
|
vs_top=sup; |
1190 |
|
V215= vs_base[0]; |
1191 |
|
V216= number_negate(V215); |
1192 |
|
base[3]= (*(LnkLI18))((V212),/* INLINE-ARGS */V216); |
1193 |
|
base[4]= (*(LnkLI19))((V213)); |
1194 |
|
vs_top=(vs_base=base+3)+2; |
1195 |
|
Lash(); |
1196 |
|
vs_top=sup; |
1197 |
|
base[2]= vs_base[0]; |
1198 |
|
vs_top=(vs_base=base+0)+3; |
1199 |
|
Llogxor(); |
1200 |
|
vs_top=sup; |
1201 |
|
{object V217 = vs_base[0]; |
1202 |
|
VMR33(V217)} |
1203 |
|
base[0]=base[0]; |
1204 |
|
return Cnil; |
1205 |
|
} |
1206 |
|
/* local entry for function DEPOSIT-FIELD */ |
1207 |
|
|
1208 |
|
static object LI34(V221,V222,V223) |
1209 |
|
|
1210 |
|
object V221;object V222;object V223; |
1211 |
|
{ VMB34 VMS34 VMV34 |
1212 |
|
goto TTL; |
1213 |
|
TTL:; |
1214 |
|
base[0]= (V221); |
1215 |
|
V225= (*(LnkLI19))((V222)); |
1216 |
|
base[1]= number_negate(/* INLINE-ARGS */V225); |
1217 |
|
vs_top=(vs_base=base+0)+2; |
1218 |
|
Lash(); |
1219 |
|
vs_top=sup; |
1220 |
|
V224= vs_base[0]; |
1221 |
|
{object V226 = (*(LnkLI23))(V224,(V222),(V223)); |
1222 |
|
VMR34(V226)} |
1223 |
|
base[0]=base[0]; |
1224 |
|
return Cnil; |
1225 |
|
} |
1226 |
|
static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* DPB */ |
1227 |
|
static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[22],(void **)(void *)&LnkLI22,2,first,ap);va_end(ap);return V1;} /* MASK-FIELD */ |
1228 |
|
static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)(void *)&LnkLI21,2,first,ap);va_end(ap);return V1;} /* LDB */ |
1229 |
|
static object LnkTLI20(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[20],(void **)(void *)&LnkLI20,1,first,ap);va_end(ap);return V1;} /* BYTE-SIZE */ |
1230 |
|
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BYTE-POSITION */ |
1231 |
|
static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[18],(void **)(void *)&LnkLI18,2,first,ap);va_end(ap);return V1;} /* LOGANDC2 */ |
1232 |
|
static object LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,3,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRING */ |
1233 |
|
static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* RATIONALP */ |
1234 |
|
static object LnkTLI15(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[15],(void **)(void *)&LnkLI15,1,first,ap);va_end(ap);return V1;} /* COSH */ |
1235 |
|
static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* SINH */ |
1236 |
|
static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* ABS */ |
1237 |
|
|
1238 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1239 |
|
SYSTEM_SPECIAL_INIT |
1240 |
|
#endif |
1241 |
|
|