2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_condition_definitions.h" |
#include "clcs_condition_definitions.h" |
4 |
void init_clcs_condition_definitions(){do_init(VV);} |
void init_clcs_condition_definitions(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2187 */ |
/* local entry for function progn 'compile2192 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
20 |
base[0]=base[0]; |
base[0]=base[0]; |
21 |
return Cnil; |
return Cnil; |
22 |
} |
} |
23 |
/* local entry for function progn 'compile2207 */ |
/* local entry for function progn 'compile2212 */ |
24 |
|
|
25 |
static object LI2() |
static object LI2() |
26 |
|
|
74 |
base[0]= VV[2]; |
base[0]= VV[2]; |
75 |
base[1]= (VV[1]->s.s_dbind); |
base[1]= (VV[1]->s.s_dbind); |
76 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
77 |
(void) (*Lnk260)(); |
(void) (*Lnk266)(); |
78 |
vs_top=sup; |
vs_top=sup; |
79 |
(VV[1]->s.s_dbind)= vs_base[0]; |
(VV[1]->s.s_dbind)= vs_base[0]; |
80 |
goto T5; |
goto T5; |
84 |
base[0]=base[0]; |
base[0]=base[0]; |
85 |
return Cnil; |
return Cnil; |
86 |
} |
} |
87 |
/* function definition for Defclass WARNING2253 */ |
/* function definition for Defclass WARNING2258 */ |
88 |
|
|
89 |
static void L3() |
static void L3() |
90 |
{register object *base=vs_base; |
{register object *base=vs_base; |
99 |
base[3]= Cnil; |
base[3]= Cnil; |
100 |
base[4]= Cnil; |
base[4]= Cnil; |
101 |
base[5]= Cnil; |
base[5]= Cnil; |
102 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
103 |
return; |
return; |
104 |
} |
} |
105 |
/* local entry for function progn 'compile2269 */ |
/* local entry for function progn 'compile2274 */ |
106 |
|
|
107 |
static object LI4() |
static object LI4() |
108 |
|
|
110 |
goto TTL; |
goto TTL; |
111 |
TTL:; |
TTL:; |
112 |
vs_base=vs_top; |
vs_base=vs_top; |
113 |
(void) (*Lnk262)(); |
(void) (*Lnk268)(); |
114 |
vs_top=sup; |
vs_top=sup; |
115 |
{object V8 = Cnil; |
{object V8 = Cnil; |
116 |
VMR4(V8)} |
VMR4(V8)} |
117 |
base[0]=base[0]; |
base[0]=base[0]; |
118 |
return Cnil; |
return Cnil; |
119 |
} |
} |
120 |
/* local entry for function progn 'compile2286 */ |
/* local entry for function progn 'compile2291 */ |
121 |
|
|
122 |
static object LI5() |
static object LI5() |
123 |
|
|
135 |
base[0]=base[0]; |
base[0]=base[0]; |
136 |
return Cnil; |
return Cnil; |
137 |
} |
} |
138 |
/* local entry for function progn 'compile2310 */ |
/* local entry for function progn 'compile2315 */ |
139 |
|
|
140 |
static object LI6() |
static object LI6() |
141 |
|
|
147 |
VMR6(V11)} |
VMR6(V11)} |
148 |
return Cnil; |
return Cnil; |
149 |
} |
} |
150 |
/* local entry for function progn 'compile2322 */ |
/* local entry for function progn 'compile2327 */ |
151 |
|
|
152 |
static object LI7() |
static object LI7() |
153 |
|
|
158 |
VMR7(V12)} |
VMR7(V12)} |
159 |
return Cnil; |
return Cnil; |
160 |
} |
} |
161 |
/* function definition for Defclass SERIOUS-CONDITION2342 */ |
/* function definition for Defclass SERIOUS-CONDITION2347 */ |
162 |
|
|
163 |
static void L8() |
static void L8() |
164 |
{register object *base=vs_base; |
{register object *base=vs_base; |
173 |
base[3]= Cnil; |
base[3]= Cnil; |
174 |
base[4]= Cnil; |
base[4]= Cnil; |
175 |
base[5]= Cnil; |
base[5]= Cnil; |
176 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
177 |
return; |
return; |
178 |
} |
} |
179 |
/* local entry for function progn 'compile2358 */ |
/* local entry for function progn 'compile2363 */ |
180 |
|
|
181 |
static object LI9() |
static object LI9() |
182 |
|
|
184 |
goto TTL; |
goto TTL; |
185 |
TTL:; |
TTL:; |
186 |
vs_base=vs_top; |
vs_base=vs_top; |
187 |
(void) (*Lnk263)(); |
(void) (*Lnk269)(); |
188 |
vs_top=sup; |
vs_top=sup; |
189 |
{object V13 = Cnil; |
{object V13 = Cnil; |
190 |
VMR9(V13)} |
VMR9(V13)} |
191 |
base[0]=base[0]; |
base[0]=base[0]; |
192 |
return Cnil; |
return Cnil; |
193 |
} |
} |
194 |
/* local entry for function progn 'compile2375 */ |
/* local entry for function progn 'compile2380 */ |
195 |
|
|
196 |
static object LI10() |
static object LI10() |
197 |
|
|
209 |
base[0]=base[0]; |
base[0]=base[0]; |
210 |
return Cnil; |
return Cnil; |
211 |
} |
} |
212 |
/* local entry for function progn 'compile2399 */ |
/* local entry for function progn 'compile2404 */ |
213 |
|
|
214 |
static object LI11() |
static object LI11() |
215 |
|
|
221 |
VMR11(V16)} |
VMR11(V16)} |
222 |
return Cnil; |
return Cnil; |
223 |
} |
} |
224 |
/* local entry for function progn 'compile2411 */ |
/* local entry for function progn 'compile2416 */ |
225 |
|
|
226 |
static object LI12() |
static object LI12() |
227 |
|
|
232 |
VMR12(V17)} |
VMR12(V17)} |
233 |
return Cnil; |
return Cnil; |
234 |
} |
} |
235 |
/* function definition for Defclass ERROR2431 */ |
/* function definition for Defclass ERROR2436 */ |
236 |
|
|
237 |
static void L13() |
static void L13() |
238 |
{register object *base=vs_base; |
{register object *base=vs_base; |
247 |
base[3]= Cnil; |
base[3]= Cnil; |
248 |
base[4]= Cnil; |
base[4]= Cnil; |
249 |
base[5]= Cnil; |
base[5]= Cnil; |
250 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
251 |
return; |
return; |
252 |
} |
} |
253 |
/* local entry for function progn 'compile2447 */ |
/* local entry for function progn 'compile2452 */ |
254 |
|
|
255 |
static object LI14() |
static object LI14() |
256 |
|
|
258 |
goto TTL; |
goto TTL; |
259 |
TTL:; |
TTL:; |
260 |
vs_base=vs_top; |
vs_base=vs_top; |
261 |
(void) (*Lnk264)(); |
(void) (*Lnk270)(); |
262 |
vs_top=sup; |
vs_top=sup; |
263 |
{object V18 = Cnil; |
{object V18 = Cnil; |
264 |
VMR14(V18)} |
VMR14(V18)} |
265 |
base[0]=base[0]; |
base[0]=base[0]; |
266 |
return Cnil; |
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function progn 'compile2464 */ |
/* local entry for function progn 'compile2469 */ |
269 |
|
|
270 |
static object LI15() |
static object LI15() |
271 |
|
|
283 |
base[0]=base[0]; |
base[0]=base[0]; |
284 |
return Cnil; |
return Cnil; |
285 |
} |
} |
286 |
/* local entry for function progn 'compile2488 */ |
/* local entry for function progn 'compile2493 */ |
287 |
|
|
288 |
static object LI16() |
static object LI16() |
289 |
|
|
295 |
VMR16(V21)} |
VMR16(V21)} |
296 |
return Cnil; |
return Cnil; |
297 |
} |
} |
298 |
/* local entry for function progn 'compile2500 */ |
/* local entry for function progn 'compile2505 */ |
299 |
|
|
300 |
static object LI17() |
static object LI17() |
301 |
|
|
317 |
base[0]= (V26); |
base[0]= (V26); |
318 |
base[2]= (V25); |
base[2]= (V25); |
319 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
320 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk271)(Lclptr271); |
321 |
vs_top=sup; |
vs_top=sup; |
322 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
323 |
{object V27; |
{object V27; |
324 |
base[2]= (V25); |
base[2]= (V25); |
325 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
326 |
(void) (*Lnk266)(Lclptr266); |
(void) (*Lnk272)(Lclptr272); |
327 |
vs_top=sup; |
vs_top=sup; |
328 |
V27= vs_base[0]; |
V27= vs_base[0]; |
329 |
vs_top=base+2; |
vs_top=base+2; |
337 |
base[0]=base[0]; |
base[0]=base[0]; |
338 |
return Cnil; |
return Cnil; |
339 |
} |
} |
340 |
/* function definition for Defclass SIMPLE-CONDITION2528 */ |
/* function definition for Defclass SIMPLE-CONDITION2533 */ |
341 |
|
|
342 |
static void L19() |
static void L19() |
343 |
{register object *base=vs_base; |
{register object *base=vs_base; |
351 |
base[2]= VV[17]; |
base[2]= VV[17]; |
352 |
V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]); |
V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]); |
353 |
base[4]= VV[26]; |
base[4]= VV[26]; |
354 |
base[5]= (VV[267]->s.s_gfdef); |
base[5]= (VV[273]->s.s_gfdef); |
355 |
base[6]= VV[18]; |
base[6]= VV[18]; |
356 |
base[7]= VV[27]; |
base[7]= VV[27]; |
357 |
base[8]= VV[20]; |
base[8]= VV[20]; |
368 |
base[3]= list(2,/* INLINE-ARGS */V29,V30); |
base[3]= list(2,/* INLINE-ARGS */V29,V30); |
369 |
base[4]= Cnil; |
base[4]= Cnil; |
370 |
base[5]= Cnil; |
base[5]= Cnil; |
371 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
372 |
return; |
return; |
373 |
} |
} |
374 |
/* local entry for function progn 'compile2546 */ |
/* local entry for function progn 'compile2551 */ |
375 |
|
|
376 |
static object LI20() |
static object LI20() |
377 |
|
|
379 |
goto TTL; |
goto TTL; |
380 |
TTL:; |
TTL:; |
381 |
vs_base=vs_top; |
vs_base=vs_top; |
382 |
(void) (*Lnk268)(); |
(void) (*Lnk274)(); |
383 |
vs_top=sup; |
vs_top=sup; |
384 |
{object V31 = Cnil; |
{object V31 = Cnil; |
385 |
VMR20(V31)} |
VMR20(V31)} |
386 |
base[0]=base[0]; |
base[0]=base[0]; |
387 |
return Cnil; |
return Cnil; |
388 |
} |
} |
389 |
/* local entry for function progn 'compile2563 */ |
/* local entry for function progn 'compile2568 */ |
390 |
|
|
391 |
static object LI21() |
static object LI21() |
392 |
|
|
404 |
base[0]=base[0]; |
base[0]=base[0]; |
405 |
return Cnil; |
return Cnil; |
406 |
} |
} |
407 |
/* local entry for function progn 'compile2587 */ |
/* local entry for function progn 'compile2592 */ |
408 |
|
|
409 |
static object LI22() |
static object LI22() |
410 |
|
|
416 |
VMR22(V34)} |
VMR22(V34)} |
417 |
return Cnil; |
return Cnil; |
418 |
} |
} |
419 |
/* local entry for function progn 'compile2603 */ |
/* local entry for function progn 'compile2608 */ |
420 |
|
|
421 |
static object LI23() |
static object LI23() |
422 |
|
|
426 |
base[0]= VV[32]; |
base[0]= VV[32]; |
427 |
base[1]= VV[33]; |
base[1]= VV[33]; |
428 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
429 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
430 |
vs_top=sup; |
vs_top=sup; |
431 |
{object V35 = Cnil; |
{object V35 = Cnil; |
432 |
VMR23(V35)} |
VMR23(V35)} |
457 |
base[4]= (V37); |
base[4]= (V37); |
458 |
base[5]= VV[35]; |
base[5]= VV[35]; |
459 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
460 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
461 |
vs_top=sup; |
vs_top=sup; |
462 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
463 |
goto T114;} |
goto T114;} |
492 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
493 |
base[5]= (V38); |
base[5]= (V38); |
494 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
495 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
V45= vs_base[0]; |
V45= vs_base[0]; |
498 |
if(!((V44)==(CMPcar(V45)))){ |
if(!((V44)==(CMPcar(V45)))){ |
521 |
base[4]= (V47); |
base[4]= (V47); |
522 |
base[5]= VV[39]; |
base[5]= VV[39]; |
523 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
524 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
527 |
goto T142;} |
goto T142;} |
592 |
T110:; |
T110:; |
593 |
base[4]= VV[47]; |
base[4]= VV[47]; |
594 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
595 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
596 |
return; |
return; |
597 |
goto T107; |
goto T107; |
598 |
T107:; |
T107:; |
599 |
base[4]= (*(LnkLI273))((V38),(V39)); |
base[4]= (*(LnkLI279))((V38),(V39)); |
600 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
601 |
return; |
return; |
602 |
} |
} |
603 |
} |
} |
604 |
/* local entry for function progn 'compile2796 */ |
/* local entry for function progn 'compile2801 */ |
605 |
|
|
606 |
static object LI25() |
static object LI25() |
607 |
|
|
613 |
base[2]= Cnil; |
base[2]= Cnil; |
614 |
base[3]= VV[49]; |
base[3]= VV[49]; |
615 |
base[4]= VV[50]; |
base[4]= VV[50]; |
616 |
V52= (VV[274]->s.s_gfdef); |
V52= (VV[280]->s.s_gfdef); |
617 |
base[5]= listA(3,VV[51],V52,VV[52]); |
base[5]= listA(3,VV[51],V52,VV[52]); |
618 |
base[6]= Cnil; |
base[6]= Cnil; |
619 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
620 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
{object V53 = Cnil; |
{object V53 = Cnil; |
623 |
VMR25(V53)} |
VMR25(V53)} |
624 |
base[0]=base[0]; |
base[0]=base[0]; |
625 |
return Cnil; |
return Cnil; |
626 |
} |
} |
627 |
/* local entry for function progn 'compile2804 */ |
/* local entry for function progn 'compile2809 */ |
628 |
|
|
629 |
static object LI26() |
static object LI26() |
630 |
|
|
635 |
VMR26(V54)} |
VMR26(V54)} |
636 |
return Cnil; |
return Cnil; |
637 |
} |
} |
638 |
/* function definition for Defclass SIMPLE-WARNING2824 */ |
/* function definition for Defclass SIMPLE-WARNING2829 */ |
639 |
|
|
640 |
static void L27() |
static void L27() |
641 |
{register object *base=vs_base; |
{register object *base=vs_base; |
650 |
base[3]= Cnil; |
base[3]= Cnil; |
651 |
base[4]= Cnil; |
base[4]= Cnil; |
652 |
base[5]= Cnil; |
base[5]= Cnil; |
653 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
654 |
return; |
return; |
655 |
} |
} |
656 |
/* local entry for function progn 'compile2840 */ |
/* local entry for function progn 'compile2845 */ |
657 |
|
|
658 |
static object LI28() |
static object LI28() |
659 |
|
|
661 |
goto TTL; |
goto TTL; |
662 |
TTL:; |
TTL:; |
663 |
vs_base=vs_top; |
vs_base=vs_top; |
664 |
(void) (*Lnk276)(); |
(void) (*Lnk282)(); |
665 |
vs_top=sup; |
vs_top=sup; |
666 |
{object V55 = Cnil; |
{object V55 = Cnil; |
667 |
VMR28(V55)} |
VMR28(V55)} |
668 |
base[0]=base[0]; |
base[0]=base[0]; |
669 |
return Cnil; |
return Cnil; |
670 |
} |
} |
671 |
/* local entry for function progn 'compile2857 */ |
/* local entry for function progn 'compile2862 */ |
672 |
|
|
673 |
static object LI29() |
static object LI29() |
674 |
|
|
686 |
base[0]=base[0]; |
base[0]=base[0]; |
687 |
return Cnil; |
return Cnil; |
688 |
} |
} |
689 |
/* local entry for function progn 'compile2881 */ |
/* local entry for function progn 'compile2886 */ |
690 |
|
|
691 |
static object LI30() |
static object LI30() |
692 |
|
|
698 |
VMR30(V58)} |
VMR30(V58)} |
699 |
return Cnil; |
return Cnil; |
700 |
} |
} |
701 |
/* local entry for function progn 'compile2893 */ |
/* local entry for function progn 'compile2898 */ |
702 |
|
|
703 |
static object LI31() |
static object LI31() |
704 |
|
|
709 |
VMR31(V59)} |
VMR31(V59)} |
710 |
return Cnil; |
return Cnil; |
711 |
} |
} |
712 |
/* function definition for Defclass SIMPLE-ERROR2913 */ |
/* function definition for Defclass SIMPLE-ERROR2918 */ |
713 |
|
|
714 |
static void L32() |
static void L32() |
715 |
{register object *base=vs_base; |
{register object *base=vs_base; |
724 |
base[3]= Cnil; |
base[3]= Cnil; |
725 |
base[4]= Cnil; |
base[4]= Cnil; |
726 |
base[5]= Cnil; |
base[5]= Cnil; |
727 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
728 |
return; |
return; |
729 |
} |
} |
730 |
/* local entry for function progn 'compile2929 */ |
/* local entry for function progn 'compile2934 */ |
731 |
|
|
732 |
static object LI33() |
static object LI33() |
733 |
|
|
735 |
goto TTL; |
goto TTL; |
736 |
TTL:; |
TTL:; |
737 |
vs_base=vs_top; |
vs_base=vs_top; |
738 |
(void) (*Lnk277)(); |
(void) (*Lnk283)(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
{object V60 = Cnil; |
{object V60 = Cnil; |
741 |
VMR33(V60)} |
VMR33(V60)} |
742 |
base[0]=base[0]; |
base[0]=base[0]; |
743 |
return Cnil; |
return Cnil; |
744 |
} |
} |
745 |
/* local entry for function progn 'compile2946 */ |
/* local entry for function progn 'compile2951 */ |
746 |
|
|
747 |
static object LI34() |
static object LI34() |
748 |
|
|
760 |
base[0]=base[0]; |
base[0]=base[0]; |
761 |
return Cnil; |
return Cnil; |
762 |
} |
} |
763 |
/* local entry for function progn 'compile2970 */ |
/* local entry for function progn 'compile2975 */ |
764 |
|
|
765 |
static object LI35() |
static object LI35() |
766 |
|
|
772 |
VMR35(V63)} |
VMR35(V63)} |
773 |
return Cnil; |
return Cnil; |
774 |
} |
} |
775 |
/* local entry for function progn 'compile2982 */ |
/* local entry for function progn 'compile2987 */ |
776 |
|
|
777 |
static object LI36() |
static object LI36() |
778 |
|
|
783 |
VMR36(V64)} |
VMR36(V64)} |
784 |
return Cnil; |
return Cnil; |
785 |
} |
} |
786 |
/* function definition for Defclass STORAGE-CONDITION3002 */ |
/* function definition for Defclass STORAGE-CONDITION3007 */ |
787 |
|
|
788 |
static void L37() |
static void L37() |
789 |
{register object *base=vs_base; |
{register object *base=vs_base; |
798 |
base[3]= Cnil; |
base[3]= Cnil; |
799 |
base[4]= Cnil; |
base[4]= Cnil; |
800 |
base[5]= Cnil; |
base[5]= Cnil; |
801 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
802 |
return; |
return; |
803 |
} |
} |
804 |
/* local entry for function progn 'compile3018 */ |
/* local entry for function progn 'compile3023 */ |
805 |
|
|
806 |
static object LI38() |
static object LI38() |
807 |
|
|
809 |
goto TTL; |
goto TTL; |
810 |
TTL:; |
TTL:; |
811 |
vs_base=vs_top; |
vs_base=vs_top; |
812 |
(void) (*Lnk278)(); |
(void) (*Lnk284)(); |
813 |
vs_top=sup; |
vs_top=sup; |
814 |
{object V65 = Cnil; |
{object V65 = Cnil; |
815 |
VMR38(V65)} |
VMR38(V65)} |
816 |
base[0]=base[0]; |
base[0]=base[0]; |
817 |
return Cnil; |
return Cnil; |
818 |
} |
} |
819 |
/* local entry for function progn 'compile3035 */ |
/* local entry for function progn 'compile3040 */ |
820 |
|
|
821 |
static object LI39() |
static object LI39() |
822 |
|
|
834 |
base[0]=base[0]; |
base[0]=base[0]; |
835 |
return Cnil; |
return Cnil; |
836 |
} |
} |
837 |
/* local entry for function progn 'compile3059 */ |
/* local entry for function progn 'compile3064 */ |
838 |
|
|
839 |
static object LI40() |
static object LI40() |
840 |
|
|
846 |
VMR40(V68)} |
VMR40(V68)} |
847 |
return Cnil; |
return Cnil; |
848 |
} |
} |
849 |
/* local entry for function progn 'compile3071 */ |
/* local entry for function progn 'compile3076 */ |
850 |
|
|
851 |
static object LI41() |
static object LI41() |
852 |
|
|
857 |
VMR41(V69)} |
VMR41(V69)} |
858 |
return Cnil; |
return Cnil; |
859 |
} |
} |
860 |
/* function definition for Defclass STACK-OVERFLOW3091 */ |
/* function definition for Defclass STACK-OVERFLOW3096 */ |
861 |
|
|
862 |
static void L42() |
static void L42() |
863 |
{register object *base=vs_base; |
{register object *base=vs_base; |
872 |
base[3]= Cnil; |
base[3]= Cnil; |
873 |
base[4]= Cnil; |
base[4]= Cnil; |
874 |
base[5]= Cnil; |
base[5]= Cnil; |
875 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
876 |
return; |
return; |
877 |
} |
} |
878 |
/* local entry for function progn 'compile3107 */ |
/* local entry for function progn 'compile3112 */ |
879 |
|
|
880 |
static object LI43() |
static object LI43() |
881 |
|
|
883 |
goto TTL; |
goto TTL; |
884 |
TTL:; |
TTL:; |
885 |
vs_base=vs_top; |
vs_base=vs_top; |
886 |
(void) (*Lnk279)(); |
(void) (*Lnk285)(); |
887 |
vs_top=sup; |
vs_top=sup; |
888 |
{object V70 = Cnil; |
{object V70 = Cnil; |
889 |
VMR43(V70)} |
VMR43(V70)} |
890 |
base[0]=base[0]; |
base[0]=base[0]; |
891 |
return Cnil; |
return Cnil; |
892 |
} |
} |
893 |
/* local entry for function progn 'compile3124 */ |
/* local entry for function progn 'compile3129 */ |
894 |
|
|
895 |
static object LI44() |
static object LI44() |
896 |
|
|
908 |
base[0]=base[0]; |
base[0]=base[0]; |
909 |
return Cnil; |
return Cnil; |
910 |
} |
} |
911 |
/* local entry for function progn 'compile3148 */ |
/* local entry for function progn 'compile3153 */ |
912 |
|
|
913 |
static object LI45() |
static object LI45() |
914 |
|
|
920 |
VMR45(V73)} |
VMR45(V73)} |
921 |
return Cnil; |
return Cnil; |
922 |
} |
} |
923 |
/* local entry for function progn 'compile3160 */ |
/* local entry for function progn 'compile3165 */ |
924 |
|
|
925 |
static object LI46() |
static object LI46() |
926 |
|
|
931 |
VMR46(V74)} |
VMR46(V74)} |
932 |
return Cnil; |
return Cnil; |
933 |
} |
} |
934 |
/* function definition for Defclass STORAGE-EXHAUSTED3180 */ |
/* function definition for Defclass STORAGE-EXHAUSTED3185 */ |
935 |
|
|
936 |
static void L47() |
static void L47() |
937 |
{register object *base=vs_base; |
{register object *base=vs_base; |
946 |
base[3]= Cnil; |
base[3]= Cnil; |
947 |
base[4]= Cnil; |
base[4]= Cnil; |
948 |
base[5]= Cnil; |
base[5]= Cnil; |
949 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
950 |
return; |
return; |
951 |
} |
} |
952 |
/* local entry for function progn 'compile3196 */ |
/* local entry for function progn 'compile3201 */ |
953 |
|
|
954 |
static object LI48() |
static object LI48() |
955 |
|
|
957 |
goto TTL; |
goto TTL; |
958 |
TTL:; |
TTL:; |
959 |
vs_base=vs_top; |
vs_base=vs_top; |
960 |
(void) (*Lnk280)(); |
(void) (*Lnk286)(); |
961 |
vs_top=sup; |
vs_top=sup; |
962 |
{object V75 = Cnil; |
{object V75 = Cnil; |
963 |
VMR48(V75)} |
VMR48(V75)} |
964 |
base[0]=base[0]; |
base[0]=base[0]; |
965 |
return Cnil; |
return Cnil; |
966 |
} |
} |
967 |
/* local entry for function progn 'compile3213 */ |
/* local entry for function progn 'compile3218 */ |
968 |
|
|
969 |
static object LI49() |
static object LI49() |
970 |
|
|
982 |
base[0]=base[0]; |
base[0]=base[0]; |
983 |
return Cnil; |
return Cnil; |
984 |
} |
} |
985 |
/* local entry for function progn 'compile3237 */ |
/* local entry for function progn 'compile3242 */ |
986 |
|
|
987 |
static object LI50() |
static object LI50() |
988 |
|
|
994 |
VMR50(V78)} |
VMR50(V78)} |
995 |
return Cnil; |
return Cnil; |
996 |
} |
} |
997 |
/* local entry for function progn 'compile3249 */ |
/* local entry for function progn 'compile3254 */ |
998 |
|
|
999 |
static object LI51() |
static object LI51() |
1000 |
|
|
1005 |
VMR51(V79)} |
VMR51(V79)} |
1006 |
return Cnil; |
return Cnil; |
1007 |
} |
} |
1008 |
/* function definition for Defclass TYPE-ERROR3269 */ |
/* function definition for Defclass TYPE-ERROR3274 */ |
1009 |
|
|
1010 |
static void L52() |
static void L52() |
1011 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1021 |
base[3]= list(2,/* INLINE-ARGS */V80,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V80,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil)); |
1022 |
base[4]= Cnil; |
base[4]= Cnil; |
1023 |
base[5]= Cnil; |
base[5]= Cnil; |
1024 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1025 |
return; |
return; |
1026 |
} |
} |
1027 |
/* local entry for function progn 'compile3287 */ |
/* local entry for function progn 'compile3292 */ |
1028 |
|
|
1029 |
static object LI53() |
static object LI53() |
1030 |
|
|
1032 |
goto TTL; |
goto TTL; |
1033 |
TTL:; |
TTL:; |
1034 |
vs_base=vs_top; |
vs_base=vs_top; |
1035 |
(void) (*Lnk281)(); |
(void) (*Lnk287)(); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
{object V81 = Cnil; |
{object V81 = Cnil; |
1038 |
VMR53(V81)} |
VMR53(V81)} |
1039 |
base[0]=base[0]; |
base[0]=base[0]; |
1040 |
return Cnil; |
return Cnil; |
1041 |
} |
} |
1042 |
/* local entry for function progn 'compile3304 */ |
/* local entry for function progn 'compile3309 */ |
1043 |
|
|
1044 |
static object LI54() |
static object LI54() |
1045 |
|
|
1057 |
base[0]=base[0]; |
base[0]=base[0]; |
1058 |
return Cnil; |
return Cnil; |
1059 |
} |
} |
1060 |
/* local entry for function progn 'compile3328 */ |
/* local entry for function progn 'compile3333 */ |
1061 |
|
|
1062 |
static object LI55() |
static object LI55() |
1063 |
|
|
1069 |
VMR55(V84)} |
VMR55(V84)} |
1070 |
return Cnil; |
return Cnil; |
1071 |
} |
} |
1072 |
/* local entry for function progn 'compile3344 */ |
/* local entry for function progn 'compile3349 */ |
1073 |
|
|
1074 |
static object LI56() |
static object LI56() |
1075 |
|
|
1079 |
base[0]= VV[32]; |
base[0]= VV[32]; |
1080 |
base[1]= VV[77]; |
base[1]= VV[77]; |
1081 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1082 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
{object V85 = Cnil; |
{object V85 = Cnil; |
1085 |
VMR56(V85)} |
VMR56(V85)} |
1110 |
base[4]= (V87); |
base[4]= (V87); |
1111 |
base[5]= VV[35]; |
base[5]= VV[35]; |
1112 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1113 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
1114 |
vs_top=sup; |
vs_top=sup; |
1115 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1116 |
goto T276;} |
goto T276;} |
1145 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
1146 |
base[5]= (V88); |
base[5]= (V88); |
1147 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1148 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
1149 |
vs_top=sup; |
vs_top=sup; |
1150 |
V95= vs_base[0]; |
V95= vs_base[0]; |
1151 |
if(!((V94)==(CMPcar(V95)))){ |
if(!((V94)==(CMPcar(V95)))){ |
1174 |
base[4]= (V97); |
base[4]= (V97); |
1175 |
base[5]= VV[39]; |
base[5]= VV[39]; |
1176 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1177 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1180 |
goto T304;} |
goto T304;} |
1245 |
T272:; |
T272:; |
1246 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1247 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1248 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
1249 |
return; |
return; |
1250 |
goto T269; |
goto T269; |
1251 |
T269:; |
T269:; |
1253 |
base[5]= VV[81]; |
base[5]= VV[81]; |
1254 |
base[7]= V88; |
base[7]= V88; |
1255 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1256 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk288)(Lclptr288); |
1257 |
vs_top=sup; |
vs_top=sup; |
1258 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1259 |
base[8]= V88; |
base[8]= V88; |
1260 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1261 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk289)(Lclptr289); |
1262 |
vs_top=sup; |
vs_top=sup; |
1263 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1264 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1266 |
return; |
return; |
1267 |
} |
} |
1268 |
} |
} |
1269 |
/* local entry for function progn 'compile3541 */ |
/* local entry for function progn 'compile3546 */ |
1270 |
|
|
1271 |
static object LI58() |
static object LI58() |
1272 |
|
|
1278 |
base[2]= Cnil; |
base[2]= Cnil; |
1279 |
base[3]= VV[82]; |
base[3]= VV[82]; |
1280 |
base[4]= VV[83]; |
base[4]= VV[83]; |
1281 |
V104= (VV[284]->s.s_gfdef); |
V104= (VV[290]->s.s_gfdef); |
1282 |
base[5]= listA(3,VV[51],V104,VV[84]); |
base[5]= listA(3,VV[51],V104,VV[84]); |
1283 |
base[6]= Cnil; |
base[6]= Cnil; |
1284 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
1285 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
{object V105 = Cnil; |
{object V105 = Cnil; |
1288 |
VMR58(V105)} |
VMR58(V105)} |
1289 |
base[0]=base[0]; |
base[0]=base[0]; |
1290 |
return Cnil; |
return Cnil; |
1291 |
} |
} |
1292 |
/* local entry for function progn 'compile3549 */ |
/* local entry for function progn 'compile3554 */ |
1293 |
|
|
1294 |
static object LI59() |
static object LI59() |
1295 |
|
|
1300 |
VMR59(V106)} |
VMR59(V106)} |
1301 |
return Cnil; |
return Cnil; |
1302 |
} |
} |
1303 |
/* function definition for Defclass SIMPLE-TYPE-ERROR3569 */ |
/* function definition for Defclass SIMPLE-TYPE-ERROR3574 */ |
1304 |
|
|
1305 |
static void L60() |
static void L60() |
1306 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1315 |
base[3]= Cnil; |
base[3]= Cnil; |
1316 |
base[4]= Cnil; |
base[4]= Cnil; |
1317 |
base[5]= Cnil; |
base[5]= Cnil; |
1318 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1319 |
return; |
return; |
1320 |
} |
} |
1321 |
/* local entry for function progn 'compile3585 */ |
/* local entry for function progn 'compile3590 */ |
1322 |
|
|
1323 |
static object LI61() |
static object LI61() |
1324 |
|
|
1326 |
goto TTL; |
goto TTL; |
1327 |
TTL:; |
TTL:; |
1328 |
vs_base=vs_top; |
vs_base=vs_top; |
1329 |
(void) (*Lnk285)(); |
(void) (*Lnk291)(); |
1330 |
vs_top=sup; |
vs_top=sup; |
1331 |
{object V107 = Cnil; |
{object V107 = Cnil; |
1332 |
VMR61(V107)} |
VMR61(V107)} |
1333 |
base[0]=base[0]; |
base[0]=base[0]; |
1334 |
return Cnil; |
return Cnil; |
1335 |
} |
} |
1336 |
/* local entry for function progn 'compile3602 */ |
/* local entry for function progn 'compile3607 */ |
1337 |
|
|
1338 |
static object LI62() |
static object LI62() |
1339 |
|
|
1351 |
base[0]=base[0]; |
base[0]=base[0]; |
1352 |
return Cnil; |
return Cnil; |
1353 |
} |
} |
1354 |
/* local entry for function progn 'compile3626 */ |
/* local entry for function progn 'compile3631 */ |
1355 |
|
|
1356 |
static object LI63() |
static object LI63() |
1357 |
|
|
1363 |
VMR63(V110)} |
VMR63(V110)} |
1364 |
return Cnil; |
return Cnil; |
1365 |
} |
} |
1366 |
/* local entry for function progn 'compile3638 */ |
/* local entry for function progn 'compile3643 */ |
1367 |
|
|
1368 |
static object LI64() |
static object LI64() |
1369 |
|
|
1374 |
VMR64(V111)} |
VMR64(V111)} |
1375 |
return Cnil; |
return Cnil; |
1376 |
} |
} |
1377 |
/* function definition for Defclass CASE-FAILURE3658 */ |
/* function definition for Defclass CASE-FAILURE3663 */ |
1378 |
|
|
1379 |
static void L65() |
static void L65() |
1380 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1390 |
base[3]= list(2,/* INLINE-ARGS */V112,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V112,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil)); |
1391 |
base[4]= Cnil; |
base[4]= Cnil; |
1392 |
base[5]= Cnil; |
base[5]= Cnil; |
1393 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1394 |
return; |
return; |
1395 |
} |
} |
1396 |
/* local entry for function progn 'compile3676 */ |
/* local entry for function progn 'compile3681 */ |
1397 |
|
|
1398 |
static object LI66() |
static object LI66() |
1399 |
|
|
1401 |
goto TTL; |
goto TTL; |
1402 |
TTL:; |
TTL:; |
1403 |
vs_base=vs_top; |
vs_base=vs_top; |
1404 |
(void) (*Lnk286)(); |
(void) (*Lnk292)(); |
1405 |
vs_top=sup; |
vs_top=sup; |
1406 |
{object V113 = Cnil; |
{object V113 = Cnil; |
1407 |
VMR66(V113)} |
VMR66(V113)} |
1408 |
base[0]=base[0]; |
base[0]=base[0]; |
1409 |
return Cnil; |
return Cnil; |
1410 |
} |
} |
1411 |
/* local entry for function progn 'compile3693 */ |
/* local entry for function progn 'compile3698 */ |
1412 |
|
|
1413 |
static object LI67() |
static object LI67() |
1414 |
|
|
1426 |
base[0]=base[0]; |
base[0]=base[0]; |
1427 |
return Cnil; |
return Cnil; |
1428 |
} |
} |
1429 |
/* local entry for function progn 'compile3717 */ |
/* local entry for function progn 'compile3722 */ |
1430 |
|
|
1431 |
static object LI68() |
static object LI68() |
1432 |
|
|
1438 |
VMR68(V116)} |
VMR68(V116)} |
1439 |
return Cnil; |
return Cnil; |
1440 |
} |
} |
1441 |
/* local entry for function progn 'compile3733 */ |
/* local entry for function progn 'compile3738 */ |
1442 |
|
|
1443 |
static object LI69() |
static object LI69() |
1444 |
|
|
1448 |
base[0]= VV[32]; |
base[0]= VV[32]; |
1449 |
base[1]= VV[96]; |
base[1]= VV[96]; |
1450 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1451 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
1452 |
vs_top=sup; |
vs_top=sup; |
1453 |
{object V117 = Cnil; |
{object V117 = Cnil; |
1454 |
VMR69(V117)} |
VMR69(V117)} |
1479 |
base[4]= (V119); |
base[4]= (V119); |
1480 |
base[5]= VV[35]; |
base[5]= VV[35]; |
1481 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1482 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
1483 |
vs_top=sup; |
vs_top=sup; |
1484 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1485 |
goto T392;} |
goto T392;} |
1514 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
1515 |
base[5]= (V120); |
base[5]= (V120); |
1516 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1517 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
1518 |
vs_top=sup; |
vs_top=sup; |
1519 |
V127= vs_base[0]; |
V127= vs_base[0]; |
1520 |
if(!((V126)==(CMPcar(V127)))){ |
if(!((V126)==(CMPcar(V127)))){ |
1543 |
base[4]= (V129); |
base[4]= (V129); |
1544 |
base[5]= VV[39]; |
base[5]= VV[39]; |
1545 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1546 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
1547 |
vs_top=sup; |
vs_top=sup; |
1548 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1549 |
goto T420;} |
goto T420;} |
1614 |
T388:; |
T388:; |
1615 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1616 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1617 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
1618 |
return; |
return; |
1619 |
goto T385; |
goto T385; |
1620 |
T385:; |
T385:; |
1622 |
base[5]= VV[100]; |
base[5]= VV[100]; |
1623 |
base[7]= V120; |
base[7]= V120; |
1624 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1625 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk288)(Lclptr288); |
1626 |
vs_top=sup; |
vs_top=sup; |
1627 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1628 |
base[8]= V120; |
base[8]= V120; |
1629 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1630 |
(void) (*Lnk287)(Lclptr287); |
(void) (*Lnk293)(Lclptr293); |
1631 |
vs_top=sup; |
vs_top=sup; |
1632 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1633 |
base[9]= V120; |
base[9]= V120; |
1634 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1635 |
(void) (*Lnk288)(Lclptr288); |
(void) (*Lnk294)(Lclptr294); |
1636 |
vs_top=sup; |
vs_top=sup; |
1637 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1638 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1640 |
return; |
return; |
1641 |
} |
} |
1642 |
} |
} |
1643 |
/* local entry for function progn 'compile3930 */ |
/* local entry for function progn 'compile3935 */ |
1644 |
|
|
1645 |
static object LI71() |
static object LI71() |
1646 |
|
|
1652 |
base[2]= Cnil; |
base[2]= Cnil; |
1653 |
base[3]= VV[101]; |
base[3]= VV[101]; |
1654 |
base[4]= VV[102]; |
base[4]= VV[102]; |
1655 |
V136= (VV[289]->s.s_gfdef); |
V136= (VV[295]->s.s_gfdef); |
1656 |
base[5]= listA(3,VV[51],V136,VV[103]); |
base[5]= listA(3,VV[51],V136,VV[103]); |
1657 |
base[6]= Cnil; |
base[6]= Cnil; |
1658 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
1659 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
1660 |
vs_top=sup; |
vs_top=sup; |
1661 |
{object V137 = Cnil; |
{object V137 = Cnil; |
1662 |
VMR71(V137)} |
VMR71(V137)} |
1663 |
base[0]=base[0]; |
base[0]=base[0]; |
1664 |
return Cnil; |
return Cnil; |
1665 |
} |
} |
1666 |
/* local entry for function progn 'compile3938 */ |
/* local entry for function progn 'compile3943 */ |
1667 |
|
|
1668 |
static object LI72() |
static object LI72() |
1669 |
|
|
1674 |
VMR72(V138)} |
VMR72(V138)} |
1675 |
return Cnil; |
return Cnil; |
1676 |
} |
} |
1677 |
/* function definition for Defclass PROGRAM-ERROR3958 */ |
/* function definition for Defclass PROGRAM-ERROR3963 */ |
1678 |
|
|
1679 |
static void L73() |
static void L73() |
1680 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1689 |
base[3]= Cnil; |
base[3]= Cnil; |
1690 |
base[4]= Cnil; |
base[4]= Cnil; |
1691 |
base[5]= Cnil; |
base[5]= Cnil; |
1692 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1693 |
return; |
return; |
1694 |
} |
} |
1695 |
/* local entry for function progn 'compile3974 */ |
/* local entry for function progn 'compile3979 */ |
1696 |
|
|
1697 |
static object LI74() |
static object LI74() |
1698 |
|
|
1700 |
goto TTL; |
goto TTL; |
1701 |
TTL:; |
TTL:; |
1702 |
vs_base=vs_top; |
vs_base=vs_top; |
1703 |
(void) (*Lnk290)(); |
(void) (*Lnk296)(); |
1704 |
vs_top=sup; |
vs_top=sup; |
1705 |
{object V139 = Cnil; |
{object V139 = Cnil; |
1706 |
VMR74(V139)} |
VMR74(V139)} |
1707 |
base[0]=base[0]; |
base[0]=base[0]; |
1708 |
return Cnil; |
return Cnil; |
1709 |
} |
} |
1710 |
/* local entry for function progn 'compile3991 */ |
/* local entry for function progn 'compile3996 */ |
1711 |
|
|
1712 |
static object LI75() |
static object LI75() |
1713 |
|
|
1725 |
base[0]=base[0]; |
base[0]=base[0]; |
1726 |
return Cnil; |
return Cnil; |
1727 |
} |
} |
1728 |
/* local entry for function progn 'compile4015 */ |
/* local entry for function progn 'compile4020 */ |
1729 |
|
|
1730 |
static object LI76() |
static object LI76() |
1731 |
|
|
1737 |
VMR76(V142)} |
VMR76(V142)} |
1738 |
return Cnil; |
return Cnil; |
1739 |
} |
} |
1740 |
/* local entry for function progn 'compile4027 */ |
/* local entry for function progn 'compile4032 */ |
1741 |
|
|
1742 |
static object LI77() |
static object LI77() |
1743 |
|
|
1748 |
VMR77(V143)} |
VMR77(V143)} |
1749 |
return Cnil; |
return Cnil; |
1750 |
} |
} |
1751 |
/* function definition for Defclass CONTROL-ERROR4047 */ |
/* function definition for Defclass CONTROL-ERROR4052 */ |
1752 |
|
|
1753 |
static void L78() |
static void L78() |
1754 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1763 |
base[3]= Cnil; |
base[3]= Cnil; |
1764 |
base[4]= Cnil; |
base[4]= Cnil; |
1765 |
base[5]= Cnil; |
base[5]= Cnil; |
1766 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1767 |
return; |
return; |
1768 |
} |
} |
1769 |
/* local entry for function progn 'compile4063 */ |
/* local entry for function progn 'compile4068 */ |
1770 |
|
|
1771 |
static object LI79() |
static object LI79() |
1772 |
|
|
1774 |
goto TTL; |
goto TTL; |
1775 |
TTL:; |
TTL:; |
1776 |
vs_base=vs_top; |
vs_base=vs_top; |
1777 |
(void) (*Lnk291)(); |
(void) (*Lnk297)(); |
1778 |
vs_top=sup; |
vs_top=sup; |
1779 |
{object V144 = Cnil; |
{object V144 = Cnil; |
1780 |
VMR79(V144)} |
VMR79(V144)} |
1781 |
base[0]=base[0]; |
base[0]=base[0]; |
1782 |
return Cnil; |
return Cnil; |
1783 |
} |
} |
1784 |
/* local entry for function progn 'compile4080 */ |
/* local entry for function progn 'compile4085 */ |
1785 |
|
|
1786 |
static object LI80() |
static object LI80() |
1787 |
|
|
1799 |
base[0]=base[0]; |
base[0]=base[0]; |
1800 |
return Cnil; |
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function progn 'compile4104 */ |
/* local entry for function progn 'compile4109 */ |
1803 |
|
|
1804 |
static object LI81() |
static object LI81() |
1805 |
|
|
1811 |
VMR81(V147)} |
VMR81(V147)} |
1812 |
return Cnil; |
return Cnil; |
1813 |
} |
} |
1814 |
/* local entry for function progn 'compile4116 */ |
/* local entry for function progn 'compile4121 */ |
1815 |
|
|
1816 |
static object LI82() |
static object LI82() |
1817 |
|
|
1822 |
VMR82(V148)} |
VMR82(V148)} |
1823 |
return Cnil; |
return Cnil; |
1824 |
} |
} |
1825 |
/* function definition for Defclass STREAM-ERROR4136 */ |
/* function definition for Defclass PARSE-ERROR4141 */ |
1826 |
|
|
1827 |
static void L83() |
static void L83() |
1828 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1834 |
base[0]= VV[110]; |
base[0]= VV[110]; |
1835 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1836 |
base[2]= VV[111]; |
base[2]= VV[111]; |
1837 |
V149= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil); |
base[3]= Cnil; |
|
base[3]= make_cons(/* INLINE-ARGS */V149,Cnil); |
|
1838 |
base[4]= Cnil; |
base[4]= Cnil; |
1839 |
base[5]= Cnil; |
base[5]= Cnil; |
1840 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1841 |
return; |
return; |
1842 |
} |
} |
1843 |
/* local entry for function progn 'compile4153 */ |
/* local entry for function progn 'compile4157 */ |
1844 |
|
|
1845 |
static object LI84() |
static object LI84() |
1846 |
|
|
1848 |
goto TTL; |
goto TTL; |
1849 |
TTL:; |
TTL:; |
1850 |
vs_base=vs_top; |
vs_base=vs_top; |
1851 |
(void) (*Lnk292)(); |
(void) (*Lnk298)(); |
1852 |
vs_top=sup; |
vs_top=sup; |
1853 |
{object V150 = Cnil; |
{object V149 = Cnil; |
1854 |
VMR84(V150)} |
VMR84(V149)} |
1855 |
base[0]=base[0]; |
base[0]=base[0]; |
1856 |
return Cnil; |
return Cnil; |
1857 |
} |
} |
1858 |
/* local entry for function progn 'compile4170 */ |
/* local entry for function progn 'compile4174 */ |
1859 |
|
|
1860 |
static object LI85() |
static object LI85() |
1861 |
|
|
1862 |
{ VMB85 VMS85 VMV85 |
{ VMB85 VMS85 VMV85 |
1863 |
goto TTL; |
goto TTL; |
1864 |
TTL:; |
TTL:; |
1865 |
base[0]= VV[115]; |
base[0]= VV[112]; |
1866 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
1867 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1868 |
Ladjoin(); |
Ladjoin(); |
1869 |
vs_top=sup; |
vs_top=sup; |
1870 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
1871 |
{object V152 = Cnil; |
{object V151 = Cnil; |
1872 |
VMR85(V152)} |
VMR85(V151)} |
1873 |
base[0]=base[0]; |
base[0]=base[0]; |
1874 |
return Cnil; |
return Cnil; |
1875 |
} |
} |
1876 |
/* local entry for function progn 'compile4194 */ |
/* local entry for function progn 'compile4198 */ |
1877 |
|
|
1878 |
static object LI86() |
static object LI86() |
1879 |
|
|
1881 |
goto TTL; |
goto TTL; |
1882 |
TTL:; |
TTL:; |
1883 |
(void)(sputprop(VV[110],VV[9],Cnil)); |
(void)(sputprop(VV[110],VV[9],Cnil)); |
1884 |
{object V153 = Cnil; |
{object V152 = Cnil; |
1885 |
VMR86(V153)} |
VMR86(V152)} |
1886 |
return Cnil; |
return Cnil; |
1887 |
} |
} |
1888 |
/* local entry for function progn 'compile4206 */ |
/* local entry for function progn 'compile4210 */ |
1889 |
|
|
1890 |
static object LI87() |
static object LI87() |
1891 |
|
|
1892 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
1893 |
goto TTL; |
goto TTL; |
1894 |
TTL:; |
TTL:; |
1895 |
{object V154 = Cnil; |
{object V153 = Cnil; |
1896 |
VMR87(V154)} |
VMR87(V153)} |
1897 |
return Cnil; |
return Cnil; |
1898 |
} |
} |
1899 |
/* function definition for Defclass END-OF-FILE4226 */ |
/* function definition for Defclass STREAM-ERROR4230 */ |
1900 |
|
|
1901 |
static void L88() |
static void L88() |
1902 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1905 |
vs_top=sup; |
vs_top=sup; |
1906 |
goto TTL; |
goto TTL; |
1907 |
TTL:; |
TTL:; |
1908 |
base[0]= VV[116]; |
base[0]= VV[113]; |
1909 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1910 |
base[2]= VV[117]; |
base[2]= VV[114]; |
1911 |
base[3]= Cnil; |
V154= listA(9,VV[18],VV[115],VV[20],VV[116],VV[22],Cnil,VV[23],VV[117],Cnil); |
1912 |
|
base[3]= make_cons(/* INLINE-ARGS */V154,Cnil); |
1913 |
base[4]= Cnil; |
base[4]= Cnil; |
1914 |
base[5]= Cnil; |
base[5]= Cnil; |
1915 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
1916 |
return; |
return; |
1917 |
} |
} |
1918 |
/* local entry for function progn 'compile4242 */ |
/* local entry for function progn 'compile4247 */ |
1919 |
|
|
1920 |
static object LI89() |
static object LI89() |
1921 |
|
|
1923 |
goto TTL; |
goto TTL; |
1924 |
TTL:; |
TTL:; |
1925 |
vs_base=vs_top; |
vs_base=vs_top; |
1926 |
(void) (*Lnk293)(); |
(void) (*Lnk299)(); |
1927 |
vs_top=sup; |
vs_top=sup; |
1928 |
{object V155 = Cnil; |
{object V155 = Cnil; |
1929 |
VMR89(V155)} |
VMR89(V155)} |
1930 |
base[0]=base[0]; |
base[0]=base[0]; |
1931 |
return Cnil; |
return Cnil; |
1932 |
} |
} |
1933 |
/* local entry for function progn 'compile4259 */ |
/* local entry for function progn 'compile4264 */ |
1934 |
|
|
1935 |
static object LI90() |
static object LI90() |
1936 |
|
|
1948 |
base[0]=base[0]; |
base[0]=base[0]; |
1949 |
return Cnil; |
return Cnil; |
1950 |
} |
} |
1951 |
/* local entry for function progn 'compile4283 */ |
/* local entry for function progn 'compile4288 */ |
1952 |
|
|
1953 |
static object LI91() |
static object LI91() |
1954 |
|
|
1955 |
{ VMB91 VMS91 VMV91 |
{ VMB91 VMS91 VMV91 |
1956 |
goto TTL; |
goto TTL; |
1957 |
TTL:; |
TTL:; |
1958 |
(void)(sputprop(VV[116],VV[9],Cnil)); |
(void)(sputprop(VV[113],VV[9],Cnil)); |
1959 |
{object V158 = Cnil; |
{object V158 = Cnil; |
1960 |
VMR91(V158)} |
VMR91(V158)} |
1961 |
return Cnil; |
return Cnil; |
1962 |
} |
} |
1963 |
/* local entry for function progn 'compile4299 */ |
/* local entry for function progn 'compile4300 */ |
1964 |
|
|
1965 |
static object LI92() |
static object LI92() |
1966 |
|
|
1967 |
{ VMB92 VMS92 VMV92 |
{ VMB92 VMS92 VMV92 |
1968 |
goto TTL; |
goto TTL; |
1969 |
TTL:; |
TTL:; |
1970 |
|
{object V159 = Cnil; |
1971 |
|
VMR92(V159)} |
1972 |
|
return Cnil; |
1973 |
|
} |
1974 |
|
/* function definition for Defclass END-OF-FILE4320 */ |
1975 |
|
|
1976 |
|
static void L93() |
1977 |
|
{register object *base=vs_base; |
1978 |
|
register object *sup=base+VM93; VC93 |
1979 |
|
vs_check; |
1980 |
|
vs_top=sup; |
1981 |
|
goto TTL; |
1982 |
|
TTL:; |
1983 |
|
base[0]= VV[119]; |
1984 |
|
base[1]= VV[5]; |
1985 |
|
base[2]= VV[120]; |
1986 |
|
base[3]= Cnil; |
1987 |
|
base[4]= Cnil; |
1988 |
|
base[5]= Cnil; |
1989 |
|
symlispcall(VV[267],base+0,6); |
1990 |
|
return; |
1991 |
|
} |
1992 |
|
/* local entry for function progn 'compile4336 */ |
1993 |
|
|
1994 |
|
static object LI94() |
1995 |
|
|
1996 |
|
{ VMB94 VMS94 VMV94 |
1997 |
|
goto TTL; |
1998 |
|
TTL:; |
1999 |
|
vs_base=vs_top; |
2000 |
|
(void) (*Lnk300)(); |
2001 |
|
vs_top=sup; |
2002 |
|
{object V160 = Cnil; |
2003 |
|
VMR94(V160)} |
2004 |
|
base[0]=base[0]; |
2005 |
|
return Cnil; |
2006 |
|
} |
2007 |
|
/* local entry for function progn 'compile4353 */ |
2008 |
|
|
2009 |
|
static object LI95() |
2010 |
|
|
2011 |
|
{ VMB95 VMS95 VMV95 |
2012 |
|
goto TTL; |
2013 |
|
TTL:; |
2014 |
|
base[0]= VV[121]; |
2015 |
|
base[1]= (VV[8]->s.s_dbind); |
2016 |
|
vs_top=(vs_base=base+0)+2; |
2017 |
|
Ladjoin(); |
2018 |
|
vs_top=sup; |
2019 |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
2020 |
|
{object V162 = Cnil; |
2021 |
|
VMR95(V162)} |
2022 |
|
base[0]=base[0]; |
2023 |
|
return Cnil; |
2024 |
|
} |
2025 |
|
/* local entry for function progn 'compile4377 */ |
2026 |
|
|
2027 |
|
static object LI96() |
2028 |
|
|
2029 |
|
{ VMB96 VMS96 VMV96 |
2030 |
|
goto TTL; |
2031 |
|
TTL:; |
2032 |
|
(void)(sputprop(VV[119],VV[9],Cnil)); |
2033 |
|
{object V163 = Cnil; |
2034 |
|
VMR96(V163)} |
2035 |
|
return Cnil; |
2036 |
|
} |
2037 |
|
/* local entry for function progn 'compile4393 */ |
2038 |
|
|
2039 |
|
static object LI97() |
2040 |
|
|
2041 |
|
{ VMB97 VMS97 VMV97 |
2042 |
|
goto TTL; |
2043 |
|
TTL:; |
2044 |
base[0]= VV[32]; |
base[0]= VV[32]; |
2045 |
base[1]= VV[119]; |
base[1]= VV[122]; |
2046 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2047 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
2048 |
vs_top=sup; |
vs_top=sup; |
2049 |
{object V159 = Cnil; |
{object V164 = Cnil; |
2050 |
VMR92(V159)} |
VMR97(V164)} |
2051 |
base[0]=base[0]; |
base[0]=base[0]; |
2052 |
return Cnil; |
return Cnil; |
2053 |
} |
} |
2054 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) */ |
2055 |
|
|
2056 |
static void L93() |
static void L98() |
2057 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2058 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM98; VC98 |
2059 |
vs_check; |
vs_check; |
2060 |
{object V160; |
{object V165; |
2061 |
register object V161; |
register object V166; |
2062 |
register object V162; |
register object V167; |
2063 |
register object V163; |
register object V168; |
2064 |
V160=(base[0]); |
V165=(base[0]); |
2065 |
V161=(base[1]); |
V166=(base[1]); |
2066 |
V162=(base[2]); |
V167=(base[2]); |
2067 |
V163=(base[3]); |
V168=(base[3]); |
2068 |
vs_top=sup; |
vs_top=sup; |
2069 |
goto TTL; |
goto TTL; |
2070 |
TTL:; |
TTL:; |
2071 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
2072 |
goto T529;} |
goto T542;} |
2073 |
if(((V161))==Cnil){ |
if(((V166))==Cnil){ |
2074 |
goto T532;} |
goto T545;} |
2075 |
base[4]= (V161); |
base[4]= (V166); |
2076 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2077 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2078 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2079 |
vs_top=sup; |
vs_top=sup; |
2080 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2081 |
goto T536;} |
goto T549;} |
2082 |
base[4]= STREF(object,(V161),0); |
base[4]= STREF(object,(V166),0); |
2083 |
base[5]= STREF(object,(V161),4); |
base[5]= STREF(object,(V166),4); |
2084 |
base[6]= STREF(object,(V161),8); |
base[6]= STREF(object,(V166),8); |
2085 |
base[7]= (V162); |
base[7]= (V167); |
2086 |
base[8]= (V163); |
base[8]= (V168); |
2087 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2088 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2089 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2090 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2091 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2092 |
return; |
return; |
2093 |
goto T536; |
goto T549; |
2094 |
T536:; |
T549:; |
2095 |
if(!(type_of((V161))==t_fixnum)){ |
if(!(type_of((V166))==t_fixnum)){ |
2096 |
goto T546;} |
goto T559;} |
2097 |
{object V166; |
{object V171; |
2098 |
if(type_of(V162)==t_structure){ |
if(type_of(V167)==t_structure){ |
2099 |
goto T552;} |
goto T565;} |
2100 |
goto T550; |
goto T563; |
2101 |
goto T552; |
goto T565; |
2102 |
T552:; |
T565:; |
2103 |
if(!(((V162)->str.str_def)==(VV[120]))){ |
if(!(((V167)->str.str_def)==(VV[123]))){ |
2104 |
goto T550;} |
goto T563;} |
2105 |
V166= STREF(object,(V162),4); |
V171= STREF(object,(V167),4); |
2106 |
goto T548; |
goto T561; |
2107 |
goto T550; |
goto T563; |
2108 |
T550:;{object V168; |
T563:;{object V173; |
2109 |
V168= (VV[38]->s.s_dbind); |
V173= (VV[38]->s.s_dbind); |
2110 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2111 |
base[5]= (V162); |
base[5]= (V167); |
2112 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2113 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
2114 |
vs_top=sup; |
vs_top=sup; |
2115 |
V169= vs_base[0]; |
V174= vs_base[0]; |
2116 |
if(!((V168)==(CMPcar(V169)))){ |
if(!((V173)==(CMPcar(V174)))){ |
2117 |
goto T555;}} |
goto T568;}} |
2118 |
V166= CMPcar(((V162))->cc.cc_turbo[12]); |
V171= CMPcar(((V167))->cc.cc_turbo[12]); |
2119 |
goto T548; |
goto T561; |
2120 |
goto T555; |
goto T568; |
2121 |
T555:; |
T568:; |
2122 |
V166= Cnil; |
V171= Cnil; |
|
goto T548; |
|
|
T548:; |
|
|
if(((V166))==Cnil){ |
|
|
goto T561;} |
|
|
base[4]= ((V166))->v.v_self[fix((V161))]= (V162); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
2123 |
goto T561; |
goto T561; |
2124 |
T561:; |
T561:; |
2125 |
|
if(((V171))==Cnil){ |
2126 |
|
goto T574;} |
2127 |
|
base[4]= ((V171))->v.v_self[fix((V166))]= (V167); |
2128 |
|
vs_top=(vs_base=base+4)+1; |
2129 |
|
return; |
2130 |
|
goto T574; |
2131 |
|
T574:; |
2132 |
base[4]= Cnil; |
base[4]= Cnil; |
2133 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2134 |
return;} |
return;} |
2135 |
goto T546; |
goto T559; |
2136 |
T546:; |
T559:; |
2137 |
{register object V171; |
{register object V176; |
2138 |
V171= V161; |
V176= V166; |
2139 |
base[4]= (V171); |
base[4]= (V176); |
2140 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2141 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2142 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2143 |
vs_top=sup; |
vs_top=sup; |
2144 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2145 |
goto T564;} |
goto T577;} |
2146 |
{object V172; |
{object V177; |
2147 |
object V173; |
object V178; |
2148 |
register object V174; |
register object V179; |
2149 |
V172= STREF(object,(V161),0); |
V177= STREF(object,(V166),0); |
2150 |
V173= list(2,(V162),(V163)); |
V178= list(2,(V167),(V168)); |
2151 |
V174= STREF(object,(V161),4); |
V179= STREF(object,(V166),4); |
2152 |
if(((V174))==Cnil){ |
if(((V179))==Cnil){ |
2153 |
goto T572;} |
goto T585;} |
2154 |
if((CMPcdr((V174)))!=Cnil){ |
if((CMPcdr((V179)))!=Cnil){ |
2155 |
goto T572;} |
goto T585;} |
2156 |
base[4]= (V173); |
base[4]= (V178); |
2157 |
base[5]= CMPcar((V174)); |
base[5]= CMPcar((V179)); |
2158 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2159 |
{object _funobj = (V172);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V177);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2160 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2161 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2162 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2163 |
return; |
return; |
2164 |
goto T572; |
goto T585; |
2165 |
T572:; |
T585:; |
2166 |
base[4]= (V172); |
base[4]= (V177); |
2167 |
base[5]= (V173); |
base[5]= (V178); |
2168 |
{object V175; |
{object V180; |
2169 |
V175= (V174); |
V180= (V179); |
2170 |
vs_top=base+6; |
vs_top=base+6; |
2171 |
while(V175!=Cnil) |
while(V180!=Cnil) |
2172 |
{vs_push((V175)->c.c_car);V175=(V175)->c.c_cdr;} |
{vs_push((V180)->c.c_car);V180=(V180)->c.c_cdr;} |
2173 |
vs_base=base+5;} |
vs_base=base+5;} |
2174 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2175 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2176 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2177 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2178 |
return;} |
return;} |
2179 |
goto T564; |
goto T577; |
2180 |
T564:; |
T577:; |
2181 |
base[4]= (V171); |
base[4]= (V176); |
2182 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2183 |
Lfunctionp(); |
Lfunctionp(); |
2184 |
vs_top=sup; |
vs_top=sup; |
2185 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2186 |
goto T582;} |
goto T595;} |
2187 |
base[4]= (V162); |
base[4]= (V167); |
2188 |
base[5]= (V163); |
base[5]= (V168); |
2189 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2190 |
{object _funobj = (V161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V166);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2191 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2192 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2193 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2194 |
return; |
return; |
2195 |
goto T582; |
goto T595; |
2196 |
T582:; |
T595:; |
2197 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2198 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2199 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2200 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2201 |
base[8]= V161; |
base[8]= V166; |
2202 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2203 |
base[10]= VV[121]; |
base[10]= VV[124]; |
2204 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2205 |
base[12]= VV[122]; |
base[12]= VV[125]; |
2206 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2207 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2208 |
return;} |
return;} |
2209 |
goto T532; |
goto T545; |
2210 |
T532:; |
T545:; |
2211 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2212 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2213 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
2214 |
return; |
return; |
2215 |
goto T529; |
goto T542; |
2216 |
T529:; |
T542:; |
2217 |
base[4]= V163; |
base[4]= V168; |
2218 |
base[5]= VV[123]; |
base[5]= VV[126]; |
2219 |
base[7]= V162; |
base[7]= V167; |
2220 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2221 |
(void) (*Lnk294)(Lclptr294); |
(void) (*Lnk301)(Lclptr301); |
2222 |
vs_top=sup; |
vs_top=sup; |
2223 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2224 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2226 |
return; |
return; |
2227 |
} |
} |
2228 |
} |
} |
2229 |
/* local entry for function progn 'compile4496 */ |
/* local entry for function progn 'compile4590 */ |
2230 |
|
|
2231 |
static object LI94() |
static object LI99() |
2232 |
|
|
2233 |
{ VMB94 VMS94 VMV94 |
{ VMB99 VMS99 VMV99 |
2234 |
goto TTL; |
goto TTL; |
2235 |
TTL:; |
TTL:; |
2236 |
base[0]= VV[48]; |
base[0]= VV[48]; |
2237 |
base[1]= VV[32]; |
base[1]= VV[32]; |
2238 |
base[2]= Cnil; |
base[2]= Cnil; |
2239 |
base[3]= VV[124]; |
base[3]= VV[127]; |
2240 |
base[4]= VV[125]; |
base[4]= VV[128]; |
2241 |
V178= (VV[295]->s.s_gfdef); |
V183= (VV[302]->s.s_gfdef); |
2242 |
base[5]= listA(3,VV[51],V178,VV[126]); |
base[5]= listA(3,VV[51],V183,VV[129]); |
2243 |
base[6]= Cnil; |
base[6]= Cnil; |
2244 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2245 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
2246 |
vs_top=sup; |
vs_top=sup; |
2247 |
{object V179 = Cnil; |
{object V184 = Cnil; |
2248 |
VMR94(V179)} |
VMR99(V184)} |
2249 |
base[0]=base[0]; |
base[0]=base[0]; |
2250 |
return Cnil; |
return Cnil; |
2251 |
} |
} |
2252 |
/* local entry for function progn 'compile4504 */ |
/* local entry for function progn 'compile4598 */ |
2253 |
|
|
2254 |
static object LI95() |
static object LI100() |
2255 |
|
|
2256 |
{ VMB95 VMS95 VMV95 |
{ VMB100 VMS100 VMV100 |
2257 |
goto TTL; |
goto TTL; |
2258 |
TTL:; |
TTL:; |
2259 |
{object V180 = Cnil; |
{object V185 = Cnil; |
2260 |
VMR95(V180)} |
VMR100(V185)} |
2261 |
return Cnil; |
return Cnil; |
2262 |
} |
} |
2263 |
/* function definition for Defclass FILE-ERROR4524 */ |
/* function definition for Defclass FILE-ERROR4618 */ |
2264 |
|
|
2265 |
static void L96() |
static void L101() |
2266 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2267 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM101; VC101 |
2268 |
vs_check; |
vs_check; |
2269 |
vs_top=sup; |
vs_top=sup; |
2270 |
goto TTL; |
goto TTL; |
2271 |
TTL:; |
TTL:; |
2272 |
base[0]= VV[127]; |
base[0]= VV[130]; |
2273 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2274 |
base[2]= VV[128]; |
base[2]= VV[131]; |
2275 |
V181= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil); |
V186= listA(9,VV[18],VV[132],VV[20],VV[133],VV[22],Cnil,VV[23],VV[134],Cnil); |
2276 |
base[3]= make_cons(/* INLINE-ARGS */V181,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V186,Cnil); |
2277 |
base[4]= Cnil; |
base[4]= Cnil; |
2278 |
base[5]= Cnil; |
base[5]= Cnil; |
2279 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
2280 |
return; |
return; |
2281 |
} |
} |
2282 |
/* local entry for function progn 'compile4541 */ |
/* local entry for function progn 'compile4635 */ |
2283 |
|
|
2284 |
static object LI97() |
static object LI102() |
2285 |
|
|
2286 |
{ VMB97 VMS97 VMV97 |
{ VMB102 VMS102 VMV102 |
2287 |
goto TTL; |
goto TTL; |
2288 |
TTL:; |
TTL:; |
2289 |
vs_base=vs_top; |
vs_base=vs_top; |
2290 |
(void) (*Lnk296)(); |
(void) (*Lnk303)(); |
2291 |
vs_top=sup; |
vs_top=sup; |
2292 |
{object V182 = Cnil; |
{object V187 = Cnil; |
2293 |
VMR97(V182)} |
VMR102(V187)} |
2294 |
base[0]=base[0]; |
base[0]=base[0]; |
2295 |
return Cnil; |
return Cnil; |
2296 |
} |
} |
2297 |
/* local entry for function progn 'compile4558 */ |
/* local entry for function progn 'compile4652 */ |
2298 |
|
|
2299 |
static object LI98() |
static object LI103() |
2300 |
|
|
2301 |
{ VMB98 VMS98 VMV98 |
{ VMB103 VMS103 VMV103 |
2302 |
goto TTL; |
goto TTL; |
2303 |
TTL:; |
TTL:; |
2304 |
base[0]= VV[132]; |
base[0]= VV[135]; |
2305 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
2306 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2307 |
Ladjoin(); |
Ladjoin(); |
2308 |
vs_top=sup; |
vs_top=sup; |
2309 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
2310 |
{object V184 = Cnil; |
{object V189 = Cnil; |
2311 |
VMR98(V184)} |
VMR103(V189)} |
2312 |
base[0]=base[0]; |
base[0]=base[0]; |
2313 |
return Cnil; |
return Cnil; |
2314 |
} |
} |
2315 |
/* local entry for function progn 'compile4582 */ |
/* local entry for function progn 'compile4676 */ |
2316 |
|
|
2317 |
static object LI99() |
static object LI104() |
2318 |
|
|
2319 |
{ VMB99 VMS99 VMV99 |
{ VMB104 VMS104 VMV104 |
2320 |
goto TTL; |
goto TTL; |
2321 |
TTL:; |
TTL:; |
2322 |
(void)(sputprop(VV[127],VV[9],Cnil)); |
(void)(sputprop(VV[130],VV[9],Cnil)); |
2323 |
{object V185 = Cnil; |
{object V190 = Cnil; |
2324 |
VMR99(V185)} |
VMR104(V190)} |
2325 |
return Cnil; |
return Cnil; |
2326 |
} |
} |
2327 |
/* local entry for function progn 'compile4594 */ |
/* local entry for function progn 'compile4688 */ |
2328 |
|
|
2329 |
static object LI100() |
static object LI105() |
2330 |
|
|
2331 |
{ VMB100 VMS100 VMV100 |
{ VMB105 VMS105 VMV105 |
2332 |
goto TTL; |
goto TTL; |
2333 |
TTL:; |
TTL:; |
2334 |
{object V186 = Cnil; |
{object V191 = Cnil; |
2335 |
VMR100(V186)} |
VMR105(V191)} |
2336 |
return Cnil; |
return Cnil; |
2337 |
} |
} |
2338 |
/* function definition for Defclass PACKAGE-ERROR4614 */ |
/* function definition for Defclass PACKAGE-ERROR4708 */ |
2339 |
|
|
2340 |
static void L101() |
static void L106() |
2341 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2342 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM106; VC106 |
2343 |
vs_check; |
vs_check; |
2344 |
vs_top=sup; |
vs_top=sup; |
2345 |
goto TTL; |
goto TTL; |
2346 |
TTL:; |
TTL:; |
2347 |
base[0]= VV[133]; |
base[0]= VV[136]; |
2348 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2349 |
base[2]= VV[134]; |
base[2]= VV[137]; |
2350 |
V187= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil); |
V192= listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil); |
2351 |
base[3]= list(2,/* INLINE-ARGS */V187,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V192,listA(9,VV[18],VV[141],VV[20],VV[142],VV[22],Cnil,VV[23],VV[143],Cnil)); |
2352 |
base[4]= Cnil; |
base[4]= Cnil; |
2353 |
base[5]= Cnil; |
base[5]= Cnil; |
2354 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
2355 |
return; |
return; |
2356 |
} |
} |
2357 |
/* local entry for function progn 'compile4632 */ |
/* local entry for function progn 'compile4726 */ |
2358 |
|
|
2359 |
static object LI102() |
static object LI107() |
2360 |
|
|
2361 |
{ VMB102 VMS102 VMV102 |
{ VMB107 VMS107 VMV107 |
2362 |
goto TTL; |
goto TTL; |
2363 |
TTL:; |
TTL:; |
2364 |
vs_base=vs_top; |
vs_base=vs_top; |
2365 |
(void) (*Lnk297)(); |
(void) (*Lnk304)(); |
2366 |
vs_top=sup; |
vs_top=sup; |
2367 |
{object V188 = Cnil; |
{object V193 = Cnil; |
2368 |
VMR102(V188)} |
VMR107(V193)} |
2369 |
base[0]=base[0]; |
base[0]=base[0]; |
2370 |
return Cnil; |
return Cnil; |
2371 |
} |
} |
2372 |
/* local entry for function progn 'compile4649 */ |
/* local entry for function progn 'compile4743 */ |
2373 |
|
|
2374 |
static object LI103() |
static object LI108() |
2375 |
|
|
2376 |
{ VMB103 VMS103 VMV103 |
{ VMB108 VMS108 VMV108 |
2377 |
goto TTL; |
goto TTL; |
2378 |
TTL:; |
TTL:; |
2379 |
base[0]= VV[141]; |
base[0]= VV[144]; |
2380 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
2381 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2382 |
Ladjoin(); |
Ladjoin(); |
2383 |
vs_top=sup; |
vs_top=sup; |
2384 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
2385 |
{object V190 = Cnil; |
{object V195 = Cnil; |
2386 |
VMR103(V190)} |
VMR108(V195)} |
2387 |
base[0]=base[0]; |
base[0]=base[0]; |
2388 |
return Cnil; |
return Cnil; |
2389 |
} |
} |
2390 |
/* local entry for function progn 'compile4673 */ |
/* local entry for function progn 'compile4767 */ |
2391 |
|
|
2392 |
static object LI104() |
static object LI109() |
2393 |
|
|
2394 |
{ VMB104 VMS104 VMV104 |
{ VMB109 VMS109 VMV109 |
2395 |
goto TTL; |
goto TTL; |
2396 |
TTL:; |
TTL:; |
2397 |
(void)(sputprop(VV[133],VV[9],Cnil)); |
(void)(sputprop(VV[136],VV[9],Cnil)); |
2398 |
{object V191 = Cnil; |
{object V196 = Cnil; |
2399 |
VMR104(V191)} |
VMR109(V196)} |
2400 |
return Cnil; |
return Cnil; |
2401 |
} |
} |
2402 |
/* local entry for function progn 'compile4689 */ |
/* local entry for function progn 'compile4783 */ |
2403 |
|
|
2404 |
static object LI105() |
static object LI110() |
2405 |
|
|
2406 |
{ VMB105 VMS105 VMV105 |
{ VMB110 VMS110 VMV110 |
2407 |
goto TTL; |
goto TTL; |
2408 |
TTL:; |
TTL:; |
2409 |
base[0]= VV[32]; |
base[0]= VV[32]; |
2410 |
base[1]= VV[142]; |
base[1]= VV[145]; |
2411 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2412 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
2413 |
vs_top=sup; |
vs_top=sup; |
2414 |
{object V192 = Cnil; |
{object V197 = Cnil; |
2415 |
VMR105(V192)} |
VMR110(V197)} |
2416 |
base[0]=base[0]; |
base[0]=base[0]; |
2417 |
return Cnil; |
return Cnil; |
2418 |
} |
} |
2419 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T)) */ |
2420 |
|
|
2421 |
static void L106() |
static void L111() |
2422 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2423 |
register object *sup=base+VM106; VC106 |
register object *sup=base+VM111; VC111 |
2424 |
vs_check; |
vs_check; |
2425 |
{object V193; |
{object V198; |
2426 |
register object V194; |
register object V199; |
2427 |
register object V195; |
register object V200; |
2428 |
register object V196; |
register object V201; |
2429 |
V193=(base[0]); |
V198=(base[0]); |
2430 |
V194=(base[1]); |
V199=(base[1]); |
2431 |
V195=(base[2]); |
V200=(base[2]); |
2432 |
V196=(base[3]); |
V201=(base[3]); |
2433 |
vs_top=sup; |
vs_top=sup; |
2434 |
goto TTL; |
goto TTL; |
2435 |
TTL:; |
TTL:; |
2436 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
2437 |
goto T643;} |
goto T656;} |
2438 |
if(((V194))==Cnil){ |
if(((V199))==Cnil){ |
2439 |
goto T646;} |
goto T659;} |
2440 |
base[4]= (V194); |
base[4]= (V199); |
2441 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2442 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2443 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2444 |
vs_top=sup; |
vs_top=sup; |
2445 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2446 |
goto T650;} |
goto T663;} |
2447 |
base[4]= STREF(object,(V194),0); |
base[4]= STREF(object,(V199),0); |
2448 |
base[5]= STREF(object,(V194),4); |
base[5]= STREF(object,(V199),4); |
2449 |
base[6]= STREF(object,(V194),8); |
base[6]= STREF(object,(V199),8); |
2450 |
base[7]= (V195); |
base[7]= (V200); |
2451 |
base[8]= (V196); |
base[8]= (V201); |
2452 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2453 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2454 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2455 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2456 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2457 |
return; |
return; |
2458 |
goto T650; |
goto T663; |
2459 |
T650:; |
T663:; |
2460 |
if(!(type_of((V194))==t_fixnum)){ |
if(!(type_of((V199))==t_fixnum)){ |
2461 |
goto T660;} |
goto T673;} |
2462 |
{object V199; |
{object V204; |
2463 |
if(type_of(V195)==t_structure){ |
if(type_of(V200)==t_structure){ |
2464 |
goto T666;} |
goto T679;} |
2465 |
goto T664; |
goto T677; |
2466 |
goto T666; |
goto T679; |
2467 |
T666:; |
T679:; |
2468 |
if(!(((V195)->str.str_def)==(VV[143]))){ |
if(!(((V200)->str.str_def)==(VV[146]))){ |
2469 |
goto T664;} |
goto T677;} |
2470 |
V199= STREF(object,(V195),4); |
V204= STREF(object,(V200),4); |
2471 |
goto T662; |
goto T675; |
2472 |
goto T664; |
goto T677; |
2473 |
T664:;{object V201; |
T677:;{object V206; |
2474 |
V201= (VV[38]->s.s_dbind); |
V206= (VV[38]->s.s_dbind); |
2475 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2476 |
base[5]= (V195); |
base[5]= (V200); |
2477 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2478 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
2479 |
vs_top=sup; |
vs_top=sup; |
2480 |
V202= vs_base[0]; |
V207= vs_base[0]; |
2481 |
if(!((V201)==(CMPcar(V202)))){ |
if(!((V206)==(CMPcar(V207)))){ |
2482 |
goto T669;}} |
goto T682;}} |
2483 |
V199= CMPcar(((V195))->cc.cc_turbo[12]); |
V204= CMPcar(((V200))->cc.cc_turbo[12]); |
2484 |
goto T662; |
goto T675; |
2485 |
goto T669; |
goto T682; |
2486 |
T669:; |
T682:; |
2487 |
V199= Cnil; |
V204= Cnil; |
|
goto T662; |
|
|
T662:; |
|
|
if(((V199))==Cnil){ |
|
|
goto T675;} |
|
|
base[4]= ((V199))->v.v_self[fix((V194))]= (V195); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
2488 |
goto T675; |
goto T675; |
2489 |
T675:; |
T675:; |
2490 |
|
if(((V204))==Cnil){ |
2491 |
|
goto T688;} |
2492 |
|
base[4]= ((V204))->v.v_self[fix((V199))]= (V200); |
2493 |
|
vs_top=(vs_base=base+4)+1; |
2494 |
|
return; |
2495 |
|
goto T688; |
2496 |
|
T688:; |
2497 |
base[4]= Cnil; |
base[4]= Cnil; |
2498 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2499 |
return;} |
return;} |
2500 |
goto T660; |
goto T673; |
2501 |
T660:; |
T673:; |
2502 |
{register object V204; |
{register object V209; |
2503 |
V204= V194; |
V209= V199; |
2504 |
base[4]= (V204); |
base[4]= (V209); |
2505 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2506 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2507 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2508 |
vs_top=sup; |
vs_top=sup; |
2509 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2510 |
goto T678;} |
goto T691;} |
2511 |
{object V205; |
{object V210; |
2512 |
object V206; |
object V211; |
2513 |
register object V207; |
register object V212; |
2514 |
V205= STREF(object,(V194),0); |
V210= STREF(object,(V199),0); |
2515 |
V206= list(2,(V195),(V196)); |
V211= list(2,(V200),(V201)); |
2516 |
V207= STREF(object,(V194),4); |
V212= STREF(object,(V199),4); |
2517 |
if(((V207))==Cnil){ |
if(((V212))==Cnil){ |
2518 |
goto T686;} |
goto T699;} |
2519 |
if((CMPcdr((V207)))!=Cnil){ |
if((CMPcdr((V212)))!=Cnil){ |
2520 |
goto T686;} |
goto T699;} |
2521 |
base[4]= (V206); |
base[4]= (V211); |
2522 |
base[5]= CMPcar((V207)); |
base[5]= CMPcar((V212)); |
2523 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2524 |
{object _funobj = (V205);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V210);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2525 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2526 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2527 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2528 |
return; |
return; |
2529 |
goto T686; |
goto T699; |
2530 |
T686:; |
T699:; |
2531 |
base[4]= (V205); |
base[4]= (V210); |
2532 |
base[5]= (V206); |
base[5]= (V211); |
2533 |
{object V208; |
{object V213; |
2534 |
V208= (V207); |
V213= (V212); |
2535 |
vs_top=base+6; |
vs_top=base+6; |
2536 |
while(V208!=Cnil) |
while(V213!=Cnil) |
2537 |
{vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;} |
{vs_push((V213)->c.c_car);V213=(V213)->c.c_cdr;} |
2538 |
vs_base=base+5;} |
vs_base=base+5;} |
2539 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2540 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2541 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2542 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2543 |
return;} |
return;} |
2544 |
goto T678; |
goto T691; |
2545 |
T678:; |
T691:; |
2546 |
base[4]= (V204); |
base[4]= (V209); |
2547 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2548 |
Lfunctionp(); |
Lfunctionp(); |
2549 |
vs_top=sup; |
vs_top=sup; |
2550 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2551 |
goto T696;} |
goto T709;} |
2552 |
base[4]= (V195); |
base[4]= (V200); |
2553 |
base[5]= (V196); |
base[5]= (V201); |
2554 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2555 |
{object _funobj = (V194);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V199);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2556 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2557 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2558 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2559 |
return; |
return; |
2560 |
goto T696; |
goto T709; |
2561 |
T696:; |
T709:; |
2562 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2563 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2564 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2565 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2566 |
base[8]= V194; |
base[8]= V199; |
2567 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2568 |
base[10]= VV[144]; |
base[10]= VV[147]; |
2569 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2570 |
base[12]= VV[145]; |
base[12]= VV[148]; |
2571 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2572 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2573 |
return;} |
return;} |
2574 |
goto T646; |
goto T659; |
2575 |
T646:; |
T659:; |
2576 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2577 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2578 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
2579 |
return; |
return; |
2580 |
goto T643; |
goto T656; |
2581 |
T643:; |
T656:; |
2582 |
base[4]= V196; |
base[4]= V201; |
2583 |
base[5]= VV[146]; |
base[5]= VV[149]; |
2584 |
base[7]= V195; |
base[7]= V200; |
2585 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2586 |
(void) (*Lnk298)(Lclptr298); |
(void) (*Lnk305)(Lclptr305); |
2587 |
vs_top=sup; |
vs_top=sup; |
2588 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2589 |
base[8]= V195; |
base[8]= V200; |
2590 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2591 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk306)(Lclptr306); |
2592 |
vs_top=sup; |
vs_top=sup; |
2593 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2594 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2596 |
return; |
return; |
2597 |
} |
} |
2598 |
} |
} |
2599 |
/* local entry for function progn 'compile4886 */ |
/* local entry for function progn 'compile4980 */ |
2600 |
|
|
2601 |
static object LI107() |
static object LI112() |
2602 |
|
|
2603 |
{ VMB107 VMS107 VMV107 |
{ VMB112 VMS112 VMV112 |
2604 |
goto TTL; |
goto TTL; |
2605 |
TTL:; |
TTL:; |
2606 |
base[0]= VV[48]; |
base[0]= VV[48]; |
2607 |
base[1]= VV[32]; |
base[1]= VV[32]; |
2608 |
base[2]= Cnil; |
base[2]= Cnil; |
2609 |
base[3]= VV[147]; |
base[3]= VV[150]; |
2610 |
base[4]= VV[148]; |
base[4]= VV[151]; |
2611 |
V211= (VV[300]->s.s_gfdef); |
V216= (VV[307]->s.s_gfdef); |
2612 |
base[5]= listA(3,VV[51],V211,VV[149]); |
base[5]= listA(3,VV[51],V216,VV[152]); |
2613 |
base[6]= Cnil; |
base[6]= Cnil; |
2614 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2615 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
2616 |
vs_top=sup; |
vs_top=sup; |
2617 |
{object V212 = Cnil; |
{object V217 = Cnil; |
2618 |
VMR107(V212)} |
VMR112(V217)} |
2619 |
base[0]=base[0]; |
base[0]=base[0]; |
2620 |
return Cnil; |
return Cnil; |
2621 |
} |
} |
2622 |
/* local entry for function progn 'compile4894 */ |
/* local entry for function progn 'compile4988 */ |
2623 |
|
|
2624 |
static object LI108() |
static object LI113() |
2625 |
|
|
2626 |
{ VMB108 VMS108 VMV108 |
{ VMB113 VMS113 VMV113 |
2627 |
goto TTL; |
goto TTL; |
2628 |
TTL:; |
TTL:; |
2629 |
{object V213 = Cnil; |
{object V218 = Cnil; |
2630 |
VMR108(V213)} |
VMR113(V218)} |
2631 |
return Cnil; |
return Cnil; |
2632 |
} |
} |
2633 |
/* function definition for Defclass CELL-ERROR4914 */ |
/* function definition for Defclass CELL-ERROR5008 */ |
2634 |
|
|
2635 |
static void L109() |
static void L114() |
2636 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2637 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM114; VC114 |
2638 |
vs_check; |
vs_check; |
2639 |
vs_top=sup; |
vs_top=sup; |
2640 |
goto TTL; |
goto TTL; |
2641 |
TTL:; |
TTL:; |
2642 |
base[0]= VV[150]; |
base[0]= VV[153]; |
2643 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2644 |
base[2]= VV[151]; |
base[2]= VV[154]; |
2645 |
V214= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil); |
V219= listA(9,VV[18],VV[89],VV[20],VV[155],VV[22],Cnil,VV[23],VV[156],Cnil); |
2646 |
base[3]= make_cons(/* INLINE-ARGS */V214,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V219,Cnil); |
2647 |
base[4]= Cnil; |
base[4]= Cnil; |
2648 |
base[5]= Cnil; |
base[5]= Cnil; |
2649 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
2650 |
return; |
return; |
2651 |
} |
} |
2652 |
/* local entry for function progn 'compile4931 */ |
/* local entry for function progn 'compile5025 */ |
2653 |
|
|
2654 |
static object LI110() |
static object LI115() |
2655 |
|
|
2656 |
{ VMB110 VMS110 VMV110 |
{ VMB115 VMS115 VMV115 |
2657 |
goto TTL; |
goto TTL; |
2658 |
TTL:; |
TTL:; |
2659 |
vs_base=vs_top; |
vs_base=vs_top; |
2660 |
(void) (*Lnk301)(); |
(void) (*Lnk308)(); |
2661 |
vs_top=sup; |
vs_top=sup; |
2662 |
{object V215 = Cnil; |
{object V220 = Cnil; |
2663 |
VMR110(V215)} |
VMR115(V220)} |
2664 |
base[0]=base[0]; |
base[0]=base[0]; |
2665 |
return Cnil; |
return Cnil; |
2666 |
} |
} |
2667 |
/* local entry for function progn 'compile4948 */ |
/* local entry for function progn 'compile5042 */ |
2668 |
|
|
2669 |
static object LI111() |
static object LI116() |
2670 |
|
|
2671 |
{ VMB111 VMS111 VMV111 |
{ VMB116 VMS116 VMV116 |
2672 |
goto TTL; |
goto TTL; |
2673 |
TTL:; |
TTL:; |
2674 |
base[0]= VV[154]; |
base[0]= VV[157]; |
2675 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
2676 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2677 |
Ladjoin(); |
Ladjoin(); |
2678 |
vs_top=sup; |
vs_top=sup; |
2679 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
2680 |
{object V217 = Cnil; |
{object V222 = Cnil; |
2681 |
VMR111(V217)} |
VMR116(V222)} |
2682 |
base[0]=base[0]; |
base[0]=base[0]; |
2683 |
return Cnil; |
return Cnil; |
2684 |
} |
} |
2685 |
/* local entry for function progn 'compile4972 */ |
/* local entry for function progn 'compile5066 */ |
2686 |
|
|
2687 |
static object LI112() |
static object LI117() |
2688 |
|
|
2689 |
{ VMB112 VMS112 VMV112 |
{ VMB117 VMS117 VMV117 |
2690 |
goto TTL; |
goto TTL; |
2691 |
TTL:; |
TTL:; |
2692 |
(void)(sputprop(VV[150],VV[9],Cnil)); |
(void)(sputprop(VV[153],VV[9],Cnil)); |
2693 |
{object V218 = Cnil; |
{object V223 = Cnil; |
2694 |
VMR112(V218)} |
VMR117(V223)} |
2695 |
return Cnil; |
return Cnil; |
2696 |
} |
} |
2697 |
/* local entry for function progn 'compile4984 */ |
/* local entry for function progn 'compile5078 */ |
2698 |
|
|
2699 |
static object LI113() |
static object LI118() |
2700 |
|
|
2701 |
{ VMB113 VMS113 VMV113 |
{ VMB118 VMS118 VMV118 |
2702 |
goto TTL; |
goto TTL; |
2703 |
TTL:; |
TTL:; |
2704 |
{object V219 = Cnil; |
{object V224 = Cnil; |
2705 |
VMR113(V219)} |
VMR118(V224)} |
2706 |
return Cnil; |
return Cnil; |
2707 |
} |
} |
2708 |
/* function definition for Defclass UNBOUND-VARIABLE5004 */ |
/* function definition for Defclass UNBOUND-VARIABLE5098 */ |
2709 |
|
|
2710 |
static void L114() |
static void L119() |
2711 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2712 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM119; VC119 |
2713 |
vs_check; |
vs_check; |
2714 |
vs_top=sup; |
vs_top=sup; |
2715 |
goto TTL; |
goto TTL; |
2716 |
TTL:; |
TTL:; |
2717 |
base[0]= VV[155]; |
base[0]= VV[158]; |
2718 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2719 |
base[2]= VV[156]; |
base[2]= VV[159]; |
2720 |
base[3]= Cnil; |
base[3]= Cnil; |
2721 |
base[4]= Cnil; |
base[4]= Cnil; |
2722 |
base[5]= Cnil; |
base[5]= Cnil; |
2723 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
2724 |
return; |
return; |
2725 |
} |
} |
2726 |
/* local entry for function progn 'compile5020 */ |
/* local entry for function progn 'compile5114 */ |
2727 |
|
|
2728 |
static object LI115() |
static object LI120() |
2729 |
|
|
2730 |
{ VMB115 VMS115 VMV115 |
{ VMB120 VMS120 VMV120 |
2731 |
goto TTL; |
goto TTL; |
2732 |
TTL:; |
TTL:; |
2733 |
vs_base=vs_top; |
vs_base=vs_top; |
2734 |
(void) (*Lnk302)(); |
(void) (*Lnk309)(); |
2735 |
vs_top=sup; |
vs_top=sup; |
2736 |
{object V220 = Cnil; |
{object V225 = Cnil; |
2737 |
VMR115(V220)} |
VMR120(V225)} |
2738 |
base[0]=base[0]; |
base[0]=base[0]; |
2739 |
return Cnil; |
return Cnil; |
2740 |
} |
} |
2741 |
/* local entry for function progn 'compile5037 */ |
/* local entry for function progn 'compile5131 */ |
2742 |
|
|
2743 |
static object LI116() |
static object LI121() |
2744 |
|
|
2745 |
{ VMB116 VMS116 VMV116 |
{ VMB121 VMS121 VMV121 |
2746 |
goto TTL; |
goto TTL; |
2747 |
TTL:; |
TTL:; |
2748 |
base[0]= VV[157]; |
base[0]= VV[160]; |
2749 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
2750 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2751 |
Ladjoin(); |
Ladjoin(); |
2752 |
vs_top=sup; |
vs_top=sup; |
2753 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
2754 |
{object V222 = Cnil; |
{object V227 = Cnil; |
2755 |
VMR116(V222)} |
VMR121(V227)} |
2756 |
base[0]=base[0]; |
base[0]=base[0]; |
2757 |
return Cnil; |
return Cnil; |
2758 |
} |
} |
2759 |
/* local entry for function progn 'compile5061 */ |
/* local entry for function progn 'compile5155 */ |
2760 |
|
|
2761 |
static object LI117() |
static object LI122() |
2762 |
|
|
2763 |
{ VMB117 VMS117 VMV117 |
{ VMB122 VMS122 VMV122 |
2764 |
goto TTL; |
goto TTL; |
2765 |
TTL:; |
TTL:; |
2766 |
(void)(sputprop(VV[155],VV[9],Cnil)); |
(void)(sputprop(VV[158],VV[9],Cnil)); |
2767 |
{object V223 = Cnil; |
{object V228 = Cnil; |
2768 |
VMR117(V223)} |
VMR122(V228)} |
2769 |
return Cnil; |
return Cnil; |
2770 |
} |
} |
2771 |
/* local entry for function progn 'compile5077 */ |
/* local entry for function progn 'compile5171 */ |
2772 |
|
|
2773 |
static object LI118() |
static object LI123() |
2774 |
|
|
2775 |
{ VMB118 VMS118 VMV118 |
{ VMB123 VMS123 VMV123 |
2776 |
goto TTL; |
goto TTL; |
2777 |
TTL:; |
TTL:; |
2778 |
base[0]= VV[32]; |
base[0]= VV[32]; |
2779 |
base[1]= VV[158]; |
base[1]= VV[161]; |
2780 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2781 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
2782 |
vs_top=sup; |
vs_top=sup; |
2783 |
{object V224 = Cnil; |
{object V229 = Cnil; |
2784 |
VMR118(V224)} |
VMR123(V229)} |
2785 |
base[0]=base[0]; |
base[0]=base[0]; |
2786 |
return Cnil; |
return Cnil; |
2787 |
} |
} |
2788 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) */ |
2789 |
|
|
2790 |
static void L119() |
static void L124() |
2791 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2792 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM124; VC124 |
2793 |
vs_check; |
vs_check; |
2794 |
{object V225; |
{object V230; |
2795 |
register object V226; |
register object V231; |
2796 |
register object V227; |
register object V232; |
2797 |
register object V228; |
register object V233; |
2798 |
V225=(base[0]); |
V230=(base[0]); |
2799 |
V226=(base[1]); |
V231=(base[1]); |
2800 |
V227=(base[2]); |
V232=(base[2]); |
2801 |
V228=(base[3]); |
V233=(base[3]); |
2802 |
vs_top=sup; |
vs_top=sup; |
2803 |
goto TTL; |
goto TTL; |
2804 |
TTL:; |
TTL:; |
2805 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
2806 |
goto T759;} |
goto T772;} |
2807 |
if(((V226))==Cnil){ |
if(((V231))==Cnil){ |
2808 |
goto T762;} |
goto T775;} |
2809 |
base[4]= (V226); |
base[4]= (V231); |
2810 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2811 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2812 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2813 |
vs_top=sup; |
vs_top=sup; |
2814 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2815 |
goto T766;} |
goto T779;} |
2816 |
base[4]= STREF(object,(V226),0); |
base[4]= STREF(object,(V231),0); |
2817 |
base[5]= STREF(object,(V226),4); |
base[5]= STREF(object,(V231),4); |
2818 |
base[6]= STREF(object,(V226),8); |
base[6]= STREF(object,(V231),8); |
2819 |
base[7]= (V227); |
base[7]= (V232); |
2820 |
base[8]= (V228); |
base[8]= (V233); |
2821 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2822 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2823 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2824 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2825 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2826 |
return; |
return; |
2827 |
goto T766; |
goto T779; |
2828 |
T766:; |
T779:; |
2829 |
if(!(type_of((V226))==t_fixnum)){ |
if(!(type_of((V231))==t_fixnum)){ |
2830 |
goto T776;} |
goto T789;} |
2831 |
{object V231; |
{object V236; |
2832 |
if(type_of(V227)==t_structure){ |
if(type_of(V232)==t_structure){ |
2833 |
goto T782;} |
goto T795;} |
2834 |
goto T780; |
goto T793; |
2835 |
goto T782; |
goto T795; |
2836 |
T782:; |
T795:; |
2837 |
if(!(((V227)->str.str_def)==(VV[159]))){ |
if(!(((V232)->str.str_def)==(VV[162]))){ |
2838 |
goto T780;} |
goto T793;} |
2839 |
V231= STREF(object,(V227),4); |
V236= STREF(object,(V232),4); |
2840 |
goto T778; |
goto T791; |
2841 |
goto T780; |
goto T793; |
2842 |
T780:;{object V233; |
T793:;{object V238; |
2843 |
V233= (VV[38]->s.s_dbind); |
V238= (VV[38]->s.s_dbind); |
2844 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2845 |
base[5]= (V227); |
base[5]= (V232); |
2846 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2847 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
2848 |
vs_top=sup; |
vs_top=sup; |
2849 |
V234= vs_base[0]; |
V239= vs_base[0]; |
2850 |
if(!((V233)==(CMPcar(V234)))){ |
if(!((V238)==(CMPcar(V239)))){ |
2851 |
goto T785;}} |
goto T798;}} |
2852 |
V231= CMPcar(((V227))->cc.cc_turbo[12]); |
V236= CMPcar(((V232))->cc.cc_turbo[12]); |
2853 |
goto T778; |
goto T791; |
2854 |
goto T785; |
goto T798; |
2855 |
T785:; |
T798:; |
2856 |
V231= Cnil; |
V236= Cnil; |
|
goto T778; |
|
|
T778:; |
|
|
if(((V231))==Cnil){ |
|
|
goto T791;} |
|
|
base[4]= ((V231))->v.v_self[fix((V226))]= (V227); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
2857 |
goto T791; |
goto T791; |
2858 |
T791:; |
T791:; |
2859 |
|
if(((V236))==Cnil){ |
2860 |
|
goto T804;} |
2861 |
|
base[4]= ((V236))->v.v_self[fix((V231))]= (V232); |
2862 |
|
vs_top=(vs_base=base+4)+1; |
2863 |
|
return; |
2864 |
|
goto T804; |
2865 |
|
T804:; |
2866 |
base[4]= Cnil; |
base[4]= Cnil; |
2867 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2868 |
return;} |
return;} |
2869 |
goto T776; |
goto T789; |
2870 |
T776:; |
T789:; |
2871 |
{register object V236; |
{register object V241; |
2872 |
V236= V226; |
V241= V231; |
2873 |
base[4]= (V236); |
base[4]= (V241); |
2874 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2875 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2876 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
2877 |
vs_top=sup; |
vs_top=sup; |
2878 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2879 |
goto T794;} |
goto T807;} |
2880 |
{object V237; |
{object V242; |
2881 |
object V238; |
object V243; |
2882 |
register object V239; |
register object V244; |
2883 |
V237= STREF(object,(V226),0); |
V242= STREF(object,(V231),0); |
2884 |
V238= list(2,(V227),(V228)); |
V243= list(2,(V232),(V233)); |
2885 |
V239= STREF(object,(V226),4); |
V244= STREF(object,(V231),4); |
2886 |
if(((V239))==Cnil){ |
if(((V244))==Cnil){ |
2887 |
goto T802;} |
goto T815;} |
2888 |
if((CMPcdr((V239)))!=Cnil){ |
if((CMPcdr((V244)))!=Cnil){ |
2889 |
goto T802;} |
goto T815;} |
2890 |
base[4]= (V238); |
base[4]= (V243); |
2891 |
base[5]= CMPcar((V239)); |
base[5]= CMPcar((V244)); |
2892 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2893 |
{object _funobj = (V237);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V242);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2894 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2895 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2896 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2897 |
return; |
return; |
2898 |
goto T802; |
goto T815; |
2899 |
T802:; |
T815:; |
2900 |
base[4]= (V237); |
base[4]= (V242); |
2901 |
base[5]= (V238); |
base[5]= (V243); |
2902 |
{object V240; |
{object V245; |
2903 |
V240= (V239); |
V245= (V244); |
2904 |
vs_top=base+6; |
vs_top=base+6; |
2905 |
while(V240!=Cnil) |
while(V245!=Cnil) |
2906 |
{vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;} |
{vs_push((V245)->c.c_car);V245=(V245)->c.c_cdr;} |
2907 |
vs_base=base+5;} |
vs_base=base+5;} |
2908 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2909 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2910 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2911 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2912 |
return;} |
return;} |
2913 |
goto T794; |
goto T807; |
2914 |
T794:; |
T807:; |
2915 |
base[4]= (V236); |
base[4]= (V241); |
2916 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2917 |
Lfunctionp(); |
Lfunctionp(); |
2918 |
vs_top=sup; |
vs_top=sup; |
2919 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2920 |
goto T812;} |
goto T825;} |
2921 |
base[4]= (V227); |
base[4]= (V232); |
2922 |
base[5]= (V228); |
base[5]= (V233); |
2923 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2924 |
{object _funobj = (V226);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2925 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2926 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2927 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2928 |
return; |
return; |
2929 |
goto T812; |
goto T825; |
2930 |
T812:; |
T825:; |
2931 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2932 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2933 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2934 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2935 |
base[8]= V226; |
base[8]= V231; |
2936 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2937 |
base[10]= VV[160]; |
base[10]= VV[163]; |
2938 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2939 |
base[12]= VV[161]; |
base[12]= VV[164]; |
2940 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2941 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2942 |
return;} |
return;} |
2943 |
goto T762; |
goto T775; |
2944 |
T762:; |
T775:; |
2945 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2946 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2947 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
2948 |
return; |
return; |
2949 |
goto T759; |
goto T772; |
2950 |
T759:; |
T772:; |
2951 |
base[4]= V228; |
base[4]= V233; |
2952 |
base[5]= VV[162]; |
base[5]= VV[165]; |
2953 |
base[7]= V227; |
base[7]= V232; |
2954 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2955 |
(void) (*Lnk303)(Lclptr303); |
(void) (*Lnk310)(Lclptr310); |
2956 |
vs_top=sup; |
vs_top=sup; |
2957 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2958 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2960 |
return; |
return; |
2961 |
} |
} |
2962 |
} |
} |
2963 |
/* local entry for function progn 'compile5274 */ |
/* local entry for function progn 'compile5368 */ |
2964 |
|
|
2965 |
static object LI120() |
static object LI125() |
2966 |
|
|
2967 |
{ VMB120 VMS120 VMV120 |
{ VMB125 VMS125 VMV125 |
2968 |
goto TTL; |
goto TTL; |
2969 |
TTL:; |
TTL:; |
2970 |
base[0]= VV[48]; |
base[0]= VV[48]; |
2971 |
base[1]= VV[32]; |
base[1]= VV[32]; |
2972 |
base[2]= Cnil; |
base[2]= Cnil; |
2973 |
base[3]= VV[163]; |
base[3]= VV[166]; |
2974 |
base[4]= VV[164]; |
base[4]= VV[167]; |
2975 |
V243= (VV[304]->s.s_gfdef); |
V248= (VV[311]->s.s_gfdef); |
2976 |
base[5]= listA(3,VV[51],V243,VV[165]); |
base[5]= listA(3,VV[51],V248,VV[168]); |
2977 |
base[6]= Cnil; |
base[6]= Cnil; |
2978 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2979 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
2980 |
vs_top=sup; |
vs_top=sup; |
2981 |
{object V244 = Cnil; |
{object V249 = Cnil; |
2982 |
VMR120(V244)} |
VMR125(V249)} |
2983 |
base[0]=base[0]; |
base[0]=base[0]; |
2984 |
return Cnil; |
return Cnil; |
2985 |
} |
} |
2986 |
/* local entry for function progn 'compile5282 */ |
/* local entry for function progn 'compile5376 */ |
2987 |
|
|
2988 |
static object LI121() |
static object LI126() |
2989 |
|
|
2990 |
{ VMB121 VMS121 VMV121 |
{ VMB126 VMS126 VMV126 |
2991 |
goto TTL; |
goto TTL; |
2992 |
TTL:; |
TTL:; |
2993 |
{object V245 = Cnil; |
{object V250 = Cnil; |
2994 |
VMR121(V245)} |
VMR126(V250)} |
2995 |
return Cnil; |
return Cnil; |
2996 |
} |
} |
2997 |
/* function definition for Defclass UNDEFINED-FUNCTION5302 */ |
/* function definition for Defclass UNDEFINED-FUNCTION5396 */ |
2998 |
|
|
2999 |
static void L122() |
static void L127() |
3000 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3001 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM127; VC127 |
3002 |
vs_check; |
vs_check; |
3003 |
vs_top=sup; |
vs_top=sup; |
3004 |
goto TTL; |
goto TTL; |
3005 |
TTL:; |
TTL:; |
3006 |
base[0]= VV[166]; |
base[0]= VV[169]; |
3007 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3008 |
base[2]= VV[167]; |
base[2]= VV[170]; |
3009 |
base[3]= Cnil; |
base[3]= Cnil; |
3010 |
base[4]= Cnil; |
base[4]= Cnil; |
3011 |
base[5]= Cnil; |
base[5]= Cnil; |
3012 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3013 |
return; |
return; |
3014 |
} |
} |
3015 |
/* local entry for function progn 'compile5318 */ |
/* local entry for function progn 'compile5412 */ |
3016 |
|
|
3017 |
static object LI123() |
static object LI128() |
3018 |
|
|
3019 |
{ VMB123 VMS123 VMV123 |
{ VMB128 VMS128 VMV128 |
3020 |
goto TTL; |
goto TTL; |
3021 |
TTL:; |
TTL:; |
3022 |
vs_base=vs_top; |
vs_base=vs_top; |
3023 |
(void) (*Lnk305)(); |
(void) (*Lnk312)(); |
3024 |
vs_top=sup; |
vs_top=sup; |
3025 |
{object V246 = Cnil; |
{object V251 = Cnil; |
3026 |
VMR123(V246)} |
VMR128(V251)} |
3027 |
base[0]=base[0]; |
base[0]=base[0]; |
3028 |
return Cnil; |
return Cnil; |
3029 |
} |
} |
3030 |
/* local entry for function progn 'compile5335 */ |
/* local entry for function progn 'compile5429 */ |
3031 |
|
|
3032 |
static object LI124() |
static object LI129() |
3033 |
|
|
3034 |
{ VMB124 VMS124 VMV124 |
{ VMB129 VMS129 VMV129 |
3035 |
goto TTL; |
goto TTL; |
3036 |
TTL:; |
TTL:; |
3037 |
base[0]= VV[168]; |
base[0]= VV[171]; |
3038 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
3039 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3040 |
Ladjoin(); |
Ladjoin(); |
3041 |
vs_top=sup; |
vs_top=sup; |
3042 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
3043 |
{object V248 = Cnil; |
{object V253 = Cnil; |
3044 |
VMR124(V248)} |
VMR129(V253)} |
3045 |
base[0]=base[0]; |
base[0]=base[0]; |
3046 |
return Cnil; |
return Cnil; |
3047 |
} |
} |
3048 |
/* local entry for function progn 'compile5359 */ |
/* local entry for function progn 'compile5453 */ |
3049 |
|
|
3050 |
static object LI125() |
static object LI130() |
3051 |
|
|
3052 |
{ VMB125 VMS125 VMV125 |
{ VMB130 VMS130 VMV130 |
3053 |
goto TTL; |
goto TTL; |
3054 |
TTL:; |
TTL:; |
3055 |
(void)(sputprop(VV[166],VV[9],Cnil)); |
(void)(sputprop(VV[169],VV[9],Cnil)); |
3056 |
{object V249 = Cnil; |
{object V254 = Cnil; |
3057 |
VMR125(V249)} |
VMR130(V254)} |
3058 |
return Cnil; |
return Cnil; |
3059 |
} |
} |
3060 |
/* local entry for function progn 'compile5375 */ |
/* local entry for function progn 'compile5469 */ |
3061 |
|
|
3062 |
static object LI126() |
static object LI131() |
3063 |
|
|
3064 |
{ VMB126 VMS126 VMV126 |
{ VMB131 VMS131 VMV131 |
3065 |
goto TTL; |
goto TTL; |
3066 |
TTL:; |
TTL:; |
3067 |
base[0]= VV[32]; |
base[0]= VV[32]; |
3068 |
base[1]= VV[169]; |
base[1]= VV[172]; |
3069 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3070 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
3071 |
vs_top=sup; |
vs_top=sup; |
3072 |
{object V250 = Cnil; |
{object V255 = Cnil; |
3073 |
VMR126(V250)} |
VMR131(V255)} |
3074 |
base[0]=base[0]; |
base[0]=base[0]; |
3075 |
return Cnil; |
return Cnil; |
3076 |
} |
} |
3077 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T)) */ |
3078 |
|
|
3079 |
static void L127() |
static void L132() |
3080 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3081 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM132; VC132 |
3082 |
vs_check; |
vs_check; |
3083 |
{object V251; |
{object V256; |
3084 |
register object V252; |
register object V257; |
3085 |
register object V253; |
register object V258; |
3086 |
register object V254; |
register object V259; |
3087 |
V251=(base[0]); |
V256=(base[0]); |
3088 |
V252=(base[1]); |
V257=(base[1]); |
3089 |
V253=(base[2]); |
V258=(base[2]); |
3090 |
V254=(base[3]); |
V259=(base[3]); |
3091 |
vs_top=sup; |
vs_top=sup; |
3092 |
goto TTL; |
goto TTL; |
3093 |
TTL:; |
TTL:; |
3094 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3095 |
goto T860;} |
goto T873;} |
3096 |
if(((V252))==Cnil){ |
if(((V257))==Cnil){ |
3097 |
goto T863;} |
goto T876;} |
3098 |
base[4]= (V252); |
base[4]= (V257); |
3099 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3100 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3101 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
3102 |
vs_top=sup; |
vs_top=sup; |
3103 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3104 |
goto T867;} |
goto T880;} |
3105 |
base[4]= STREF(object,(V252),0); |
base[4]= STREF(object,(V257),0); |
3106 |
base[5]= STREF(object,(V252),4); |
base[5]= STREF(object,(V257),4); |
3107 |
base[6]= STREF(object,(V252),8); |
base[6]= STREF(object,(V257),8); |
3108 |
base[7]= (V253); |
base[7]= (V258); |
3109 |
base[8]= (V254); |
base[8]= (V259); |
3110 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3111 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3112 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3113 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3114 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3115 |
return; |
return; |
3116 |
goto T867; |
goto T880; |
3117 |
T867:; |
T880:; |
3118 |
if(!(type_of((V252))==t_fixnum)){ |
if(!(type_of((V257))==t_fixnum)){ |
3119 |
goto T877;} |
goto T890;} |
3120 |
{object V257; |
{object V262; |
3121 |
if(type_of(V253)==t_structure){ |
if(type_of(V258)==t_structure){ |
3122 |
goto T883;} |
goto T896;} |
3123 |
goto T881; |
goto T894; |
3124 |
goto T883; |
goto T896; |
3125 |
T883:; |
T896:; |
3126 |
if(!(((V253)->str.str_def)==(VV[170]))){ |
if(!(((V258)->str.str_def)==(VV[173]))){ |
3127 |
goto T881;} |
goto T894;} |
3128 |
V257= STREF(object,(V253),4); |
V262= STREF(object,(V258),4); |
3129 |
goto T879; |
goto T892; |
3130 |
goto T881; |
goto T894; |
3131 |
T881:;{object V259; |
T894:;{object V264; |
3132 |
V259= (VV[38]->s.s_dbind); |
V264= (VV[38]->s.s_dbind); |
3133 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3134 |
base[5]= (V253); |
base[5]= (V258); |
3135 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3136 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
3137 |
vs_top=sup; |
vs_top=sup; |
3138 |
V260= vs_base[0]; |
V265= vs_base[0]; |
3139 |
if(!((V259)==(CMPcar(V260)))){ |
if(!((V264)==(CMPcar(V265)))){ |
3140 |
goto T886;}} |
goto T899;}} |
3141 |
V257= CMPcar(((V253))->cc.cc_turbo[12]); |
V262= CMPcar(((V258))->cc.cc_turbo[12]); |
3142 |
goto T879; |
goto T892; |
3143 |
goto T886; |
goto T899; |
3144 |
T886:; |
T899:; |
3145 |
V257= Cnil; |
V262= Cnil; |
|
goto T879; |
|
|
T879:; |
|
|
if(((V257))==Cnil){ |
|
|
goto T892;} |
|
|
base[4]= ((V257))->v.v_self[fix((V252))]= (V253); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
3146 |
goto T892; |
goto T892; |
3147 |
T892:; |
T892:; |
3148 |
|
if(((V262))==Cnil){ |
3149 |
|
goto T905;} |
3150 |
|
base[4]= ((V262))->v.v_self[fix((V257))]= (V258); |
3151 |
|
vs_top=(vs_base=base+4)+1; |
3152 |
|
return; |
3153 |
|
goto T905; |
3154 |
|
T905:; |
3155 |
base[4]= Cnil; |
base[4]= Cnil; |
3156 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3157 |
return;} |
return;} |
3158 |
goto T877; |
goto T890; |
3159 |
T877:; |
T890:; |
3160 |
{register object V262; |
{register object V267; |
3161 |
V262= V252; |
V267= V257; |
3162 |
base[4]= (V262); |
base[4]= (V267); |
3163 |
base[5]= VV[39]; |
base[5]= VV[39]; |
3164 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3165 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
3166 |
vs_top=sup; |
vs_top=sup; |
3167 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3168 |
goto T895;} |
goto T908;} |
3169 |
{object V263; |
{object V268; |
3170 |
object V264; |
object V269; |
3171 |
register object V265; |
register object V270; |
3172 |
V263= STREF(object,(V252),0); |
V268= STREF(object,(V257),0); |
3173 |
V264= list(2,(V253),(V254)); |
V269= list(2,(V258),(V259)); |
3174 |
V265= STREF(object,(V252),4); |
V270= STREF(object,(V257),4); |
3175 |
if(((V265))==Cnil){ |
if(((V270))==Cnil){ |
3176 |
goto T903;} |
goto T916;} |
3177 |
if((CMPcdr((V265)))!=Cnil){ |
if((CMPcdr((V270)))!=Cnil){ |
3178 |
goto T903;} |
goto T916;} |
3179 |
base[4]= (V264); |
base[4]= (V269); |
3180 |
base[5]= CMPcar((V265)); |
base[5]= CMPcar((V270)); |
3181 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3182 |
{object _funobj = (V263);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V268);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3183 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3184 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3185 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3186 |
return; |
return; |
3187 |
goto T903; |
goto T916; |
3188 |
T903:; |
T916:; |
3189 |
base[4]= (V263); |
base[4]= (V268); |
3190 |
base[5]= (V264); |
base[5]= (V269); |
3191 |
{object V266; |
{object V271; |
3192 |
V266= (V265); |
V271= (V270); |
3193 |
vs_top=base+6; |
vs_top=base+6; |
3194 |
while(V266!=Cnil) |
while(V271!=Cnil) |
3195 |
{vs_push((V266)->c.c_car);V266=(V266)->c.c_cdr;} |
{vs_push((V271)->c.c_car);V271=(V271)->c.c_cdr;} |
3196 |
vs_base=base+5;} |
vs_base=base+5;} |
3197 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3198 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3199 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3200 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3201 |
return;} |
return;} |
3202 |
goto T895; |
goto T908; |
3203 |
T895:; |
T908:; |
3204 |
base[4]= (V262); |
base[4]= (V267); |
3205 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3206 |
Lfunctionp(); |
Lfunctionp(); |
3207 |
vs_top=sup; |
vs_top=sup; |
3208 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3209 |
goto T913;} |
goto T926;} |
3210 |
base[4]= (V253); |
base[4]= (V258); |
3211 |
base[5]= (V254); |
base[5]= (V259); |
3212 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3213 |
{object _funobj = (V252);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V257);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3214 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3215 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3216 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3217 |
return; |
return; |
3218 |
goto T913; |
goto T926; |
3219 |
T913:; |
T926:; |
3220 |
base[4]= VV[40]; |
base[4]= VV[40]; |
3221 |
base[5]= VV[18]; |
base[5]= VV[18]; |
3222 |
base[6]= VV[41]; |
base[6]= VV[41]; |
3223 |
base[7]= VV[42]; |
base[7]= VV[42]; |
3224 |
base[8]= V252; |
base[8]= V257; |
3225 |
base[9]= VV[43]; |
base[9]= VV[43]; |
3226 |
base[10]= VV[171]; |
base[10]= VV[174]; |
3227 |
base[11]= VV[45]; |
base[11]= VV[45]; |
3228 |
base[12]= VV[172]; |
base[12]= VV[175]; |
3229 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
3230 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
3231 |
return;} |
return;} |
3232 |
goto T863; |
goto T876; |
3233 |
T863:; |
T876:; |
3234 |
base[4]= VV[47]; |
base[4]= VV[47]; |
3235 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3236 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
3237 |
return; |
return; |
3238 |
goto T860; |
goto T873; |
3239 |
T860:; |
T873:; |
3240 |
base[4]= V254; |
base[4]= V259; |
3241 |
base[5]= VV[173]; |
base[5]= VV[176]; |
3242 |
base[7]= V253; |
base[7]= V258; |
3243 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3244 |
(void) (*Lnk303)(Lclptr303); |
(void) (*Lnk310)(Lclptr310); |
3245 |
vs_top=sup; |
vs_top=sup; |
3246 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
3247 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3249 |
return; |
return; |
3250 |
} |
} |
3251 |
} |
} |
3252 |
/* local entry for function progn 'compile5572 */ |
/* local entry for function progn 'compile5666 */ |
3253 |
|
|
3254 |
static object LI128() |
static object LI133() |
3255 |
|
|
3256 |
{ VMB128 VMS128 VMV128 |
{ VMB133 VMS133 VMV133 |
3257 |
goto TTL; |
goto TTL; |
3258 |
TTL:; |
TTL:; |
3259 |
base[0]= VV[48]; |
base[0]= VV[48]; |
3260 |
base[1]= VV[32]; |
base[1]= VV[32]; |
3261 |
base[2]= Cnil; |
base[2]= Cnil; |
3262 |
base[3]= VV[174]; |
base[3]= VV[177]; |
3263 |
base[4]= VV[175]; |
base[4]= VV[178]; |
3264 |
V269= (VV[306]->s.s_gfdef); |
V274= (VV[313]->s.s_gfdef); |
3265 |
base[5]= listA(3,VV[51],V269,VV[176]); |
base[5]= listA(3,VV[51],V274,VV[179]); |
3266 |
base[6]= Cnil; |
base[6]= Cnil; |
3267 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3268 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
|
vs_top=sup; |
|
|
{object V270 = Cnil; |
|
|
VMR128(V270)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile5580 */ |
|
|
|
|
|
static object LI129() |
|
|
|
|
|
{ VMB129 VMS129 VMV129 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V271 = Cnil; |
|
|
VMR129(V271)} |
|
|
return Cnil; |
|
|
} |
|
|
/* function definition for Defclass ARITHMETIC-ERROR5600 */ |
|
|
|
|
|
static void L130() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM130; VC130 |
|
|
vs_check; |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[177]; |
|
|
base[1]= VV[5]; |
|
|
base[2]= VV[178]; |
|
|
V272= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V272,Cnil); |
|
|
base[4]= Cnil; |
|
|
base[5]= Cnil; |
|
|
symlispcall(VV[261],base+0,6); |
|
|
return; |
|
|
} |
|
|
/* local entry for function progn 'compile5617 */ |
|
|
|
|
|
static object LI131() |
|
|
|
|
|
{ VMB131 VMS131 VMV131 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk307)(); |
|
|
vs_top=sup; |
|
|
{object V273 = Cnil; |
|
|
VMR131(V273)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile5634 */ |
|
|
|
|
|
static object LI132() |
|
|
|
|
|
{ VMB132 VMS132 VMV132 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[182]; |
|
|
base[1]= (VV[8]->s.s_dbind); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
Ladjoin(); |
|
3269 |
vs_top=sup; |
vs_top=sup; |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
|
3270 |
{object V275 = Cnil; |
{object V275 = Cnil; |
3271 |
VMR132(V275)} |
VMR133(V275)} |
3272 |
base[0]=base[0]; |
base[0]=base[0]; |
3273 |
return Cnil; |
return Cnil; |
3274 |
} |
} |
3275 |
/* local entry for function progn 'compile5658 */ |
/* local entry for function progn 'compile5674 */ |
|
|
|
|
static object LI133() |
|
|
|
|
|
{ VMB133 VMS133 VMV133 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
(void)(sputprop(VV[177],VV[9],Cnil)); |
|
|
{object V276 = Cnil; |
|
|
VMR133(V276)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile5670 */ |
|
3276 |
|
|
3277 |
static object LI134() |
static object LI134() |
3278 |
|
|
3279 |
{ VMB134 VMS134 VMV134 |
{ VMB134 VMS134 VMV134 |
3280 |
goto TTL; |
goto TTL; |
3281 |
TTL:; |
TTL:; |
3282 |
{object V277 = Cnil; |
{object V276 = Cnil; |
3283 |
VMR134(V277)} |
VMR134(V276)} |
3284 |
return Cnil; |
return Cnil; |
3285 |
} |
} |
3286 |
/* function definition for Defclass DIVISION-BY-ZERO5690 */ |
/* function definition for Defclass ARITHMETIC-ERROR5694 */ |
3287 |
|
|
3288 |
static void L135() |
static void L135() |
3289 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3292 |
vs_top=sup; |
vs_top=sup; |
3293 |
goto TTL; |
goto TTL; |
3294 |
TTL:; |
TTL:; |
3295 |
base[0]= VV[183]; |
base[0]= VV[180]; |
3296 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3297 |
base[2]= VV[184]; |
base[2]= VV[181]; |
3298 |
base[3]= Cnil; |
V277= listA(9,VV[18],VV[182],VV[20],VV[183],VV[22],Cnil,VV[23],VV[184],Cnil); |
3299 |
|
base[3]= make_cons(/* INLINE-ARGS */V277,Cnil); |
3300 |
base[4]= Cnil; |
base[4]= Cnil; |
3301 |
base[5]= Cnil; |
base[5]= Cnil; |
3302 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3303 |
return; |
return; |
3304 |
} |
} |
3305 |
/* local entry for function progn 'compile5706 */ |
/* local entry for function progn 'compile5711 */ |
3306 |
|
|
3307 |
static object LI136() |
static object LI136() |
3308 |
|
|
3310 |
goto TTL; |
goto TTL; |
3311 |
TTL:; |
TTL:; |
3312 |
vs_base=vs_top; |
vs_base=vs_top; |
3313 |
(void) (*Lnk308)(); |
(void) (*Lnk314)(); |
3314 |
vs_top=sup; |
vs_top=sup; |
3315 |
{object V278 = Cnil; |
{object V278 = Cnil; |
3316 |
VMR136(V278)} |
VMR136(V278)} |
3317 |
base[0]=base[0]; |
base[0]=base[0]; |
3318 |
return Cnil; |
return Cnil; |
3319 |
} |
} |
3320 |
/* local entry for function progn 'compile5723 */ |
/* local entry for function progn 'compile5728 */ |
3321 |
|
|
3322 |
static object LI137() |
static object LI137() |
3323 |
|
|
3335 |
base[0]=base[0]; |
base[0]=base[0]; |
3336 |
return Cnil; |
return Cnil; |
3337 |
} |
} |
3338 |
/* local entry for function progn 'compile5747 */ |
/* local entry for function progn 'compile5752 */ |
3339 |
|
|
3340 |
static object LI138() |
static object LI138() |
3341 |
|
|
3342 |
{ VMB138 VMS138 VMV138 |
{ VMB138 VMS138 VMV138 |
3343 |
goto TTL; |
goto TTL; |
3344 |
TTL:; |
TTL:; |
3345 |
(void)(sputprop(VV[183],VV[9],Cnil)); |
(void)(sputprop(VV[180],VV[9],Cnil)); |
3346 |
{object V281 = Cnil; |
{object V281 = Cnil; |
3347 |
VMR138(V281)} |
VMR138(V281)} |
3348 |
return Cnil; |
return Cnil; |
3349 |
} |
} |
3350 |
/* local entry for function progn 'compile5759 */ |
/* local entry for function progn 'compile5764 */ |
3351 |
|
|
3352 |
static object LI139() |
static object LI139() |
3353 |
|
|
3358 |
VMR139(V282)} |
VMR139(V282)} |
3359 |
return Cnil; |
return Cnil; |
3360 |
} |
} |
3361 |
/* function definition for Defclass FLOATING-POINT-OVERFLOW5779 */ |
/* function definition for Defclass DIVISION-BY-ZERO5784 */ |
3362 |
|
|
3363 |
static void L140() |
static void L140() |
3364 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3373 |
base[3]= Cnil; |
base[3]= Cnil; |
3374 |
base[4]= Cnil; |
base[4]= Cnil; |
3375 |
base[5]= Cnil; |
base[5]= Cnil; |
3376 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3377 |
return; |
return; |
3378 |
} |
} |
3379 |
/* local entry for function progn 'compile5795 */ |
/* local entry for function progn 'compile5800 */ |
3380 |
|
|
3381 |
static object LI141() |
static object LI141() |
3382 |
|
|
3384 |
goto TTL; |
goto TTL; |
3385 |
TTL:; |
TTL:; |
3386 |
vs_base=vs_top; |
vs_base=vs_top; |
3387 |
(void) (*Lnk309)(); |
(void) (*Lnk315)(); |
3388 |
vs_top=sup; |
vs_top=sup; |
3389 |
{object V283 = Cnil; |
{object V283 = Cnil; |
3390 |
VMR141(V283)} |
VMR141(V283)} |
3391 |
base[0]=base[0]; |
base[0]=base[0]; |
3392 |
return Cnil; |
return Cnil; |
3393 |
} |
} |
3394 |
/* local entry for function progn 'compile5812 */ |
/* local entry for function progn 'compile5817 */ |
3395 |
|
|
3396 |
static object LI142() |
static object LI142() |
3397 |
|
|
3409 |
base[0]=base[0]; |
base[0]=base[0]; |
3410 |
return Cnil; |
return Cnil; |
3411 |
} |
} |
3412 |
/* local entry for function progn 'compile5836 */ |
/* local entry for function progn 'compile5841 */ |
3413 |
|
|
3414 |
static object LI143() |
static object LI143() |
3415 |
|
|
3421 |
VMR143(V286)} |
VMR143(V286)} |
3422 |
return Cnil; |
return Cnil; |
3423 |
} |
} |
3424 |
/* local entry for function progn 'compile5848 */ |
/* local entry for function progn 'compile5853 */ |
3425 |
|
|
3426 |
static object LI144() |
static object LI144() |
3427 |
|
|
3432 |
VMR144(V287)} |
VMR144(V287)} |
3433 |
return Cnil; |
return Cnil; |
3434 |
} |
} |
3435 |
/* function definition for Defclass FLOATING-POINT-UNDERFLOW5868 */ |
/* function definition for Defclass FLOATING-POINT-OVERFLOW5873 */ |
3436 |
|
|
3437 |
static void L145() |
static void L145() |
3438 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3447 |
base[3]= Cnil; |
base[3]= Cnil; |
3448 |
base[4]= Cnil; |
base[4]= Cnil; |
3449 |
base[5]= Cnil; |
base[5]= Cnil; |
3450 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3451 |
return; |
return; |
3452 |
} |
} |
3453 |
/* local entry for function progn 'compile5884 */ |
/* local entry for function progn 'compile5889 */ |
3454 |
|
|
3455 |
static object LI146() |
static object LI146() |
3456 |
|
|
3458 |
goto TTL; |
goto TTL; |
3459 |
TTL:; |
TTL:; |
3460 |
vs_base=vs_top; |
vs_base=vs_top; |
3461 |
(void) (*Lnk310)(); |
(void) (*Lnk316)(); |
3462 |
vs_top=sup; |
vs_top=sup; |
3463 |
{object V288 = Cnil; |
{object V288 = Cnil; |
3464 |
VMR146(V288)} |
VMR146(V288)} |
3465 |
base[0]=base[0]; |
base[0]=base[0]; |
3466 |
return Cnil; |
return Cnil; |
3467 |
} |
} |
3468 |
/* local entry for function progn 'compile5901 */ |
/* local entry for function progn 'compile5906 */ |
3469 |
|
|
3470 |
static object LI147() |
static object LI147() |
3471 |
|
|
3483 |
base[0]=base[0]; |
base[0]=base[0]; |
3484 |
return Cnil; |
return Cnil; |
3485 |
} |
} |
3486 |
/* local entry for function progn 'compile5925 */ |
/* local entry for function progn 'compile5930 */ |
3487 |
|
|
3488 |
static object LI148() |
static object LI148() |
3489 |
|
|
3495 |
VMR148(V291)} |
VMR148(V291)} |
3496 |
return Cnil; |
return Cnil; |
3497 |
} |
} |
3498 |
/* local entry for function progn 'compile5937 */ |
/* local entry for function progn 'compile5942 */ |
3499 |
|
|
3500 |
static object LI149() |
static object LI149() |
3501 |
|
|
3506 |
VMR149(V292)} |
VMR149(V292)} |
3507 |
return Cnil; |
return Cnil; |
3508 |
} |
} |
3509 |
/* function definition for Defclass ABORT-FAILURE5957 */ |
/* function definition for Defclass FLOATING-POINT-UNDERFLOW5962 */ |
3510 |
|
|
3511 |
static void L150() |
static void L150() |
3512 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3521 |
base[3]= Cnil; |
base[3]= Cnil; |
3522 |
base[4]= Cnil; |
base[4]= Cnil; |
3523 |
base[5]= Cnil; |
base[5]= Cnil; |
3524 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3525 |
return; |
return; |
3526 |
} |
} |
3527 |
/* local entry for function progn 'compile5973 */ |
/* local entry for function progn 'compile5978 */ |
3528 |
|
|
3529 |
static object LI151() |
static object LI151() |
3530 |
|
|
3532 |
goto TTL; |
goto TTL; |
3533 |
TTL:; |
TTL:; |
3534 |
vs_base=vs_top; |
vs_base=vs_top; |
3535 |
(void) (*Lnk311)(); |
(void) (*Lnk317)(); |
3536 |
vs_top=sup; |
vs_top=sup; |
3537 |
{object V293 = Cnil; |
{object V293 = Cnil; |
3538 |
VMR151(V293)} |
VMR151(V293)} |
3539 |
base[0]=base[0]; |
base[0]=base[0]; |
3540 |
return Cnil; |
return Cnil; |
3541 |
} |
} |
3542 |
/* local entry for function progn 'compile5990 */ |
/* local entry for function progn 'compile5995 */ |
3543 |
|
|
3544 |
static object LI152() |
static object LI152() |
3545 |
|
|
3557 |
base[0]=base[0]; |
base[0]=base[0]; |
3558 |
return Cnil; |
return Cnil; |
3559 |
} |
} |
3560 |
/* local entry for function progn 'compile6014 */ |
/* local entry for function progn 'compile6019 */ |
3561 |
|
|
3562 |
static object LI153() |
static object LI153() |
3563 |
|
|
3569 |
VMR153(V296)} |
VMR153(V296)} |
3570 |
return Cnil; |
return Cnil; |
3571 |
} |
} |
3572 |
/* local entry for function progn 'compile6030 */ |
/* local entry for function progn 'compile6031 */ |
3573 |
|
|
3574 |
static object LI154() |
static object LI154() |
3575 |
|
|
3576 |
{ VMB154 VMS154 VMV154 |
{ VMB154 VMS154 VMV154 |
3577 |
goto TTL; |
goto TTL; |
3578 |
TTL:; |
TTL:; |
3579 |
|
{object V297 = Cnil; |
3580 |
|
VMR154(V297)} |
3581 |
|
return Cnil; |
3582 |
|
} |
3583 |
|
/* function definition for Defclass ABORT-FAILURE6051 */ |
3584 |
|
|
3585 |
|
static void L155() |
3586 |
|
{register object *base=vs_base; |
3587 |
|
register object *sup=base+VM155; VC155 |
3588 |
|
vs_check; |
3589 |
|
vs_top=sup; |
3590 |
|
goto TTL; |
3591 |
|
TTL:; |
3592 |
|
base[0]= VV[195]; |
3593 |
|
base[1]= VV[5]; |
3594 |
|
base[2]= VV[196]; |
3595 |
|
base[3]= Cnil; |
3596 |
|
base[4]= Cnil; |
3597 |
|
base[5]= Cnil; |
3598 |
|
symlispcall(VV[267],base+0,6); |
3599 |
|
return; |
3600 |
|
} |
3601 |
|
/* local entry for function progn 'compile6067 */ |
3602 |
|
|
3603 |
|
static object LI156() |
3604 |
|
|
3605 |
|
{ VMB156 VMS156 VMV156 |
3606 |
|
goto TTL; |
3607 |
|
TTL:; |
3608 |
|
vs_base=vs_top; |
3609 |
|
(void) (*Lnk318)(); |
3610 |
|
vs_top=sup; |
3611 |
|
{object V298 = Cnil; |
3612 |
|
VMR156(V298)} |
3613 |
|
base[0]=base[0]; |
3614 |
|
return Cnil; |
3615 |
|
} |
3616 |
|
/* local entry for function progn 'compile6084 */ |
3617 |
|
|
3618 |
|
static object LI157() |
3619 |
|
|
3620 |
|
{ VMB157 VMS157 VMV157 |
3621 |
|
goto TTL; |
3622 |
|
TTL:; |
3623 |
|
base[0]= VV[197]; |
3624 |
|
base[1]= (VV[8]->s.s_dbind); |
3625 |
|
vs_top=(vs_base=base+0)+2; |
3626 |
|
Ladjoin(); |
3627 |
|
vs_top=sup; |
3628 |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
3629 |
|
{object V300 = Cnil; |
3630 |
|
VMR157(V300)} |
3631 |
|
base[0]=base[0]; |
3632 |
|
return Cnil; |
3633 |
|
} |
3634 |
|
/* local entry for function progn 'compile6108 */ |
3635 |
|
|
3636 |
|
static object LI158() |
3637 |
|
|
3638 |
|
{ VMB158 VMS158 VMV158 |
3639 |
|
goto TTL; |
3640 |
|
TTL:; |
3641 |
|
(void)(sputprop(VV[195],VV[9],Cnil)); |
3642 |
|
{object V301 = Cnil; |
3643 |
|
VMR158(V301)} |
3644 |
|
return Cnil; |
3645 |
|
} |
3646 |
|
/* local entry for function progn 'compile6124 */ |
3647 |
|
|
3648 |
|
static object LI159() |
3649 |
|
|
3650 |
|
{ VMB159 VMS159 VMV159 |
3651 |
|
goto TTL; |
3652 |
|
TTL:; |
3653 |
base[0]= VV[32]; |
base[0]= VV[32]; |
3654 |
base[1]= VV[195]; |
base[1]= VV[198]; |
3655 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3656 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
3657 |
vs_top=sup; |
vs_top=sup; |
3658 |
{object V297 = Cnil; |
{object V302 = Cnil; |
3659 |
VMR154(V297)} |
VMR159(V302)} |
3660 |
base[0]=base[0]; |
base[0]=base[0]; |
3661 |
return Cnil; |
return Cnil; |
3662 |
} |
} |
3663 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T)) */ |
3664 |
|
|
3665 |
static void L155() |
static void L160() |
3666 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3667 |
register object *sup=base+VM155; VC155 |
register object *sup=base+VM160; VC160 |
3668 |
vs_check; |
vs_check; |
3669 |
{object V298; |
{object V303; |
3670 |
register object V299; |
register object V304; |
3671 |
register object V300; |
register object V305; |
3672 |
register object V301; |
register object V306; |
3673 |
V298=(base[0]); |
V303=(base[0]); |
3674 |
V299=(base[1]); |
V304=(base[1]); |
3675 |
V300=(base[2]); |
V305=(base[2]); |
3676 |
V301=(base[3]); |
V306=(base[3]); |
3677 |
vs_top=sup; |
vs_top=sup; |
3678 |
goto TTL; |
goto TTL; |
3679 |
TTL:; |
TTL:; |
3680 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3681 |
goto T1013;} |
goto T1026;} |
3682 |
if(((V299))==Cnil){ |
if(((V304))==Cnil){ |
3683 |
goto T1016;} |
goto T1029;} |
3684 |
base[4]= (V299); |
base[4]= (V304); |
3685 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3686 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3687 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
3688 |
vs_top=sup; |
vs_top=sup; |
3689 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3690 |
goto T1020;} |
goto T1033;} |
3691 |
base[4]= STREF(object,(V299),0); |
base[4]= STREF(object,(V304),0); |
3692 |
base[5]= STREF(object,(V299),4); |
base[5]= STREF(object,(V304),4); |
3693 |
base[6]= STREF(object,(V299),8); |
base[6]= STREF(object,(V304),8); |
3694 |
base[7]= (V300); |
base[7]= (V305); |
3695 |
base[8]= (V301); |
base[8]= (V306); |
3696 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3697 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3698 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3699 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3700 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3701 |
return; |
return; |
3702 |
goto T1020; |
goto T1033; |
3703 |
T1020:; |
T1033:; |
3704 |
if(!(type_of((V299))==t_fixnum)){ |
if(!(type_of((V304))==t_fixnum)){ |
3705 |
goto T1030;} |
goto T1043;} |
3706 |
{object V304; |
{object V309; |
3707 |
if(type_of(V300)==t_structure){ |
if(type_of(V305)==t_structure){ |
3708 |
goto T1036;} |
goto T1049;} |
3709 |
goto T1034; |
goto T1047; |
3710 |
goto T1036; |
goto T1049; |
3711 |
T1036:; |
T1049:; |
3712 |
if(!(((V300)->str.str_def)==(VV[196]))){ |
if(!(((V305)->str.str_def)==(VV[199]))){ |
3713 |
goto T1034;} |
goto T1047;} |
3714 |
V304= STREF(object,(V300),4); |
V309= STREF(object,(V305),4); |
3715 |
goto T1032; |
goto T1045; |
3716 |
goto T1034; |
goto T1047; |
3717 |
T1034:;{object V306; |
T1047:;{object V311; |
3718 |
V306= (VV[38]->s.s_dbind); |
V311= (VV[38]->s.s_dbind); |
3719 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3720 |
base[5]= (V300); |
base[5]= (V305); |
3721 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3722 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
3723 |
vs_top=sup; |
vs_top=sup; |
3724 |
V307= vs_base[0]; |
V312= vs_base[0]; |
3725 |
if(!((V306)==(CMPcar(V307)))){ |
if(!((V311)==(CMPcar(V312)))){ |
3726 |
goto T1039;}} |
goto T1052;}} |
3727 |
V304= CMPcar(((V300))->cc.cc_turbo[12]); |
V309= CMPcar(((V305))->cc.cc_turbo[12]); |
3728 |
goto T1032; |
goto T1045; |
3729 |
goto T1039; |
goto T1052; |
3730 |
T1039:; |
T1052:; |
3731 |
V304= Cnil; |
V309= Cnil; |
|
goto T1032; |
|
|
T1032:; |
|
|
if(((V304))==Cnil){ |
|
|
goto T1045;} |
|
|
base[4]= ((V304))->v.v_self[fix((V299))]= (V300); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
3732 |
goto T1045; |
goto T1045; |
3733 |
T1045:; |
T1045:; |
3734 |
|
if(((V309))==Cnil){ |
3735 |
|
goto T1058;} |
3736 |
|
base[4]= ((V309))->v.v_self[fix((V304))]= (V305); |
3737 |
|
vs_top=(vs_base=base+4)+1; |
3738 |
|
return; |
3739 |
|
goto T1058; |
3740 |
|
T1058:; |
3741 |
base[4]= Cnil; |
base[4]= Cnil; |
3742 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3743 |
return;} |
return;} |
3744 |
goto T1030; |
goto T1043; |
3745 |
T1030:; |
T1043:; |
3746 |
{register object V309; |
{register object V314; |
3747 |
V309= V299; |
V314= V304; |
3748 |
base[4]= (V309); |
base[4]= (V314); |
3749 |
base[5]= VV[39]; |
base[5]= VV[39]; |
3750 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3751 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
3752 |
vs_top=sup; |
vs_top=sup; |
3753 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3754 |
goto T1048;} |
goto T1061;} |
3755 |
{object V310; |
{object V315; |
3756 |
object V311; |
object V316; |
3757 |
register object V312; |
register object V317; |
3758 |
V310= STREF(object,(V299),0); |
V315= STREF(object,(V304),0); |
3759 |
V311= list(2,(V300),(V301)); |
V316= list(2,(V305),(V306)); |
3760 |
V312= STREF(object,(V299),4); |
V317= STREF(object,(V304),4); |
3761 |
if(((V312))==Cnil){ |
if(((V317))==Cnil){ |
3762 |
goto T1056;} |
goto T1069;} |
3763 |
if((CMPcdr((V312)))!=Cnil){ |
if((CMPcdr((V317)))!=Cnil){ |
3764 |
goto T1056;} |
goto T1069;} |
3765 |
base[4]= (V311); |
base[4]= (V316); |
3766 |
base[5]= CMPcar((V312)); |
base[5]= CMPcar((V317)); |
3767 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3768 |
{object _funobj = (V310);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V315);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3769 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3770 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3771 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3772 |
return; |
return; |
3773 |
goto T1056; |
goto T1069; |
3774 |
T1056:; |
T1069:; |
3775 |
base[4]= (V310); |
base[4]= (V315); |
3776 |
base[5]= (V311); |
base[5]= (V316); |
3777 |
{object V313; |
{object V318; |
3778 |
V313= (V312); |
V318= (V317); |
3779 |
vs_top=base+6; |
vs_top=base+6; |
3780 |
while(V313!=Cnil) |
while(V318!=Cnil) |
3781 |
{vs_push((V313)->c.c_car);V313=(V313)->c.c_cdr;} |
{vs_push((V318)->c.c_car);V318=(V318)->c.c_cdr;} |
3782 |
vs_base=base+5;} |
vs_base=base+5;} |
3783 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3784 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3785 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3786 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3787 |
return;} |
return;} |
3788 |
goto T1048; |
goto T1061; |
3789 |
T1048:; |
T1061:; |
3790 |
base[4]= (V309); |
base[4]= (V314); |
3791 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3792 |
Lfunctionp(); |
Lfunctionp(); |
3793 |
vs_top=sup; |
vs_top=sup; |
3794 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3795 |
goto T1066;} |
goto T1079;} |
3796 |
base[4]= (V300); |
base[4]= (V305); |
3797 |
base[5]= (V301); |
base[5]= (V306); |
3798 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3799 |
{object _funobj = (V299);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V304);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3800 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3801 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3802 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3803 |
return; |
return; |
3804 |
goto T1066; |
goto T1079; |
3805 |
T1066:; |
T1079:; |
3806 |
base[4]= VV[40]; |
base[4]= VV[40]; |
3807 |
base[5]= VV[18]; |
base[5]= VV[18]; |
3808 |
base[6]= VV[41]; |
base[6]= VV[41]; |
3809 |
base[7]= VV[42]; |
base[7]= VV[42]; |
3810 |
base[8]= V299; |
base[8]= V304; |
3811 |
base[9]= VV[43]; |
base[9]= VV[43]; |
3812 |
base[10]= VV[197]; |
base[10]= VV[200]; |
3813 |
base[11]= VV[45]; |
base[11]= VV[45]; |
3814 |
base[12]= VV[198]; |
base[12]= VV[201]; |
3815 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
3816 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
3817 |
return;} |
return;} |
3818 |
goto T1016; |
goto T1029; |
3819 |
T1016:; |
T1029:; |
3820 |
base[4]= VV[47]; |
base[4]= VV[47]; |
3821 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3822 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
3823 |
return; |
return; |
3824 |
goto T1013; |
goto T1026; |
3825 |
T1013:; |
T1026:; |
3826 |
base[4]= VV[199]; |
base[4]= VV[202]; |
3827 |
base[5]= V301; |
base[5]= V306; |
3828 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3829 |
Lwrite_string(); |
Lwrite_string(); |
3830 |
return; |
return; |
3831 |
} |
} |
3832 |
} |
} |
3833 |
/* local entry for function progn 'compile6231 */ |
/* local entry for function progn 'compile6325 */ |
3834 |
|
|
3835 |
static object LI156() |
static object LI161() |
3836 |
|
|
3837 |
{ VMB156 VMS156 VMV156 |
{ VMB161 VMS161 VMV161 |
3838 |
goto TTL; |
goto TTL; |
3839 |
TTL:; |
TTL:; |
3840 |
base[0]= VV[48]; |
base[0]= VV[48]; |
3841 |
base[1]= VV[32]; |
base[1]= VV[32]; |
3842 |
base[2]= Cnil; |
base[2]= Cnil; |
3843 |
base[3]= VV[200]; |
base[3]= VV[203]; |
3844 |
base[4]= VV[201]; |
base[4]= VV[204]; |
3845 |
V316= (VV[312]->s.s_gfdef); |
V321= (VV[319]->s.s_gfdef); |
3846 |
base[5]= listA(3,VV[51],V316,VV[202]); |
base[5]= listA(3,VV[51],V321,VV[205]); |
3847 |
base[6]= Cnil; |
base[6]= Cnil; |
3848 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3849 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
3850 |
vs_top=sup; |
vs_top=sup; |
3851 |
{object V317 = Cnil; |
{object V322 = Cnil; |
3852 |
VMR156(V317)} |
VMR161(V322)} |
3853 |
base[0]=base[0]; |
base[0]=base[0]; |
3854 |
return Cnil; |
return Cnil; |
3855 |
} |
} |
3856 |
/* local entry for function progn 'compile6239 */ |
/* local entry for function progn 'compile6333 */ |
3857 |
|
|
3858 |
static object LI157() |
static object LI162() |
3859 |
|
|
3860 |
{ VMB157 VMS157 VMV157 |
{ VMB162 VMS162 VMV162 |
3861 |
goto TTL; |
goto TTL; |
3862 |
TTL:; |
TTL:; |
3863 |
{object V318 = Cnil; |
{object V323 = Cnil; |
3864 |
VMR157(V318)} |
VMR162(V323)} |
3865 |
return Cnil; |
return Cnil; |
3866 |
} |
} |
3867 |
/* function definition for Defclass INTERNAL-ERROR6259 */ |
/* function definition for Defclass INTERNAL-ERROR6353 */ |
3868 |
|
|
3869 |
static void L158() |
static void L163() |
3870 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3871 |
register object *sup=base+VM158; VC158 |
register object *sup=base+VM163; VC163 |
3872 |
vs_check; |
vs_check; |
3873 |
vs_top=sup; |
vs_top=sup; |
3874 |
goto TTL; |
goto TTL; |
3875 |
TTL:; |
TTL:; |
3876 |
base[0]= VV[203]; |
base[0]= VV[206]; |
3877 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3878 |
base[2]= VV[204]; |
base[2]= VV[207]; |
3879 |
base[4]= VV[26]; |
base[4]= VV[26]; |
3880 |
base[5]= (VV[267]->s.s_gfdef); |
base[5]= (VV[273]->s.s_gfdef); |
3881 |
base[6]= VV[18]; |
base[6]= VV[18]; |
3882 |
base[7]= VV[205]; |
base[7]= VV[208]; |
3883 |
base[8]= VV[20]; |
base[8]= VV[20]; |
3884 |
base[9]= VV[206]; |
base[9]= VV[209]; |
3885 |
base[10]= VV[22]; |
base[10]= VV[22]; |
3886 |
base[11]= Cnil; |
base[11]= Cnil; |
3887 |
base[12]= VV[23]; |
base[12]= VV[23]; |
3888 |
base[13]= VV[207]; |
base[13]= VV[210]; |
3889 |
base[14]= VV[208]; |
base[14]= VV[211]; |
3890 |
vs_top=(vs_base=base+4)+11; |
vs_top=(vs_base=base+4)+11; |
3891 |
LlistA(); |
LlistA(); |
3892 |
vs_top=sup; |
vs_top=sup; |
3893 |
V319= vs_base[0]; |
V324= vs_base[0]; |
3894 |
base[3]= make_cons(V319,Cnil); |
base[3]= make_cons(V324,Cnil); |
3895 |
base[4]= Cnil; |
base[4]= Cnil; |
3896 |
base[5]= Cnil; |
base[5]= Cnil; |
3897 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
3898 |
return; |
return; |
3899 |
} |
} |
3900 |
/* local entry for function progn 'compile6276 */ |
/* local entry for function progn 'compile6370 */ |
3901 |
|
|
3902 |
static object LI159() |
static object LI164() |
3903 |
|
|
3904 |
{ VMB159 VMS159 VMV159 |
{ VMB164 VMS164 VMV164 |
3905 |
goto TTL; |
goto TTL; |
3906 |
TTL:; |
TTL:; |
3907 |
vs_base=vs_top; |
vs_base=vs_top; |
3908 |
(void) (*Lnk313)(); |
(void) (*Lnk320)(); |
3909 |
vs_top=sup; |
vs_top=sup; |
3910 |
{object V320 = Cnil; |
{object V325 = Cnil; |
3911 |
VMR159(V320)} |
VMR164(V325)} |
3912 |
base[0]=base[0]; |
base[0]=base[0]; |
3913 |
return Cnil; |
return Cnil; |
3914 |
} |
} |
3915 |
/* local entry for function progn 'compile6293 */ |
/* local entry for function progn 'compile6387 */ |
3916 |
|
|
3917 |
static object LI160() |
static object LI165() |
3918 |
|
|
3919 |
{ VMB160 VMS160 VMV160 |
{ VMB165 VMS165 VMV165 |
3920 |
goto TTL; |
goto TTL; |
3921 |
TTL:; |
TTL:; |
3922 |
base[0]= VV[209]; |
base[0]= VV[212]; |
3923 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
3924 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3925 |
Ladjoin(); |
Ladjoin(); |
3926 |
vs_top=sup; |
vs_top=sup; |
3927 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
3928 |
{object V322 = Cnil; |
{object V327 = Cnil; |
3929 |
VMR160(V322)} |
VMR165(V327)} |
3930 |
base[0]=base[0]; |
base[0]=base[0]; |
3931 |
return Cnil; |
return Cnil; |
3932 |
} |
} |
3933 |
/* local entry for function progn 'compile6317 */ |
/* local entry for function progn 'compile6411 */ |
3934 |
|
|
3935 |
static object LI161() |
static object LI166() |
3936 |
|
|
3937 |
{ VMB161 VMS161 VMV161 |
{ VMB166 VMS166 VMV166 |
3938 |
goto TTL; |
goto TTL; |
3939 |
TTL:; |
TTL:; |
3940 |
(void)(sputprop(VV[203],VV[9],Cnil)); |
(void)(sputprop(VV[206],VV[9],Cnil)); |
3941 |
{object V323 = Cnil; |
{object V328 = Cnil; |
3942 |
VMR161(V323)} |
VMR166(V328)} |
3943 |
return Cnil; |
return Cnil; |
3944 |
} |
} |
3945 |
/* local entry for function progn 'compile6333 */ |
/* local entry for function progn 'compile6427 */ |
3946 |
|
|
3947 |
static object LI162() |
static object LI167() |
3948 |
|
|
3949 |
{ VMB162 VMS162 VMV162 |
{ VMB167 VMS167 VMV167 |
3950 |
goto TTL; |
goto TTL; |
3951 |
TTL:; |
TTL:; |
3952 |
base[0]= VV[32]; |
base[0]= VV[32]; |
3953 |
base[1]= VV[210]; |
base[1]= VV[213]; |
3954 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3955 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
3956 |
vs_top=sup; |
vs_top=sup; |
3957 |
{object V324 = Cnil; |
{object V329 = Cnil; |
3958 |
VMR162(V324)} |
VMR167(V329)} |
3959 |
base[0]=base[0]; |
base[0]=base[0]; |
3960 |
return Cnil; |
return Cnil; |
3961 |
} |
} |
3962 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T)) */ |
3963 |
|
|
3964 |
static void L163() |
static void L168() |
3965 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3966 |
register object *sup=base+VM163; VC163 |
register object *sup=base+VM168; VC168 |
3967 |
vs_check; |
vs_check; |
3968 |
{object V325; |
{object V330; |
3969 |
register object V326; |
register object V331; |
3970 |
register object V327; |
register object V332; |
3971 |
register object V328; |
register object V333; |
3972 |
V325=(base[0]); |
V330=(base[0]); |
3973 |
V326=(base[1]); |
V331=(base[1]); |
3974 |
V327=(base[2]); |
V332=(base[2]); |
3975 |
V328=(base[3]); |
V333=(base[3]); |
3976 |
vs_top=sup; |
vs_top=sup; |
3977 |
goto TTL; |
goto TTL; |
3978 |
TTL:; |
TTL:; |
3979 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3980 |
goto T1124;} |
goto T1137;} |
3981 |
if(((V326))==Cnil){ |
if(((V331))==Cnil){ |
3982 |
goto T1127;} |
goto T1140;} |
3983 |
base[4]= (V326); |
base[4]= (V331); |
3984 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3985 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3986 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
3987 |
vs_top=sup; |
vs_top=sup; |
3988 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3989 |
goto T1131;} |
goto T1144;} |
3990 |
base[4]= STREF(object,(V326),0); |
base[4]= STREF(object,(V331),0); |
3991 |
base[5]= STREF(object,(V326),4); |
base[5]= STREF(object,(V331),4); |
3992 |
base[6]= STREF(object,(V326),8); |
base[6]= STREF(object,(V331),8); |
3993 |
base[7]= (V327); |
base[7]= (V332); |
3994 |
base[8]= (V328); |
base[8]= (V333); |
3995 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3996 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3997 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3998 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3999 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4000 |
return; |
return; |
4001 |
goto T1131; |
goto T1144; |
4002 |
T1131:; |
T1144:; |
4003 |
if(!(type_of((V326))==t_fixnum)){ |
if(!(type_of((V331))==t_fixnum)){ |
4004 |
goto T1141;} |
goto T1154;} |
4005 |
{object V331; |
{object V336; |
4006 |
if(type_of(V327)==t_structure){ |
if(type_of(V332)==t_structure){ |
4007 |
goto T1147;} |
goto T1160;} |
4008 |
goto T1145; |
goto T1158; |
4009 |
goto T1147; |
goto T1160; |
4010 |
T1147:; |
T1160:; |
4011 |
if(!(((V327)->str.str_def)==(VV[211]))){ |
if(!(((V332)->str.str_def)==(VV[214]))){ |
4012 |
goto T1145;} |
goto T1158;} |
4013 |
V331= STREF(object,(V327),4); |
V336= STREF(object,(V332),4); |
4014 |
goto T1143; |
goto T1156; |
4015 |
goto T1145; |
goto T1158; |
4016 |
T1145:;{object V333; |
T1158:;{object V338; |
4017 |
V333= (VV[38]->s.s_dbind); |
V338= (VV[38]->s.s_dbind); |
4018 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4019 |
base[5]= (V327); |
base[5]= (V332); |
4020 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4021 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
4022 |
vs_top=sup; |
vs_top=sup; |
4023 |
V334= vs_base[0]; |
V339= vs_base[0]; |
4024 |
if(!((V333)==(CMPcar(V334)))){ |
if(!((V338)==(CMPcar(V339)))){ |
4025 |
goto T1150;}} |
goto T1163;}} |
4026 |
V331= CMPcar(((V327))->cc.cc_turbo[12]); |
V336= CMPcar(((V332))->cc.cc_turbo[12]); |
4027 |
goto T1143; |
goto T1156; |
4028 |
goto T1150; |
goto T1163; |
4029 |
T1150:; |
T1163:; |
4030 |
V331= Cnil; |
V336= Cnil; |
|
goto T1143; |
|
|
T1143:; |
|
|
if(((V331))==Cnil){ |
|
|
goto T1156;} |
|
|
base[4]= ((V331))->v.v_self[fix((V326))]= (V327); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
4031 |
goto T1156; |
goto T1156; |
4032 |
T1156:; |
T1156:; |
4033 |
|
if(((V336))==Cnil){ |
4034 |
|
goto T1169;} |
4035 |
|
base[4]= ((V336))->v.v_self[fix((V331))]= (V332); |
4036 |
|
vs_top=(vs_base=base+4)+1; |
4037 |
|
return; |
4038 |
|
goto T1169; |
4039 |
|
T1169:; |
4040 |
base[4]= Cnil; |
base[4]= Cnil; |
4041 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4042 |
return;} |
return;} |
4043 |
goto T1141; |
goto T1154; |
4044 |
T1141:; |
T1154:; |
4045 |
{register object V336; |
{register object V341; |
4046 |
V336= V326; |
V341= V331; |
4047 |
base[4]= (V336); |
base[4]= (V341); |
4048 |
base[5]= VV[39]; |
base[5]= VV[39]; |
4049 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4050 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
4051 |
vs_top=sup; |
vs_top=sup; |
4052 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4053 |
goto T1159;} |
goto T1172;} |
4054 |
{object V337; |
{object V342; |
4055 |
object V338; |
object V343; |
4056 |
register object V339; |
register object V344; |
4057 |
V337= STREF(object,(V326),0); |
V342= STREF(object,(V331),0); |
4058 |
V338= list(2,(V327),(V328)); |
V343= list(2,(V332),(V333)); |
4059 |
V339= STREF(object,(V326),4); |
V344= STREF(object,(V331),4); |
4060 |
if(((V339))==Cnil){ |
if(((V344))==Cnil){ |
4061 |
goto T1167;} |
goto T1180;} |
4062 |
if((CMPcdr((V339)))!=Cnil){ |
if((CMPcdr((V344)))!=Cnil){ |
4063 |
goto T1167;} |
goto T1180;} |
4064 |
base[4]= (V338); |
base[4]= (V343); |
4065 |
base[5]= CMPcar((V339)); |
base[5]= CMPcar((V344)); |
4066 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4067 |
{object _funobj = (V337);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V342);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4068 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4069 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4070 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4071 |
return; |
return; |
4072 |
goto T1167; |
goto T1180; |
4073 |
T1167:; |
T1180:; |
4074 |
base[4]= (V337); |
base[4]= (V342); |
4075 |
base[5]= (V338); |
base[5]= (V343); |
4076 |
{object V340; |
{object V345; |
4077 |
V340= (V339); |
V345= (V344); |
4078 |
vs_top=base+6; |
vs_top=base+6; |
4079 |
while(V340!=Cnil) |
while(V345!=Cnil) |
4080 |
{vs_push((V340)->c.c_car);V340=(V340)->c.c_cdr;} |
{vs_push((V345)->c.c_car);V345=(V345)->c.c_cdr;} |
4081 |
vs_base=base+5;} |
vs_base=base+5;} |
4082 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4083 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4084 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4085 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4086 |
return;} |
return;} |
4087 |
goto T1159; |
goto T1172; |
4088 |
T1159:; |
T1172:; |
4089 |
base[4]= (V336); |
base[4]= (V341); |
4090 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4091 |
Lfunctionp(); |
Lfunctionp(); |
4092 |
vs_top=sup; |
vs_top=sup; |
4093 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4094 |
goto T1177;} |
goto T1190;} |
4095 |
base[4]= (V327); |
base[4]= (V332); |
4096 |
base[5]= (V328); |
base[5]= (V333); |
4097 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4098 |
{object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4099 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4100 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4101 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4102 |
return; |
return; |
4103 |
goto T1177; |
goto T1190; |
4104 |
T1177:; |
T1190:; |
4105 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4106 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4107 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4108 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4109 |
base[8]= V326; |
base[8]= V331; |
4110 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4111 |
base[10]= VV[212]; |
base[10]= VV[215]; |
4112 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4113 |
base[12]= VV[213]; |
base[12]= VV[216]; |
4114 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4115 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4116 |
return;} |
return;} |
4117 |
goto T1127; |
goto T1140; |
4118 |
T1127:; |
T1140:; |
4119 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4120 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4121 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
4122 |
return; |
return; |
4123 |
goto T1124; |
goto T1137; |
4124 |
T1124:; |
T1137:; |
4125 |
{register object V342; |
{register object V347; |
4126 |
V342= (V328); |
V347= (V333); |
4127 |
base[4]= V327; |
base[4]= V332; |
4128 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4129 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk321)(Lclptr321); |
4130 |
vs_top=sup; |
vs_top=sup; |
4131 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4132 |
goto T1192;} |
goto T1205;} |
4133 |
base[4]= (V342); |
base[4]= (V347); |
4134 |
base[5]= VV[214]; |
base[5]= VV[217]; |
4135 |
base[7]= V327; |
base[7]= V332; |
4136 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4137 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk321)(Lclptr321); |
4138 |
vs_top=sup; |
vs_top=sup; |
4139 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
4140 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4141 |
Lformat(); |
Lformat(); |
4142 |
vs_top=sup; |
vs_top=sup; |
4143 |
goto T1192; |
goto T1205; |
4144 |
T1192:; |
T1205:; |
4145 |
if(((V326))==Cnil){ |
if(((V331))==Cnil){ |
4146 |
goto T1201;} |
goto T1214;} |
4147 |
base[4]= (V326); |
base[4]= (V331); |
4148 |
base[5]= VV[35]; |
base[5]= VV[35]; |
4149 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4150 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
4151 |
vs_top=sup; |
vs_top=sup; |
4152 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4153 |
goto T1205;} |
goto T1218;} |
4154 |
base[4]= STREF(object,(V326),0); |
base[4]= STREF(object,(V331),0); |
4155 |
base[5]= STREF(object,(V326),4); |
base[5]= STREF(object,(V331),4); |
4156 |
base[6]= STREF(object,(V326),8); |
base[6]= STREF(object,(V331),8); |
4157 |
base[7]= (V327); |
base[7]= (V332); |
4158 |
base[8]= (V342); |
base[8]= (V347); |
4159 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
4160 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4161 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4162 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4163 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4164 |
return; |
return; |
4165 |
goto T1205; |
goto T1218; |
4166 |
T1205:; |
T1218:; |
4167 |
if(!(type_of((V326))==t_fixnum)){ |
if(!(type_of((V331))==t_fixnum)){ |
4168 |
goto T1215;} |
goto T1228;} |
4169 |
{object V344; |
{object V349; |
4170 |
if(type_of(V327)==t_structure){ |
if(type_of(V332)==t_structure){ |
4171 |
goto T1221;} |
goto T1234;} |
4172 |
goto T1219; |
goto T1232; |
4173 |
goto T1221; |
goto T1234; |
4174 |
T1221:; |
T1234:; |
4175 |
if(!(((V327)->str.str_def)==(VV[215]))){ |
if(!(((V332)->str.str_def)==(VV[218]))){ |
4176 |
goto T1219;} |
goto T1232;} |
4177 |
V344= STREF(object,(V327),4); |
V349= STREF(object,(V332),4); |
4178 |
goto T1217; |
goto T1230; |
4179 |
goto T1219; |
goto T1232; |
4180 |
T1219:;{object V346; |
T1232:;{object V351; |
4181 |
V346= (VV[38]->s.s_dbind); |
V351= (VV[38]->s.s_dbind); |
4182 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4183 |
base[5]= (V327); |
base[5]= (V332); |
4184 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4185 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
4186 |
vs_top=sup; |
vs_top=sup; |
4187 |
V347= vs_base[0]; |
V352= vs_base[0]; |
4188 |
if(!((V346)==(CMPcar(V347)))){ |
if(!((V351)==(CMPcar(V352)))){ |
4189 |
goto T1224;}} |
goto T1237;}} |
4190 |
V344= CMPcar(((V327))->cc.cc_turbo[12]); |
V349= CMPcar(((V332))->cc.cc_turbo[12]); |
4191 |
goto T1217; |
goto T1230; |
4192 |
goto T1224; |
goto T1237; |
4193 |
T1224:; |
T1237:; |
4194 |
V344= Cnil; |
V349= Cnil; |
|
goto T1217; |
|
|
T1217:; |
|
|
if(((V344))==Cnil){ |
|
|
goto T1230;} |
|
|
base[4]= ((V344))->v.v_self[fix((V326))]= (V327); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
4195 |
goto T1230; |
goto T1230; |
4196 |
T1230:; |
T1230:; |
4197 |
|
if(((V349))==Cnil){ |
4198 |
|
goto T1243;} |
4199 |
|
base[4]= ((V349))->v.v_self[fix((V331))]= (V332); |
4200 |
|
vs_top=(vs_base=base+4)+1; |
4201 |
|
return; |
4202 |
|
goto T1243; |
4203 |
|
T1243:; |
4204 |
base[4]= Cnil; |
base[4]= Cnil; |
4205 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4206 |
return;} |
return;} |
4207 |
goto T1215; |
goto T1228; |
4208 |
T1215:; |
T1228:; |
4209 |
{register object V349; |
{register object V354; |
4210 |
V349= V326; |
V354= V331; |
4211 |
base[4]= (V349); |
base[4]= (V354); |
4212 |
base[5]= VV[39]; |
base[5]= VV[39]; |
4213 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4214 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
4215 |
vs_top=sup; |
vs_top=sup; |
4216 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4217 |
goto T1233;} |
goto T1246;} |
4218 |
{object V350; |
{object V355; |
4219 |
object V351; |
object V356; |
4220 |
register object V352; |
register object V357; |
4221 |
V350= STREF(object,(V326),0); |
V355= STREF(object,(V331),0); |
4222 |
V351= list(2,(V327),(V342)); |
V356= list(2,(V332),(V347)); |
4223 |
V352= STREF(object,(V326),4); |
V357= STREF(object,(V331),4); |
4224 |
if(((V352))==Cnil){ |
if(((V357))==Cnil){ |
4225 |
goto T1241;} |
goto T1254;} |
4226 |
if((CMPcdr((V352)))!=Cnil){ |
if((CMPcdr((V357)))!=Cnil){ |
4227 |
goto T1241;} |
goto T1254;} |
4228 |
base[4]= (V351); |
base[4]= (V356); |
4229 |
base[5]= CMPcar((V352)); |
base[5]= CMPcar((V357)); |
4230 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4231 |
{object _funobj = (V350);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V355);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4232 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4233 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4234 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4235 |
return; |
return; |
4236 |
goto T1241; |
goto T1254; |
4237 |
T1241:; |
T1254:; |
4238 |
base[4]= (V350); |
base[4]= (V355); |
4239 |
base[5]= (V351); |
base[5]= (V356); |
4240 |
{object V353; |
{object V358; |
4241 |
V353= (V352); |
V358= (V357); |
4242 |
vs_top=base+6; |
vs_top=base+6; |
4243 |
while(V353!=Cnil) |
while(V358!=Cnil) |
4244 |
{vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;} |
{vs_push((V358)->c.c_car);V358=(V358)->c.c_cdr;} |
4245 |
vs_base=base+5;} |
vs_base=base+5;} |
4246 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4247 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4248 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4249 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4250 |
return;} |
return;} |
4251 |
goto T1233; |
goto T1246; |
4252 |
T1233:; |
T1246:; |
4253 |
base[4]= (V349); |
base[4]= (V354); |
4254 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4255 |
Lfunctionp(); |
Lfunctionp(); |
4256 |
vs_top=sup; |
vs_top=sup; |
4257 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4258 |
goto T1251;} |
goto T1264;} |
4259 |
base[4]= (V327); |
base[4]= (V332); |
4260 |
base[5]= (V342); |
base[5]= (V347); |
4261 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4262 |
{object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4263 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4264 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4265 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4266 |
return; |
return; |
4267 |
goto T1251; |
goto T1264; |
4268 |
T1251:; |
T1264:; |
4269 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4270 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4271 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4272 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4273 |
base[8]= V326; |
base[8]= V331; |
4274 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4275 |
base[10]= VV[216]; |
base[10]= VV[219]; |
4276 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4277 |
base[12]= VV[217]; |
base[12]= VV[220]; |
4278 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4279 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4280 |
return;} |
return;} |
4281 |
goto T1201; |
goto T1214; |
4282 |
T1201:; |
T1214:; |
4283 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4284 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4285 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
4286 |
return;} |
return;} |
4287 |
} |
} |
4288 |
} |
} |
4289 |
/* local entry for function progn 'compile6646 */ |
/* local entry for function progn 'compile6740 */ |
4290 |
|
|
4291 |
static object LI164() |
static object LI169() |
4292 |
|
|
4293 |
{ VMB164 VMS164 VMV164 |
{ VMB169 VMS169 VMV169 |
4294 |
goto TTL; |
goto TTL; |
4295 |
TTL:; |
TTL:; |
4296 |
base[0]= VV[48]; |
base[0]= VV[48]; |
4297 |
base[1]= VV[32]; |
base[1]= VV[32]; |
4298 |
base[2]= Cnil; |
base[2]= Cnil; |
4299 |
base[3]= VV[218]; |
base[3]= VV[221]; |
4300 |
base[4]= VV[219]; |
base[4]= VV[222]; |
4301 |
V354= (VV[315]->s.s_gfdef); |
V359= (VV[322]->s.s_gfdef); |
4302 |
base[5]= listA(3,VV[51],V354,VV[220]); |
base[5]= listA(3,VV[51],V359,VV[223]); |
4303 |
base[6]= Cnil; |
base[6]= Cnil; |
4304 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
4305 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
4306 |
vs_top=sup; |
vs_top=sup; |
4307 |
{object V355 = Cnil; |
{object V360 = Cnil; |
4308 |
VMR164(V355)} |
VMR169(V360)} |
4309 |
base[0]=base[0]; |
base[0]=base[0]; |
4310 |
return Cnil; |
return Cnil; |
4311 |
} |
} |
4312 |
/* local entry for function progn 'compile6654 */ |
/* local entry for function progn 'compile6748 */ |
4313 |
|
|
4314 |
static object LI165() |
static object LI170() |
4315 |
|
|
4316 |
{ VMB165 VMS165 VMV165 |
{ VMB170 VMS170 VMV170 |
4317 |
goto TTL; |
goto TTL; |
4318 |
TTL:; |
TTL:; |
4319 |
{object V356 = Cnil; |
{object V361 = Cnil; |
4320 |
VMR165(V356)} |
VMR170(V361)} |
4321 |
return Cnil; |
return Cnil; |
4322 |
} |
} |
4323 |
/* local entry for function INTERNAL-SIMPLE-ERROR-PRINTER */ |
/* local entry for function INTERNAL-SIMPLE-ERROR-PRINTER */ |
4324 |
|
|
4325 |
static object LI166(V359,V360) |
static object LI171(V364,V365) |
4326 |
|
|
4327 |
register object V359;object V360; |
register object V364;object V365; |
4328 |
{ VMB166 VMS166 VMV166 |
{ VMB171 VMS171 VMV171 |
4329 |
goto TTL; |
goto TTL; |
4330 |
TTL:; |
TTL:; |
4331 |
base[0]= (V359); |
base[0]= (V364); |
4332 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4333 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk321)(Lclptr321); |
4334 |
vs_top=sup; |
vs_top=sup; |
4335 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4336 |
goto T1276;} |
goto T1289;} |
4337 |
base[0]= (V360); |
base[0]= (V365); |
4338 |
base[1]= VV[221]; |
base[1]= VV[224]; |
4339 |
base[3]= (V359); |
base[3]= (V364); |
4340 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4341 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk321)(Lclptr321); |
4342 |
vs_top=sup; |
vs_top=sup; |
4343 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4344 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4345 |
Lformat(); |
Lformat(); |
4346 |
vs_top=sup; |
vs_top=sup; |
4347 |
goto T1276; |
goto T1289; |
4348 |
T1276:; |
T1289:; |
4349 |
base[0]= (V360); |
base[0]= (V365); |
4350 |
base[2]= (V359); |
base[2]= (V364); |
4351 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4352 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk271)(Lclptr271); |
4353 |
vs_top=sup; |
vs_top=sup; |
4354 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
4355 |
{object V361; |
{object V366; |
4356 |
base[2]= (V359); |
base[2]= (V364); |
4357 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4358 |
(void) (*Lnk266)(Lclptr266); |
(void) (*Lnk272)(Lclptr272); |
4359 |
vs_top=sup; |
vs_top=sup; |
4360 |
V361= vs_base[0]; |
V366= vs_base[0]; |
4361 |
vs_top=base+2; |
vs_top=base+2; |
4362 |
while(V361!=Cnil) |
while(V366!=Cnil) |
4363 |
{vs_push((V361)->c.c_car);V361=(V361)->c.c_cdr;} |
{vs_push((V366)->c.c_car);V366=(V366)->c.c_cdr;} |
4364 |
vs_base=base+0;} |
vs_base=base+0;} |
4365 |
Lformat(); |
Lformat(); |
4366 |
vs_top=sup; |
vs_top=sup; |
4367 |
{object V362 = vs_base[0]; |
{object V367 = vs_base[0]; |
4368 |
VMR166(V362)} |
VMR171(V367)} |
4369 |
base[0]=base[0]; |
base[0]=base[0]; |
4370 |
return Cnil; |
return Cnil; |
4371 |
} |
} |
4372 |
/* function definition for Defclass INTERNAL-SIMPLE-ERROR6686 */ |
/* function definition for Defclass INTERNAL-SIMPLE-ERROR6780 */ |
4373 |
|
|
4374 |
static void L167() |
static void L172() |
4375 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4376 |
register object *sup=base+VM167; VC167 |
register object *sup=base+VM172; VC172 |
4377 |
vs_check; |
vs_check; |
4378 |
vs_top=sup; |
vs_top=sup; |
4379 |
goto TTL; |
goto TTL; |
4380 |
TTL:; |
TTL:; |
4381 |
base[0]= VV[222]; |
base[0]= VV[225]; |
4382 |
base[1]= VV[5]; |
base[1]= VV[5]; |
4383 |
base[2]= VV[223]; |
base[2]= VV[226]; |
4384 |
base[3]= Cnil; |
base[3]= Cnil; |
4385 |
base[4]= Cnil; |
base[4]= Cnil; |
4386 |
base[5]= Cnil; |
base[5]= Cnil; |
4387 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4388 |
return; |
return; |
4389 |
} |
} |
4390 |
/* local entry for function progn 'compile6702 */ |
/* local entry for function progn 'compile6796 */ |
4391 |
|
|
4392 |
static object LI168() |
static object LI173() |
4393 |
|
|
4394 |
{ VMB168 VMS168 VMV168 |
{ VMB173 VMS173 VMV173 |
4395 |
goto TTL; |
goto TTL; |
4396 |
TTL:; |
TTL:; |
4397 |
vs_base=vs_top; |
vs_base=vs_top; |
4398 |
(void) (*Lnk316)(); |
(void) (*Lnk323)(); |
4399 |
vs_top=sup; |
vs_top=sup; |
4400 |
{object V363 = Cnil; |
{object V368 = Cnil; |
4401 |
VMR168(V363)} |
VMR173(V368)} |
4402 |
base[0]=base[0]; |
base[0]=base[0]; |
4403 |
return Cnil; |
return Cnil; |
4404 |
} |
} |
4405 |
/* local entry for function progn 'compile6719 */ |
/* local entry for function progn 'compile6813 */ |
4406 |
|
|
4407 |
static object LI169() |
static object LI174() |
4408 |
|
|
4409 |
{ VMB169 VMS169 VMV169 |
{ VMB174 VMS174 VMV174 |
4410 |
goto TTL; |
goto TTL; |
4411 |
TTL:; |
TTL:; |
4412 |
base[0]= VV[224]; |
base[0]= VV[227]; |
4413 |
base[1]= (VV[8]->s.s_dbind); |
base[1]= (VV[8]->s.s_dbind); |
4414 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4415 |
Ladjoin(); |
Ladjoin(); |
4416 |
vs_top=sup; |
vs_top=sup; |
4417 |
(VV[8]->s.s_dbind)= vs_base[0]; |
(VV[8]->s.s_dbind)= vs_base[0]; |
4418 |
{object V365 = Cnil; |
{object V370 = Cnil; |
4419 |
VMR169(V365)} |
VMR174(V370)} |
4420 |
base[0]=base[0]; |
base[0]=base[0]; |
4421 |
return Cnil; |
return Cnil; |
4422 |
} |
} |
4423 |
/* local entry for function progn 'compile6743 */ |
/* local entry for function progn 'compile6837 */ |
4424 |
|
|
4425 |
static object LI170() |
static object LI175() |
4426 |
|
|
4427 |
{ VMB170 VMS170 VMV170 |
{ VMB175 VMS175 VMV175 |
4428 |
goto TTL; |
goto TTL; |
4429 |
TTL:; |
TTL:; |
4430 |
(void)(sputprop(VV[222],VV[9],Cnil)); |
(void)(sputprop(VV[225],VV[9],Cnil)); |
4431 |
{object V366 = Cnil; |
{object V371 = Cnil; |
4432 |
VMR170(V366)} |
VMR175(V371)} |
4433 |
return Cnil; |
return Cnil; |
4434 |
} |
} |
4435 |
/* local entry for function progn 'compile6759 */ |
/* local entry for function progn 'compile6853 */ |
4436 |
|
|
4437 |
static object LI171() |
static object LI176() |
4438 |
|
|
4439 |
{ VMB171 VMS171 VMV171 |
{ VMB176 VMS176 VMV176 |
4440 |
goto TTL; |
goto TTL; |
4441 |
TTL:; |
TTL:; |
4442 |
base[0]= VV[32]; |
base[0]= VV[32]; |
4443 |
base[1]= VV[225]; |
base[1]= VV[228]; |
4444 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4445 |
(void) (*Lnk269)(); |
(void) (*Lnk275)(); |
4446 |
vs_top=sup; |
vs_top=sup; |
4447 |
{object V367 = Cnil; |
{object V372 = Cnil; |
4448 |
VMR171(V367)} |
VMR176(V372)} |
4449 |
base[0]=base[0]; |
base[0]=base[0]; |
4450 |
return Cnil; |
return Cnil; |
4451 |
} |
} |
4452 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T)) */ |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T)) */ |
4453 |
|
|
4454 |
static void L172() |
static void L177() |
4455 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4456 |
register object *sup=base+VM172; VC172 |
register object *sup=base+VM177; VC177 |
4457 |
vs_check; |
vs_check; |
4458 |
{object V368; |
{object V373; |
4459 |
register object V369; |
register object V374; |
4460 |
register object V370; |
register object V375; |
4461 |
register object V371; |
register object V376; |
4462 |
V368=(base[0]); |
V373=(base[0]); |
4463 |
V369=(base[1]); |
V374=(base[1]); |
4464 |
V370=(base[2]); |
V375=(base[2]); |
4465 |
V371=(base[3]); |
V376=(base[3]); |
4466 |
vs_top=sup; |
vs_top=sup; |
4467 |
goto TTL; |
goto TTL; |
4468 |
TTL:; |
TTL:; |
4469 |
if(((VV[34]->s.s_dbind))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
4470 |
goto T1308;} |
goto T1321;} |
4471 |
if(((V369))==Cnil){ |
if(((V374))==Cnil){ |
4472 |
goto T1311;} |
goto T1324;} |
4473 |
base[4]= (V369); |
base[4]= (V374); |
4474 |
base[5]= VV[35]; |
base[5]= VV[35]; |
4475 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4476 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
4477 |
vs_top=sup; |
vs_top=sup; |
4478 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4479 |
goto T1315;} |
goto T1328;} |
4480 |
base[4]= STREF(object,(V369),0); |
base[4]= STREF(object,(V374),0); |
4481 |
base[5]= STREF(object,(V369),4); |
base[5]= STREF(object,(V374),4); |
4482 |
base[6]= STREF(object,(V369),8); |
base[6]= STREF(object,(V374),8); |
4483 |
base[7]= (V370); |
base[7]= (V375); |
4484 |
base[8]= (V371); |
base[8]= (V376); |
4485 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
4486 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4487 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4488 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4489 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4490 |
return; |
return; |
4491 |
goto T1315; |
goto T1328; |
4492 |
T1315:; |
T1328:; |
4493 |
if(!(type_of((V369))==t_fixnum)){ |
if(!(type_of((V374))==t_fixnum)){ |
4494 |
goto T1325;} |
goto T1338;} |
4495 |
{object V374; |
{object V379; |
4496 |
if(type_of(V370)==t_structure){ |
if(type_of(V375)==t_structure){ |
4497 |
goto T1331;} |
goto T1344;} |
4498 |
goto T1329; |
goto T1342; |
4499 |
goto T1331; |
goto T1344; |
4500 |
T1331:; |
T1344:; |
4501 |
if(!(((V370)->str.str_def)==(VV[226]))){ |
if(!(((V375)->str.str_def)==(VV[229]))){ |
4502 |
goto T1329;} |
goto T1342;} |
4503 |
V374= STREF(object,(V370),4); |
V379= STREF(object,(V375),4); |
4504 |
goto T1327; |
goto T1340; |
4505 |
goto T1329; |
goto T1342; |
4506 |
T1329:;{object V376; |
T1342:;{object V381; |
4507 |
V376= (VV[38]->s.s_dbind); |
V381= (VV[38]->s.s_dbind); |
4508 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4509 |
base[5]= (V370); |
base[5]= (V375); |
4510 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4511 |
(void) (*Lnk271)(); |
(void) (*Lnk277)(); |
4512 |
vs_top=sup; |
vs_top=sup; |
4513 |
V377= vs_base[0]; |
V382= vs_base[0]; |
4514 |
if(!((V376)==(CMPcar(V377)))){ |
if(!((V381)==(CMPcar(V382)))){ |
4515 |
goto T1334;}} |
goto T1347;}} |
4516 |
V374= CMPcar(((V370))->cc.cc_turbo[12]); |
V379= CMPcar(((V375))->cc.cc_turbo[12]); |
4517 |
goto T1327; |
goto T1340; |
4518 |
goto T1334; |
goto T1347; |
4519 |
T1334:; |
T1347:; |
4520 |
V374= Cnil; |
V379= Cnil; |
|
goto T1327; |
|
|
T1327:; |
|
|
if(((V374))==Cnil){ |
|
|
goto T1340;} |
|
|
base[4]= ((V374))->v.v_self[fix((V369))]= (V370); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return; |
|
4521 |
goto T1340; |
goto T1340; |
4522 |
T1340:; |
T1340:; |
4523 |
|
if(((V379))==Cnil){ |
4524 |
|
goto T1353;} |
4525 |
|
base[4]= ((V379))->v.v_self[fix((V374))]= (V375); |
4526 |
|
vs_top=(vs_base=base+4)+1; |
4527 |
|
return; |
4528 |
|
goto T1353; |
4529 |
|
T1353:; |
4530 |
base[4]= Cnil; |
base[4]= Cnil; |
4531 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4532 |
return;} |
return;} |
4533 |
goto T1325; |
goto T1338; |
4534 |
T1325:; |
T1338:; |
4535 |
{register object V379; |
{register object V384; |
4536 |
V379= V369; |
V384= V374; |
4537 |
base[4]= (V379); |
base[4]= (V384); |
4538 |
base[5]= VV[39]; |
base[5]= VV[39]; |
4539 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4540 |
(void) (*Lnk270)(); |
(void) (*Lnk276)(); |
4541 |
vs_top=sup; |
vs_top=sup; |
4542 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4543 |
goto T1343;} |
goto T1356;} |
4544 |
{object V380; |
{object V385; |
4545 |
object V381; |
object V386; |
4546 |
register object V382; |
register object V387; |
4547 |
V380= STREF(object,(V369),0); |
V385= STREF(object,(V374),0); |
4548 |
V381= list(2,(V370),(V371)); |
V386= list(2,(V375),(V376)); |
4549 |
V382= STREF(object,(V369),4); |
V387= STREF(object,(V374),4); |
4550 |
if(((V382))==Cnil){ |
if(((V387))==Cnil){ |
4551 |
goto T1351;} |
goto T1364;} |
4552 |
if((CMPcdr((V382)))!=Cnil){ |
if((CMPcdr((V387)))!=Cnil){ |
4553 |
goto T1351;} |
goto T1364;} |
4554 |
base[4]= (V381); |
base[4]= (V386); |
4555 |
base[5]= CMPcar((V382)); |
base[5]= CMPcar((V387)); |
4556 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4557 |
{object _funobj = (V380);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V385);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4558 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4559 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4560 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4561 |
return; |
return; |
4562 |
goto T1351; |
goto T1364; |
4563 |
T1351:; |
T1364:; |
4564 |
base[4]= (V380); |
base[4]= (V385); |
4565 |
base[5]= (V381); |
base[5]= (V386); |
4566 |
{object V383; |
{object V388; |
4567 |
V383= (V382); |
V388= (V387); |
4568 |
vs_top=base+6; |
vs_top=base+6; |
4569 |
while(V383!=Cnil) |
while(V388!=Cnil) |
4570 |
{vs_push((V383)->c.c_car);V383=(V383)->c.c_cdr;} |
{vs_push((V388)->c.c_car);V388=(V388)->c.c_cdr;} |
4571 |
vs_base=base+5;} |
vs_base=base+5;} |
4572 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4573 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4574 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4575 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4576 |
return;} |
return;} |
4577 |
goto T1343; |
goto T1356; |
4578 |
T1343:; |
T1356:; |
4579 |
base[4]= (V379); |
base[4]= (V384); |
4580 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4581 |
Lfunctionp(); |
Lfunctionp(); |
4582 |
vs_top=sup; |
vs_top=sup; |
4583 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4584 |
goto T1361;} |
goto T1374;} |
4585 |
base[4]= (V370); |
base[4]= (V375); |
4586 |
base[5]= (V371); |
base[5]= (V376); |
4587 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4588 |
{object _funobj = (V369);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V374);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4589 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4590 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4591 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4592 |
return; |
return; |
4593 |
goto T1361; |
goto T1374; |
4594 |
T1361:; |
T1374:; |
4595 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4596 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4597 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4598 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4599 |
base[8]= V369; |
base[8]= V374; |
4600 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4601 |
base[10]= VV[227]; |
base[10]= VV[230]; |
4602 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4603 |
base[12]= VV[228]; |
base[12]= VV[231]; |
4604 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4605 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4606 |
return;} |
return;} |
4607 |
goto T1311; |
goto T1324; |
4608 |
T1311:; |
T1324:; |
4609 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4610 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4611 |
(void) (*Lnk272)(); |
(void) (*Lnk278)(); |
4612 |
return; |
return; |
4613 |
goto T1308; |
goto T1321; |
4614 |
T1308:; |
T1321:; |
4615 |
base[4]= (*(LnkLI317))((V370),(V371)); |
base[4]= (*(LnkLI324))((V375),(V376)); |
4616 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4617 |
return; |
return; |
4618 |
} |
} |
4619 |
} |
} |
4620 |
/* local entry for function progn 'compile6952 */ |
/* local entry for function progn 'compile7046 */ |
4621 |
|
|
4622 |
static object LI173() |
static object LI178() |
4623 |
|
|
4624 |
{ VMB173 VMS173 VMV173 |
{ VMB178 VMS178 VMV178 |
4625 |
goto TTL; |
goto TTL; |
4626 |
TTL:; |
TTL:; |
4627 |
base[0]= VV[48]; |
base[0]= VV[48]; |
4628 |
base[1]= VV[32]; |
base[1]= VV[32]; |
4629 |
base[2]= Cnil; |
base[2]= Cnil; |
4630 |
base[3]= VV[229]; |
base[3]= VV[232]; |
4631 |
base[4]= VV[230]; |
base[4]= VV[233]; |
4632 |
V384= (VV[318]->s.s_gfdef); |
V389= (VV[325]->s.s_gfdef); |
4633 |
base[5]= listA(3,VV[51],V384,VV[231]); |
base[5]= listA(3,VV[51],V389,VV[234]); |
4634 |
base[6]= Cnil; |
base[6]= Cnil; |
4635 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
4636 |
(void) (*Lnk275)(); |
(void) (*Lnk281)(); |
|
vs_top=sup; |
|
|
{object V385 = Cnil; |
|
|
VMR173(V385)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile6960 */ |
|
|
|
|
|
static object LI174() |
|
|
|
|
|
{ VMB174 VMS174 VMV174 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V386 = Cnil; |
|
|
VMR174(V386)} |
|
|
return Cnil; |
|
|
} |
|
|
/* function definition for Defclass INTERNAL-TYPE-ERROR6980 */ |
|
|
|
|
|
static void L175() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM175; VC175 |
|
|
vs_check; |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[232]; |
|
|
base[1]= VV[5]; |
|
|
base[2]= VV[233]; |
|
|
base[3]= Cnil; |
|
|
base[4]= Cnil; |
|
|
base[5]= Cnil; |
|
|
symlispcall(VV[261],base+0,6); |
|
|
return; |
|
|
} |
|
|
/* local entry for function progn 'compile6996 */ |
|
|
|
|
|
static object LI176() |
|
|
|
|
|
{ VMB176 VMS176 VMV176 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk319)(); |
|
|
vs_top=sup; |
|
|
{object V387 = Cnil; |
|
|
VMR176(V387)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile7013 */ |
|
|
|
|
|
static object LI177() |
|
|
|
|
|
{ VMB177 VMS177 VMV177 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[234]; |
|
|
base[1]= (VV[8]->s.s_dbind); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
Ladjoin(); |
|
4637 |
vs_top=sup; |
vs_top=sup; |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
|
|
{object V389 = Cnil; |
|
|
VMR177(V389)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile7037 */ |
|
|
|
|
|
static object LI178() |
|
|
|
|
|
{ VMB178 VMS178 VMV178 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
(void)(sputprop(VV[232],VV[9],Cnil)); |
|
4638 |
{object V390 = Cnil; |
{object V390 = Cnil; |
4639 |
VMR178(V390)} |
VMR178(V390)} |
4640 |
|
base[0]=base[0]; |
4641 |
return Cnil; |
return Cnil; |
4642 |
} |
} |
4643 |
/* local entry for function progn 'compile7049 */ |
/* local entry for function progn 'compile7054 */ |
4644 |
|
|
4645 |
static object LI179() |
static object LI179() |
4646 |
|
|
4651 |
VMR179(V391)} |
VMR179(V391)} |
4652 |
return Cnil; |
return Cnil; |
4653 |
} |
} |
4654 |
/* function definition for Defclass INTERNAL-PACKAGE-ERROR7069 */ |
/* function definition for Defclass INTERNAL-TYPE-ERROR7074 */ |
4655 |
|
|
4656 |
static void L180() |
static void L180() |
4657 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4666 |
base[3]= Cnil; |
base[3]= Cnil; |
4667 |
base[4]= Cnil; |
base[4]= Cnil; |
4668 |
base[5]= Cnil; |
base[5]= Cnil; |
4669 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4670 |
return; |
return; |
4671 |
} |
} |
4672 |
/* local entry for function progn 'compile7085 */ |
/* local entry for function progn 'compile7090 */ |
4673 |
|
|
4674 |
static object LI181() |
static object LI181() |
4675 |
|
|
4677 |
goto TTL; |
goto TTL; |
4678 |
TTL:; |
TTL:; |
4679 |
vs_base=vs_top; |
vs_base=vs_top; |
4680 |
(void) (*Lnk320)(); |
(void) (*Lnk326)(); |
4681 |
vs_top=sup; |
vs_top=sup; |
4682 |
{object V392 = Cnil; |
{object V392 = Cnil; |
4683 |
VMR181(V392)} |
VMR181(V392)} |
4684 |
base[0]=base[0]; |
base[0]=base[0]; |
4685 |
return Cnil; |
return Cnil; |
4686 |
} |
} |
4687 |
/* local entry for function progn 'compile7102 */ |
/* local entry for function progn 'compile7107 */ |
4688 |
|
|
4689 |
static object LI182() |
static object LI182() |
4690 |
|
|
4702 |
base[0]=base[0]; |
base[0]=base[0]; |
4703 |
return Cnil; |
return Cnil; |
4704 |
} |
} |
4705 |
/* local entry for function progn 'compile7126 */ |
/* local entry for function progn 'compile7131 */ |
4706 |
|
|
4707 |
static object LI183() |
static object LI183() |
4708 |
|
|
4714 |
VMR183(V395)} |
VMR183(V395)} |
4715 |
return Cnil; |
return Cnil; |
4716 |
} |
} |
4717 |
/* local entry for function progn 'compile7138 */ |
/* local entry for function progn 'compile7143 */ |
4718 |
|
|
4719 |
static object LI184() |
static object LI184() |
4720 |
|
|
4725 |
VMR184(V396)} |
VMR184(V396)} |
4726 |
return Cnil; |
return Cnil; |
4727 |
} |
} |
4728 |
/* function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */ |
/* function definition for Defclass INTERNAL-PACKAGE-ERROR7163 */ |
4729 |
|
|
4730 |
static void L185() |
static void L185() |
4731 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4740 |
base[3]= Cnil; |
base[3]= Cnil; |
4741 |
base[4]= Cnil; |
base[4]= Cnil; |
4742 |
base[5]= Cnil; |
base[5]= Cnil; |
4743 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4744 |
return; |
return; |
4745 |
} |
} |
4746 |
/* local entry for function progn 'compile7174 */ |
/* local entry for function progn 'compile7179 */ |
4747 |
|
|
4748 |
static object LI186() |
static object LI186() |
4749 |
|
|
4751 |
goto TTL; |
goto TTL; |
4752 |
TTL:; |
TTL:; |
4753 |
vs_base=vs_top; |
vs_base=vs_top; |
4754 |
(void) (*Lnk321)(); |
(void) (*Lnk327)(); |
4755 |
vs_top=sup; |
vs_top=sup; |
4756 |
{object V397 = Cnil; |
{object V397 = Cnil; |
4757 |
VMR186(V397)} |
VMR186(V397)} |
4758 |
base[0]=base[0]; |
base[0]=base[0]; |
4759 |
return Cnil; |
return Cnil; |
4760 |
} |
} |
4761 |
/* local entry for function progn 'compile7191 */ |
/* local entry for function progn 'compile7196 */ |
4762 |
|
|
4763 |
static object LI187() |
static object LI187() |
4764 |
|
|
4776 |
base[0]=base[0]; |
base[0]=base[0]; |
4777 |
return Cnil; |
return Cnil; |
4778 |
} |
} |
4779 |
/* local entry for function progn 'compile7215 */ |
/* local entry for function progn 'compile7220 */ |
4780 |
|
|
4781 |
static object LI188() |
static object LI188() |
4782 |
|
|
4788 |
VMR188(V400)} |
VMR188(V400)} |
4789 |
return Cnil; |
return Cnil; |
4790 |
} |
} |
4791 |
/* local entry for function progn 'compile7227 */ |
/* local entry for function progn 'compile7232 */ |
4792 |
|
|
4793 |
static object LI189() |
static object LI189() |
4794 |
|
|
4799 |
VMR189(V401)} |
VMR189(V401)} |
4800 |
return Cnil; |
return Cnil; |
4801 |
} |
} |
4802 |
/* function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */ |
/* function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7252 */ |
4803 |
|
|
4804 |
static void L190() |
static void L190() |
4805 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4814 |
base[3]= Cnil; |
base[3]= Cnil; |
4815 |
base[4]= Cnil; |
base[4]= Cnil; |
4816 |
base[5]= Cnil; |
base[5]= Cnil; |
4817 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4818 |
return; |
return; |
4819 |
} |
} |
4820 |
/* local entry for function progn 'compile7263 */ |
/* local entry for function progn 'compile7268 */ |
4821 |
|
|
4822 |
static object LI191() |
static object LI191() |
4823 |
|
|
4825 |
goto TTL; |
goto TTL; |
4826 |
TTL:; |
TTL:; |
4827 |
vs_base=vs_top; |
vs_base=vs_top; |
4828 |
(void) (*Lnk322)(); |
(void) (*Lnk328)(); |
4829 |
vs_top=sup; |
vs_top=sup; |
4830 |
{object V402 = Cnil; |
{object V402 = Cnil; |
4831 |
VMR191(V402)} |
VMR191(V402)} |
4832 |
base[0]=base[0]; |
base[0]=base[0]; |
4833 |
return Cnil; |
return Cnil; |
4834 |
} |
} |
4835 |
/* local entry for function progn 'compile7280 */ |
/* local entry for function progn 'compile7285 */ |
4836 |
|
|
4837 |
static object LI192() |
static object LI192() |
4838 |
|
|
4850 |
base[0]=base[0]; |
base[0]=base[0]; |
4851 |
return Cnil; |
return Cnil; |
4852 |
} |
} |
4853 |
/* local entry for function progn 'compile7304 */ |
/* local entry for function progn 'compile7309 */ |
4854 |
|
|
4855 |
static object LI193() |
static object LI193() |
4856 |
|
|
4862 |
VMR193(V405)} |
VMR193(V405)} |
4863 |
return Cnil; |
return Cnil; |
4864 |
} |
} |
4865 |
/* local entry for function progn 'compile7316 */ |
/* local entry for function progn 'compile7321 */ |
4866 |
|
|
4867 |
static object LI194() |
static object LI194() |
4868 |
|
|
4873 |
VMR194(V406)} |
VMR194(V406)} |
4874 |
return Cnil; |
return Cnil; |
4875 |
} |
} |
4876 |
/* function definition for Defclass INTERNAL-UNBOUND-VARIABLE7336 */ |
/* function definition for Defclass INTERNAL-SIMPLE-PARSE-ERROR7341 */ |
4877 |
|
|
4878 |
static void L195() |
static void L195() |
4879 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4888 |
base[3]= Cnil; |
base[3]= Cnil; |
4889 |
base[4]= Cnil; |
base[4]= Cnil; |
4890 |
base[5]= Cnil; |
base[5]= Cnil; |
4891 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4892 |
return; |
return; |
4893 |
} |
} |
4894 |
/* local entry for function progn 'compile7352 */ |
/* local entry for function progn 'compile7357 */ |
4895 |
|
|
4896 |
static object LI196() |
static object LI196() |
4897 |
|
|
4899 |
goto TTL; |
goto TTL; |
4900 |
TTL:; |
TTL:; |
4901 |
vs_base=vs_top; |
vs_base=vs_top; |
4902 |
(void) (*Lnk323)(); |
(void) (*Lnk329)(); |
4903 |
vs_top=sup; |
vs_top=sup; |
4904 |
{object V407 = Cnil; |
{object V407 = Cnil; |
4905 |
VMR196(V407)} |
VMR196(V407)} |
4906 |
base[0]=base[0]; |
base[0]=base[0]; |
4907 |
return Cnil; |
return Cnil; |
4908 |
} |
} |
4909 |
/* local entry for function progn 'compile7369 */ |
/* local entry for function progn 'compile7374 */ |
4910 |
|
|
4911 |
static object LI197() |
static object LI197() |
4912 |
|
|
4924 |
base[0]=base[0]; |
base[0]=base[0]; |
4925 |
return Cnil; |
return Cnil; |
4926 |
} |
} |
4927 |
/* local entry for function progn 'compile7393 */ |
/* local entry for function progn 'compile7398 */ |
4928 |
|
|
4929 |
static object LI198() |
static object LI198() |
4930 |
|
|
4936 |
VMR198(V410)} |
VMR198(V410)} |
4937 |
return Cnil; |
return Cnil; |
4938 |
} |
} |
4939 |
/* local entry for function progn 'compile7405 */ |
/* local entry for function progn 'compile7410 */ |
4940 |
|
|
4941 |
static object LI199() |
static object LI199() |
4942 |
|
|
4947 |
VMR199(V411)} |
VMR199(V411)} |
4948 |
return Cnil; |
return Cnil; |
4949 |
} |
} |
4950 |
/* function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7425 */ |
/* function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7430 */ |
4951 |
|
|
4952 |
static void L200() |
static void L200() |
4953 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4962 |
base[3]= Cnil; |
base[3]= Cnil; |
4963 |
base[4]= Cnil; |
base[4]= Cnil; |
4964 |
base[5]= Cnil; |
base[5]= Cnil; |
4965 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
4966 |
return; |
return; |
4967 |
} |
} |
4968 |
/* local entry for function progn 'compile7441 */ |
/* local entry for function progn 'compile7446 */ |
4969 |
|
|
4970 |
static object LI201() |
static object LI201() |
4971 |
|
|
4973 |
goto TTL; |
goto TTL; |
4974 |
TTL:; |
TTL:; |
4975 |
vs_base=vs_top; |
vs_base=vs_top; |
4976 |
(void) (*Lnk324)(); |
(void) (*Lnk330)(); |
4977 |
vs_top=sup; |
vs_top=sup; |
4978 |
{object V412 = Cnil; |
{object V412 = Cnil; |
4979 |
VMR201(V412)} |
VMR201(V412)} |
4980 |
base[0]=base[0]; |
base[0]=base[0]; |
4981 |
return Cnil; |
return Cnil; |
4982 |
} |
} |
4983 |
/* local entry for function progn 'compile7458 */ |
/* local entry for function progn 'compile7463 */ |
4984 |
|
|
4985 |
static object LI202() |
static object LI202() |
4986 |
|
|
4998 |
base[0]=base[0]; |
base[0]=base[0]; |
4999 |
return Cnil; |
return Cnil; |
5000 |
} |
} |
5001 |
/* local entry for function progn 'compile7482 */ |
/* local entry for function progn 'compile7487 */ |
5002 |
|
|
5003 |
static object LI203() |
static object LI203() |
5004 |
|
|
5010 |
VMR203(V415)} |
VMR203(V415)} |
5011 |
return Cnil; |
return Cnil; |
5012 |
} |
} |
5013 |
/* local entry for function progn 'compile7494 */ |
/* local entry for function progn 'compile7499 */ |
5014 |
|
|
5015 |
static object LI204() |
static object LI204() |
5016 |
|
|
5021 |
VMR204(V416)} |
VMR204(V416)} |
5022 |
return Cnil; |
return Cnil; |
5023 |
} |
} |
5024 |
/* function definition for Defclass INTERNAL-END-OF-FILE7514 */ |
/* function definition for Defclass INTERNAL-UNBOUND-VARIABLE7519 */ |
5025 |
|
|
5026 |
static void L205() |
static void L205() |
5027 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5036 |
base[3]= Cnil; |
base[3]= Cnil; |
5037 |
base[4]= Cnil; |
base[4]= Cnil; |
5038 |
base[5]= Cnil; |
base[5]= Cnil; |
5039 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
5040 |
return; |
return; |
5041 |
} |
} |
5042 |
/* local entry for function progn 'compile7530 */ |
/* local entry for function progn 'compile7535 */ |
5043 |
|
|
5044 |
static object LI206() |
static object LI206() |
5045 |
|
|
5047 |
goto TTL; |
goto TTL; |
5048 |
TTL:; |
TTL:; |
5049 |
vs_base=vs_top; |
vs_base=vs_top; |
5050 |
(void) (*Lnk325)(); |
(void) (*Lnk331)(); |
5051 |
vs_top=sup; |
vs_top=sup; |
5052 |
{object V417 = Cnil; |
{object V417 = Cnil; |
5053 |
VMR206(V417)} |
VMR206(V417)} |
5054 |
base[0]=base[0]; |
base[0]=base[0]; |
5055 |
return Cnil; |
return Cnil; |
5056 |
} |
} |
5057 |
/* local entry for function progn 'compile7547 */ |
/* local entry for function progn 'compile7552 */ |
5058 |
|
|
5059 |
static object LI207() |
static object LI207() |
5060 |
|
|
5072 |
base[0]=base[0]; |
base[0]=base[0]; |
5073 |
return Cnil; |
return Cnil; |
5074 |
} |
} |
5075 |
/* local entry for function progn 'compile7571 */ |
/* local entry for function progn 'compile7576 */ |
5076 |
|
|
5077 |
static object LI208() |
static object LI208() |
5078 |
|
|
5084 |
VMR208(V420)} |
VMR208(V420)} |
5085 |
return Cnil; |
return Cnil; |
5086 |
} |
} |
5087 |
/* local entry for function progn 'compile7583 */ |
/* local entry for function progn 'compile7588 */ |
5088 |
|
|
5089 |
static object LI209() |
static object LI209() |
5090 |
|
|
5095 |
VMR209(V421)} |
VMR209(V421)} |
5096 |
return Cnil; |
return Cnil; |
5097 |
} |
} |
5098 |
/* function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */ |
/* function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7608 */ |
5099 |
|
|
5100 |
static void L210() |
static void L210() |
5101 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5110 |
base[3]= Cnil; |
base[3]= Cnil; |
5111 |
base[4]= Cnil; |
base[4]= Cnil; |
5112 |
base[5]= Cnil; |
base[5]= Cnil; |
5113 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
5114 |
return; |
return; |
5115 |
} |
} |
5116 |
/* local entry for function progn 'compile7619 */ |
/* local entry for function progn 'compile7624 */ |
5117 |
|
|
5118 |
static object LI211() |
static object LI211() |
5119 |
|
|
5121 |
goto TTL; |
goto TTL; |
5122 |
TTL:; |
TTL:; |
5123 |
vs_base=vs_top; |
vs_base=vs_top; |
5124 |
(void) (*Lnk326)(); |
(void) (*Lnk332)(); |
5125 |
vs_top=sup; |
vs_top=sup; |
5126 |
{object V422 = Cnil; |
{object V422 = Cnil; |
5127 |
VMR211(V422)} |
VMR211(V422)} |
5128 |
base[0]=base[0]; |
base[0]=base[0]; |
5129 |
return Cnil; |
return Cnil; |
5130 |
} |
} |
5131 |
/* local entry for function progn 'compile7636 */ |
/* local entry for function progn 'compile7641 */ |
5132 |
|
|
5133 |
static object LI212() |
static object LI212() |
5134 |
|
|
5146 |
base[0]=base[0]; |
base[0]=base[0]; |
5147 |
return Cnil; |
return Cnil; |
5148 |
} |
} |
5149 |
/* local entry for function progn 'compile7660 */ |
/* local entry for function progn 'compile7665 */ |
5150 |
|
|
5151 |
static object LI213() |
static object LI213() |
5152 |
|
|
5158 |
VMR213(V425)} |
VMR213(V425)} |
5159 |
return Cnil; |
return Cnil; |
5160 |
} |
} |
5161 |
/* local entry for function progn 'compile7672 */ |
/* local entry for function progn 'compile7677 */ |
5162 |
|
|
5163 |
static object LI214() |
static object LI214() |
5164 |
|
|
5169 |
VMR214(V426)} |
VMR214(V426)} |
5170 |
return Cnil; |
return Cnil; |
5171 |
} |
} |
5172 |
/* function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */ |
/* function definition for Defclass INTERNAL-END-OF-FILE7697 */ |
5173 |
|
|
5174 |
static void L215() |
static void L215() |
5175 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5184 |
base[3]= Cnil; |
base[3]= Cnil; |
5185 |
base[4]= Cnil; |
base[4]= Cnil; |
5186 |
base[5]= Cnil; |
base[5]= Cnil; |
5187 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[267],base+0,6); |
5188 |
return; |
return; |
5189 |
} |
} |
5190 |
/* local entry for function progn 'compile7708 */ |
/* local entry for function progn 'compile7713 */ |
5191 |
|
|
5192 |
static object LI216() |
static object LI216() |
5193 |
|
|
5195 |
goto TTL; |
goto TTL; |
5196 |
TTL:; |
TTL:; |
5197 |
vs_base=vs_top; |
vs_base=vs_top; |
5198 |
(void) (*Lnk327)(); |
(void) (*Lnk333)(); |
5199 |
vs_top=sup; |
vs_top=sup; |
5200 |
{object V427 = Cnil; |
{object V427 = Cnil; |
5201 |
VMR216(V427)} |
VMR216(V427)} |
5202 |
base[0]=base[0]; |
base[0]=base[0]; |
5203 |
return Cnil; |
return Cnil; |
5204 |
} |
} |
5205 |
/* local entry for function progn 'compile7725 */ |
/* local entry for function progn 'compile7730 */ |
5206 |
|
|
5207 |
static object LI217() |
static object LI217() |
5208 |
|
|
5220 |
base[0]=base[0]; |
base[0]=base[0]; |
5221 |
return Cnil; |
return Cnil; |
5222 |
} |
} |
5223 |
/* local entry for function progn 'compile7749 */ |
/* local entry for function progn 'compile7754 */ |
5224 |
|
|
5225 |
static object LI218() |
static object LI218() |
5226 |
|
|
5232 |
VMR218(V430)} |
VMR218(V430)} |
5233 |
return Cnil; |
return Cnil; |
5234 |
} |
} |
5235 |
/* local entry for function progn 'compile7761 */ |
/* local entry for function progn 'compile7766 */ |
5236 |
|
|
5237 |
static object LI219() |
static object LI219() |
5238 |
|
|
5243 |
VMR219(V431)} |
VMR219(V431)} |
5244 |
return Cnil; |
return Cnil; |
5245 |
} |
} |
5246 |
/* local entry for function progn 'compile7777 */ |
/* function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7786 */ |
|
|
|
|
static object LI220() |
|
5247 |
|
|
5248 |
{ VMB220 VMS220 VMV220 |
static void L220() |
5249 |
|
{register object *base=vs_base; |
5250 |
|
register object *sup=base+VM220; VC220 |
5251 |
|
vs_check; |
5252 |
|
vs_top=sup; |
5253 |
goto TTL; |
goto TTL; |
5254 |
TTL:; |
TTL:; |
5255 |
base[0]= VV[259]; |
base[0]= VV[259]; |
5256 |
vs_top=(vs_base=base+0)+1; |
base[1]= VV[5]; |
5257 |
(void) (*Lnk328)(); |
base[2]= VV[260]; |
5258 |
vs_top=sup; |
base[3]= Cnil; |
5259 |
{object V432 = Cnil; |
base[4]= Cnil; |
5260 |
VMR220(V432)} |
base[5]= Cnil; |
5261 |
base[0]=base[0]; |
symlispcall(VV[267],base+0,6); |
5262 |
return Cnil; |
return; |
5263 |
} |
} |
5264 |
/* local entry for function progn 'compile7789 */ |
/* local entry for function progn 'compile7802 */ |
5265 |
|
|
5266 |
static object LI221() |
static object LI221() |
5267 |
|
|
5268 |
{ VMB221 VMS221 VMV221 |
{ VMB221 VMS221 VMV221 |
5269 |
goto TTL; |
goto TTL; |
5270 |
TTL:; |
TTL:; |
5271 |
if(!((VV[259])->s.s_dbind!=OBJNULL)){ |
vs_base=vs_top; |
5272 |
goto T1506;} |
(void) (*Lnk334)(); |
|
goto T1505; |
|
|
goto T1506; |
|
|
T1506:; |
|
|
base[0]= VV[16]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk329)(); |
|
5273 |
vs_top=sup; |
vs_top=sup; |
5274 |
(VV[259]->s.s_dbind)= vs_base[0]; |
{object V432 = Cnil; |
5275 |
goto T1505; |
VMR221(V432)} |
|
T1505:; |
|
|
{object V433 = Cnil; |
|
|
VMR221(V433)} |
|
5276 |
base[0]=base[0]; |
base[0]=base[0]; |
5277 |
return Cnil; |
return Cnil; |
5278 |
} |
} |
5279 |
/* local entry for function progn 'compile7802 */ |
/* local entry for function progn 'compile7819 */ |
5280 |
|
|
5281 |
static object LI222() |
static object LI222() |
5282 |
|
|
5283 |
{ VMB222 VMS222 VMV222 |
{ VMB222 VMS222 VMV222 |
5284 |
goto TTL; |
goto TTL; |
5285 |
TTL:; |
TTL:; |
5286 |
|
base[0]= VV[261]; |
5287 |
|
base[1]= (VV[8]->s.s_dbind); |
5288 |
|
vs_top=(vs_base=base+0)+2; |
5289 |
|
Ladjoin(); |
5290 |
|
vs_top=sup; |
5291 |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
5292 |
{object V434 = Cnil; |
{object V434 = Cnil; |
5293 |
VMR222(V434)} |
VMR222(V434)} |
5294 |
|
base[0]=base[0]; |
5295 |
return Cnil; |
return Cnil; |
5296 |
} |
} |
5297 |
/* local entry for function SIMPLE-CONDITION-CLASS-P */ |
/* local entry for function progn 'compile7843 */ |
5298 |
|
|
5299 |
static object LI223(V436) |
static object LI223() |
5300 |
|
|
|
register object V436; |
|
5301 |
{ VMB223 VMS223 VMV223 |
{ VMB223 VMS223 VMV223 |
5302 |
goto TTL; |
goto TTL; |
5303 |
TTL:; |
TTL:; |
5304 |
if(!(type_of((V436))==t_symbol)){ |
(void)(sputprop(VV[259],VV[9],Cnil)); |
5305 |
goto T1511;} |
{object V435 = Cnil; |
5306 |
base[0]= (V436); |
VMR223(V435)} |
5307 |
vs_top=(vs_base=base+0)+1; |
return Cnil; |
5308 |
(void) (*Lnk329)(); |
} |
5309 |
|
/* local entry for function progn 'compile7855 */ |
5310 |
|
|
5311 |
|
static object LI224() |
5312 |
|
|
5313 |
|
{ VMB224 VMS224 VMV224 |
5314 |
|
goto TTL; |
5315 |
|
TTL:; |
5316 |
|
{object V436 = Cnil; |
5317 |
|
VMR224(V436)} |
5318 |
|
return Cnil; |
5319 |
|
} |
5320 |
|
/* function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7875 */ |
5321 |
|
|
5322 |
|
static void L225() |
5323 |
|
{register object *base=vs_base; |
5324 |
|
register object *sup=base+VM225; VC225 |
5325 |
|
vs_check; |
5326 |
vs_top=sup; |
vs_top=sup; |
5327 |
V436= vs_base[0]; |
goto TTL; |
5328 |
goto T1511; |
TTL:; |
5329 |
T1511:; |
base[0]= VV[262]; |
|
base[0]= (V436); |
|
5330 |
base[1]= VV[5]; |
base[1]= VV[5]; |
5331 |
vs_top=(vs_base=base+0)+2; |
base[2]= VV[263]; |
5332 |
(void) (*Lnk330)(); |
base[3]= Cnil; |
5333 |
|
base[4]= Cnil; |
5334 |
|
base[5]= Cnil; |
5335 |
|
symlispcall(VV[267],base+0,6); |
5336 |
|
return; |
5337 |
|
} |
5338 |
|
/* local entry for function progn 'compile7891 */ |
5339 |
|
|
5340 |
|
static object LI226() |
5341 |
|
|
5342 |
|
{ VMB226 VMS226 VMV226 |
5343 |
|
goto TTL; |
5344 |
|
TTL:; |
5345 |
|
vs_base=vs_top; |
5346 |
|
(void) (*Lnk335)(); |
5347 |
vs_top=sup; |
vs_top=sup; |
|
if((vs_base[0])!=Cnil){ |
|
|
goto T1516;} |
|
5348 |
{object V437 = Cnil; |
{object V437 = Cnil; |
5349 |
VMR223(V437)} |
VMR226(V437)} |
5350 |
goto T1516; |
base[0]=base[0]; |
5351 |
T1516:;{object V439; |
return Cnil; |
5352 |
V439= (VV[259]->s.s_dbind); |
} |
5353 |
base[0]= (V436); |
/* local entry for function progn 'compile7908 */ |
5354 |
|
|
5355 |
|
static object LI227() |
5356 |
|
|
5357 |
|
{ VMB227 VMS227 VMV227 |
5358 |
|
goto TTL; |
5359 |
|
TTL:; |
5360 |
|
base[0]= VV[264]; |
5361 |
|
base[1]= (VV[8]->s.s_dbind); |
5362 |
|
vs_top=(vs_base=base+0)+2; |
5363 |
|
Ladjoin(); |
5364 |
|
vs_top=sup; |
5365 |
|
(VV[8]->s.s_dbind)= vs_base[0]; |
5366 |
|
{object V439 = Cnil; |
5367 |
|
VMR227(V439)} |
5368 |
|
base[0]=base[0]; |
5369 |
|
return Cnil; |
5370 |
|
} |
5371 |
|
/* local entry for function progn 'compile7932 */ |
5372 |
|
|
5373 |
|
static object LI228() |
5374 |
|
|
5375 |
|
{ VMB228 VMS228 VMV228 |
5376 |
|
goto TTL; |
5377 |
|
TTL:; |
5378 |
|
(void)(sputprop(VV[262],VV[9],Cnil)); |
5379 |
|
{object V440 = Cnil; |
5380 |
|
VMR228(V440)} |
5381 |
|
return Cnil; |
5382 |
|
} |
5383 |
|
/* local entry for function progn 'compile7944 */ |
5384 |
|
|
5385 |
|
static object LI229() |
5386 |
|
|
5387 |
|
{ VMB229 VMS229 VMV229 |
5388 |
|
goto TTL; |
5389 |
|
TTL:; |
5390 |
|
{object V441 = Cnil; |
5391 |
|
VMR229(V441)} |
5392 |
|
return Cnil; |
5393 |
|
} |
5394 |
|
/* local entry for function progn 'compile7960 */ |
5395 |
|
|
5396 |
|
static object LI230() |
5397 |
|
|
5398 |
|
{ VMB230 VMS230 VMV230 |
5399 |
|
goto TTL; |
5400 |
|
TTL:; |
5401 |
|
base[0]= VV[265]; |
5402 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5403 |
(void) (*Lnk331)(Lclptr331); |
(void) (*Lnk336)(); |
5404 |
vs_top=sup; |
vs_top=sup; |
|
V440= vs_base[0]; |
|
|
{register object x= V439,V438= V440; |
|
|
while(V438!=Cnil) |
|
|
if(eql(x,V438->c.c_car)){ |
|
|
{object V441 = V438; |
|
|
VMR223(V441)} |
|
|
}else V438=V438->c.c_cdr; |
|
5405 |
{object V442 = Cnil; |
{object V442 = Cnil; |
5406 |
VMR223(V442)}}} |
VMR230(V442)} |
5407 |
|
base[0]=base[0]; |
5408 |
|
return Cnil; |
5409 |
|
} |
5410 |
|
/* local entry for function progn 'compile7972 */ |
5411 |
|
|
5412 |
|
static object LI231() |
5413 |
|
|
5414 |
|
{ VMB231 VMS231 VMV231 |
5415 |
|
goto TTL; |
5416 |
|
TTL:; |
5417 |
|
if(!((VV[265])->s.s_dbind!=OBJNULL)){ |
5418 |
|
goto T1532;} |
5419 |
|
goto T1531; |
5420 |
|
goto T1532; |
5421 |
|
T1532:; |
5422 |
|
base[0]= VV[16]; |
5423 |
|
vs_top=(vs_base=base+0)+1; |
5424 |
|
(void) (*Lnk337)(); |
5425 |
|
vs_top=sup; |
5426 |
|
(VV[265]->s.s_dbind)= vs_base[0]; |
5427 |
|
goto T1531; |
5428 |
|
T1531:; |
5429 |
|
{object V443 = Cnil; |
5430 |
|
VMR231(V443)} |
5431 |
base[0]=base[0]; |
base[0]=base[0]; |
5432 |
return Cnil; |
return Cnil; |
5433 |
} |
} |
5434 |
static void LnkT331(ptr) object *ptr;{ call_or_link_closure(VV[331],(void **)(void *)&Lnk331,(void **)(void *)&Lclptr331);} /* CLASS-PRECEDENCE-LIST */ |
/* local entry for function progn 'compile7985 */ |
5435 |
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* TYPEP */ |
|
5436 |
static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* FIND-CLASS */ |
static object LI232() |
5437 |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* *MAKE-SPECIAL */ |
|
5438 |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */ |
{ VMB232 VMS232 VMV232 |
5439 |
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */ |
goto TTL; |
5440 |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-END-OF-FILE7514 */ |
TTL:; |
5441 |
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7425 */ |
{object V444 = Cnil; |
5442 |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-UNBOUND-VARIABLE7336 */ |
VMR232(V444)} |
5443 |
static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */ |
return Cnil; |
5444 |
static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */ |
} |
5445 |
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-PACKAGE-ERROR7069 */ |
/* local entry for function SIMPLE-CONDITION-CLASS-P */ |
5446 |
static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* Defclass INTERNAL-TYPE-ERROR6980 */ |
|
5447 |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */ |
static object LI233(V446) |
5448 |
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass INTERNAL-SIMPLE-ERROR6686 */ |
|
5449 |
static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* INTERNAL-ERROR-FUNCTION-NAME */ |
register object V446; |
5450 |
static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* Defclass INTERNAL-ERROR6259 */ |
{ VMB233 VMS233 VMV233 |
5451 |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass ABORT-FAILURE5957 */ |
goto TTL; |
5452 |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-UNDERFLOW5868 */ |
TTL:; |
5453 |
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass FLOATING-POINT-OVERFLOW5779 */ |
if(!(type_of((V446))==t_symbol)){ |
5454 |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass DIVISION-BY-ZERO5690 */ |
goto T1537;} |
5455 |
static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* Defclass ARITHMETIC-ERROR5600 */ |
base[0]= (V446); |
5456 |
static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* Defclass UNDEFINED-FUNCTION5302 */ |
vs_top=(vs_base=base+0)+1; |
5457 |
static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* CELL-ERROR-NAME */ |
(void) (*Lnk337)(); |
5458 |
static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass UNBOUND-VARIABLE5004 */ |
vs_top=sup; |
5459 |
static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* Defclass CELL-ERROR4914 */ |
V446= vs_base[0]; |
5460 |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-MESSAGE */ |
goto T1537; |
5461 |
static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* PACKAGE-ERROR-PACKAGE */ |
T1537:; |
5462 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass PACKAGE-ERROR4614 */ |
base[0]= (V446); |
5463 |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass FILE-ERROR4524 */ |
base[1]= VV[5]; |
5464 |
static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* STREAM-ERROR-STREAM */ |
vs_top=(vs_base=base+0)+2; |
5465 |
static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass END-OF-FILE4226 */ |
(void) (*Lnk338)(); |
5466 |
static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass STREAM-ERROR4136 */ |
vs_top=sup; |
5467 |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass CONTROL-ERROR4047 */ |
if((vs_base[0])!=Cnil){ |
5468 |
static void LnkT290(){ call_or_link(VV[290],(void **)(void *)&Lnk290);} /* Defclass PROGRAM-ERROR3958 */ |
goto T1542;} |
5469 |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-POSSIBILITIES */ |
{object V447 = Cnil; |
5470 |
static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CASE-FAILURE-NAME */ |
VMR233(V447)} |
5471 |
static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass CASE-FAILURE3658 */ |
goto T1542; |
5472 |
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass SIMPLE-TYPE-ERROR3569 */ |
T1542:;{object V449; |
5473 |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-EXPECTED-TYPE */ |
V449= (VV[265]->s.s_dbind); |
5474 |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* TYPE-ERROR-DATUM */ |
base[0]= (V446); |
5475 |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass TYPE-ERROR3269 */ |
vs_top=(vs_base=base+0)+1; |
5476 |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STORAGE-EXHAUSTED3180 */ |
(void) (*Lnk339)(Lclptr339); |
5477 |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STACK-OVERFLOW3091 */ |
vs_top=sup; |
5478 |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass STORAGE-CONDITION3002 */ |
V450= vs_base[0]; |
5479 |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-ERROR2913 */ |
{register object x= V449,V448= V450; |
5480 |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* Defclass SIMPLE-WARNING2824 */ |
while(V448!=Cnil) |
5481 |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* LOAD-DEFMETHOD */ |
if(eql(x,V448->c.c_car)){ |
5482 |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */ |
{object V451 = V448; |
5483 |
static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* ERROR */ |
VMR233(V451)} |
5484 |
|
}else V448=V448->c.c_cdr; |
5485 |
|
{object V452 = Cnil; |
5486 |
|
VMR233(V452)}}} |
5487 |
|
base[0]=base[0]; |
5488 |
|
return Cnil; |
5489 |
|
} |
5490 |
|
static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* CLASS-PRECEDENCE-LIST */ |
5491 |
|
static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* TYPEP */ |
5492 |
|
static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* FIND-CLASS */ |
5493 |
|
static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* *MAKE-SPECIAL */ |
5494 |
|
static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7875 */ |
5495 |
|
static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7786 */ |
5496 |
|
static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* Defclass INTERNAL-END-OF-FILE7697 */ |
5497 |
|
static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7608 */ |
5498 |
|
static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* Defclass INTERNAL-UNBOUND-VARIABLE7519 */ |
5499 |
|
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7430 */ |
5500 |
|
static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* Defclass INTERNAL-SIMPLE-PARSE-ERROR7341 */ |
5501 |
|
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7252 */ |
5502 |
|
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-PACKAGE-ERROR7163 */ |
5503 |
|
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-TYPE-ERROR7074 */ |
5504 |
|
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */ |
5505 |
|
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-SIMPLE-ERROR6780 */ |
5506 |
|
static void LnkT321(ptr) object *ptr;{ call_or_link_closure(VV[321],(void **)(void *)&Lnk321,(void **)(void *)&Lclptr321);} /* INTERNAL-ERROR-FUNCTION-NAME */ |
5507 |
|
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-ERROR6353 */ |
5508 |
|
static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* Defclass ABORT-FAILURE6051 */ |
5509 |
|
static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* Defclass FLOATING-POINT-UNDERFLOW5962 */ |
5510 |
|
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass FLOATING-POINT-OVERFLOW5873 */ |
5511 |
|
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* Defclass DIVISION-BY-ZERO5784 */ |
5512 |
|
static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* Defclass ARITHMETIC-ERROR5694 */ |
5513 |
|
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* Defclass UNDEFINED-FUNCTION5396 */ |
5514 |
|
static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* CELL-ERROR-NAME */ |
5515 |
|
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass UNBOUND-VARIABLE5098 */ |
5516 |
|
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass CELL-ERROR5008 */ |
5517 |
|
static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* PACKAGE-ERROR-MESSAGE */ |
5518 |
|
static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* PACKAGE-ERROR-PACKAGE */ |
5519 |
|
static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* Defclass PACKAGE-ERROR4708 */ |
5520 |
|
static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* Defclass FILE-ERROR4618 */ |
5521 |
|
static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* STREAM-ERROR-STREAM */ |
5522 |
|
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* Defclass END-OF-FILE4320 */ |
5523 |
|
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* Defclass STREAM-ERROR4230 */ |
5524 |
|
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* Defclass PARSE-ERROR4141 */ |
5525 |
|
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass CONTROL-ERROR4052 */ |
5526 |
|
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass PROGRAM-ERROR3963 */ |
5527 |
|
static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* CASE-FAILURE-POSSIBILITIES */ |
5528 |
|
static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* CASE-FAILURE-NAME */ |
5529 |
|
static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass CASE-FAILURE3663 */ |
5530 |
|
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass SIMPLE-TYPE-ERROR3574 */ |
5531 |
|
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* TYPE-ERROR-EXPECTED-TYPE */ |
5532 |
|
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* TYPE-ERROR-DATUM */ |
5533 |
|
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* Defclass TYPE-ERROR3274 */ |
5534 |
|
static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass STORAGE-EXHAUSTED3185 */ |
5535 |
|
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass STACK-OVERFLOW3096 */ |
5536 |
|
static void LnkT284(){ call_or_link(VV[284],(void **)(void *)&Lnk284);} /* Defclass STORAGE-CONDITION3007 */ |
5537 |
|
static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* Defclass SIMPLE-ERROR2918 */ |
5538 |
|
static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* Defclass SIMPLE-WARNING2829 */ |
5539 |
|
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* LOAD-DEFMETHOD */ |
5540 |
|
static object LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */ |
5541 |
|
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* ERROR */ |
5542 |
static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */ |
static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */ |
5543 |
static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* CCLOSURE-ENV-NTHCDR */ |
5544 |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* STRUCTURE-SUBTYPE-P */ |
5545 |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* PROCLAIM-DEFGENERIC */ |
5546 |
static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2528 */ |
static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* Defclass SIMPLE-CONDITION2533 */ |
5547 |
static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */ |
static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */ |
5548 |
static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */ |
static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* SIMPLE-CONDITION-FORMAT-STRING */ |
5549 |
static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2431 */ |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* Defclass ERROR2436 */ |
5550 |
static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2342 */ |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* Defclass SERIOUS-CONDITION2347 */ |
5551 |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2253 */ |
static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass WARNING2258 */ |
5552 |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */ |
static void LnkT266(){ call_or_link(VV[266],(void **)(void *)&Lnk266);} /* REMOVE */ |
5553 |
|
|
5554 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5555 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |