2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "pcl_env.h" |
#include "pcl_env.h" |
4 |
void init_pcl_env(){do_init(VV);} |
void init_pcl_env(){do_init(VV);} |
5 |
/* function definition for (DEFGENERIC DESCRIBE-OBJECT)9122 */ |
/* function definition for (DEFGENERIC DESCRIBE-OBJECT)9136 */ |
6 |
|
|
7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
15 |
base[0]= VV[0]; |
base[0]= VV[0]; |
16 |
base[1]= VV[1]; |
base[1]= VV[1]; |
17 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
18 |
(void) (*Lnk69)(); |
(void) (*Lnk71)(); |
19 |
return; |
return; |
20 |
} |
} |
21 |
/* function definition for PCL-DESCRIBE */ |
/* function definition for PCL-DESCRIBE */ |
64 |
vs_top=sup; |
vs_top=sup; |
65 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
66 |
goto T10;} |
goto T10;} |
67 |
base[4]= (*(LnkLI70))((V4),(V5)); |
base[4]= (*(LnkLI72))((V4),(V5)); |
68 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
69 |
return; |
return; |
70 |
goto T10; |
goto T10; |
109 |
object V14; |
object V14; |
110 |
object V15; |
object V15; |
111 |
object V16; |
object V16; |
112 |
V12= (*(LnkLI71))((V10)); |
V12= (*(LnkLI73))((V10)); |
113 |
base[7]= (V12); |
base[7]= (V12); |
114 |
base[8]= (V10); |
base[8]= (V10); |
115 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
116 |
(void) (*Lnk72)(Lclptr72); |
(void) (*Lnk74)(Lclptr74); |
117 |
vs_top=sup; |
vs_top=sup; |
118 |
V13= vs_base[0]; |
V13= vs_base[0]; |
119 |
base[6]= small_fixnum(0); |
base[6]= small_fixnum(0); |
133 |
T30:; |
T30:; |
134 |
base[9]= (V18); |
base[9]= (V18); |
135 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
136 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
137 |
vs_top=sup; |
vs_top=sup; |
138 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
139 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
141 |
vs_top=sup; |
vs_top=sup; |
142 |
base[8]= (V18); |
base[8]= (V18); |
143 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
144 |
(void) (*Lnk74)(Lclptr74); |
(void) (*Lnk76)(Lclptr76); |
145 |
vs_top=sup; |
vs_top=sup; |
146 |
V20= vs_base[0]; |
V20= vs_base[0]; |
147 |
{object V19= V20; |
{object V19= V20; |
148 |
if((V19!= VV[75]))goto T40; |
if((V19!= VV[77]))goto T40; |
149 |
V14= make_cons(V18,(V14)); |
V14= make_cons(V18,(V14)); |
150 |
goto T37; |
goto T37; |
151 |
goto T40; |
goto T40; |
152 |
T40:; |
T40:; |
153 |
if((V19!= VV[76]))goto T42; |
if((V19!= VV[78]))goto T42; |
154 |
V15= make_cons(V18,(V15)); |
V15= make_cons(V18,(V15)); |
155 |
goto T37; |
goto T37; |
156 |
goto T42; |
goto T42; |
192 |
T67:; |
T67:; |
193 |
base[10]= (V26); |
base[10]= (V26); |
194 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
195 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
196 |
vs_top=sup; |
vs_top=sup; |
197 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
198 |
base[11]= (V10); |
base[11]= (V10); |
199 |
base[13]= (V26); |
base[13]= (V26); |
200 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
201 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
202 |
vs_top=sup; |
vs_top=sup; |
203 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
204 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
205 |
(void) (*Lnk77)(); |
(void) (*Lnk79)(); |
206 |
vs_top=sup; |
vs_top=sup; |
207 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
208 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
233 |
T93:; |
T93:; |
234 |
base[10]= (V28); |
base[10]= (V28); |
235 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
236 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
237 |
vs_top=sup; |
vs_top=sup; |
238 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
239 |
base[11]= (V10); |
base[11]= (V10); |
240 |
base[13]= (V28); |
base[13]= (V28); |
241 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
242 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
243 |
vs_top=sup; |
vs_top=sup; |
244 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
245 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
246 |
(void) (*Lnk77)(); |
(void) (*Lnk79)(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
249 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
274 |
T119:; |
T119:; |
275 |
base[10]= (V30); |
base[10]= (V30); |
276 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
277 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
278 |
vs_top=sup; |
vs_top=sup; |
279 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
280 |
base[11]= (V10); |
base[11]= (V10); |
281 |
base[13]= (V30); |
base[13]= (V30); |
282 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
283 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk75)(Lclptr75); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
286 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
287 |
(void) (*Lnk77)(); |
(void) (*Lnk79)(); |
288 |
vs_top=sup; |
vs_top=sup; |
289 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
290 |
base[12]= (V30); |
base[12]= (V30); |
291 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
292 |
(void) (*Lnk74)(Lclptr74); |
(void) (*Lnk76)(Lclptr76); |
293 |
vs_top=sup; |
vs_top=sup; |
294 |
base[11]= vs_base[0]; |
base[11]= vs_base[0]; |
295 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
325 |
TTL:; |
TTL:; |
326 |
base[4]= (V33); |
base[4]= (V33); |
327 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
328 |
(void) (*Lnk78)(Lclptr78); |
(void) (*Lnk80)(Lclptr80); |
329 |
return; |
return; |
330 |
} |
} |
331 |
} |
} |
357 |
base[5]= VV[12]; |
base[5]= VV[12]; |
358 |
base[7]= (V38); |
base[7]= (V38); |
359 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
360 |
(void) (*Lnk79)(Lclptr79); |
(void) (*Lnk81)(Lclptr81); |
361 |
vs_top=sup; |
vs_top=sup; |
362 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
363 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
372 |
register object V42; |
register object V42; |
373 |
base[6]= (V38); |
base[6]= (V38); |
374 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
375 |
(void) (*Lnk80)(Lclptr80); |
(void) (*Lnk82)(Lclptr82); |
376 |
vs_top=sup; |
vs_top=sup; |
377 |
V41= vs_base[0]; |
V41= vs_base[0]; |
378 |
V42= CMPcar((V41)); |
V42= CMPcar((V41)); |
387 |
base[7]= VV[14]; |
base[7]= VV[14]; |
388 |
base[9]= (V42); |
base[9]= (V42); |
389 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
390 |
(void) (*Lnk81)(Lclptr81); |
(void) (*Lnk83)(Lclptr83); |
391 |
vs_top=sup; |
vs_top=sup; |
392 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
393 |
base[9]= (*(LnkLI82))((V42)); |
base[9]= (*(LnkLI84))((V42)); |
394 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
395 |
Lformat(); |
Lformat(); |
396 |
vs_top=sup;{object V43; |
vs_top=sup;{object V43; |
397 |
base[7]= (V42); |
base[7]= (V42); |
398 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
399 |
(void) (*Lnk83)(Lclptr83); |
(void) (*Lnk85)(Lclptr85); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
V43= vs_base[0]; |
V43= vs_base[0]; |
402 |
if(V43==Cnil)goto T175; |
if(V43==Cnil)goto T175; |
406 |
T175:;} |
T175:;} |
407 |
base[7]= (V42); |
base[7]= (V42); |
408 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
409 |
(void) (*Lnk84)(Lclptr84); |
(void) (*Lnk86)(Lclptr86); |
410 |
vs_top=sup; |
vs_top=sup; |
411 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
412 |
goto T174; |
goto T174; |
427 |
base[4]= (V37); |
base[4]= (V37); |
428 |
base[5]= VV[16]; |
base[5]= VV[16]; |
429 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
430 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
431 |
vs_top=sup; |
vs_top=sup; |
432 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
433 |
goto T193;} |
goto T193;} |
462 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
463 |
base[5]= (V38); |
base[5]= (V38); |
464 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
465 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
V48= vs_base[0]; |
V48= vs_base[0]; |
468 |
if(!((V47)==(CMPcar(V48)))){ |
if(!((V47)==(CMPcar(V48)))){ |
491 |
base[4]= (V49); |
base[4]= (V49); |
492 |
base[5]= VV[20]; |
base[5]= VV[20]; |
493 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
494 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
495 |
vs_top=sup; |
vs_top=sup; |
496 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
497 |
goto T221;} |
goto T221;} |
550 |
base[6]= (V49); |
base[6]= (V49); |
551 |
base[7]= VV[22]; |
base[7]= VV[22]; |
552 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
553 |
(void) (*Lnk88)(); |
(void) (*Lnk90)(); |
554 |
vs_top=sup; |
vs_top=sup; |
555 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
556 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
590 |
base[4]= (V57); |
base[4]= (V57); |
591 |
base[5]= VV[24]; |
base[5]= VV[24]; |
592 |
base[6]= (V56); |
base[6]= (V56); |
593 |
base[8]= (*(LnkLI71))((V56)); |
base[8]= (*(LnkLI73))((V56)); |
594 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
595 |
L10(base); |
L10(base); |
596 |
vs_top=sup; |
vs_top=sup; |
601 |
{register object V59; |
{register object V59; |
602 |
base[4]= (V56); |
base[4]= (V56); |
603 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
604 |
(void) (*Lnk89)(Lclptr89); |
(void) (*Lnk91)(Lclptr91); |
605 |
vs_top=sup; |
vs_top=sup; |
606 |
V59= vs_base[0]; |
V59= vs_base[0]; |
607 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
608 |
goto T263;} |
goto T263;} |
609 |
V60= (VFUN_NARGS=2,(*(LnkLI90))((V59),Cnil)); |
V60= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil)); |
610 |
if(!(((V56))==(/* INLINE-ARGS */V60))){ |
if(!(((V56))==(/* INLINE-ARGS */V60))){ |
611 |
goto T266;} |
goto T266;} |
612 |
base[4]= (V57); |
base[4]= (V57); |
638 |
base[5]= VV[28]; |
base[5]= VV[28]; |
639 |
base[8]= (V56); |
base[8]= (V56); |
640 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
641 |
(void) (*Lnk91)(Lclptr91); |
(void) (*Lnk93)(Lclptr93); |
642 |
vs_top=sup; |
vs_top=sup; |
643 |
V63= vs_base[0]; |
V63= vs_base[0]; |
644 |
{object V61; |
{object V61; |
663 |
T278:; |
T278:; |
664 |
base[9]= (V56); |
base[9]= (V56); |
665 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
666 |
(void) (*Lnk92)(Lclptr92); |
(void) (*Lnk94)(Lclptr94); |
667 |
vs_top=sup; |
vs_top=sup; |
668 |
V66= vs_base[0]; |
V66= vs_base[0]; |
669 |
{object V64; |
{object V64; |
688 |
T284:; |
T284:; |
689 |
base[10]= (V56); |
base[10]= (V56); |
690 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
691 |
(void) (*Lnk93)(Lclptr93); |
(void) (*Lnk95)(Lclptr95); |
692 |
vs_top=sup; |
vs_top=sup; |
693 |
V69= vs_base[0]; |
V69= vs_base[0]; |
694 |
{object V67; |
{object V67; |
713 |
T290:; |
T290:; |
714 |
base[10]= (V56); |
base[10]= (V56); |
715 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
716 |
(void) (*Lnk94)(Lclptr94); |
(void) (*Lnk96)(Lclptr96); |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
V70= vs_base[0]; |
V70= vs_base[0]; |
719 |
base[9]= CMPmake_fixnum((long)length(V70)); |
base[9]= CMPmake_fixnum((long)length(V70)); |
727 |
base[4]= (V55); |
base[4]= (V55); |
728 |
base[5]= VV[16]; |
base[5]= VV[16]; |
729 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
730 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
731 |
vs_top=sup; |
vs_top=sup; |
732 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
733 |
goto T307;} |
goto T307;} |
762 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
763 |
base[5]= (V56); |
base[5]= (V56); |
764 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
765 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
766 |
vs_top=sup; |
vs_top=sup; |
767 |
V75= vs_base[0]; |
V75= vs_base[0]; |
768 |
if(!((V74)==(CMPcar(V75)))){ |
if(!((V74)==(CMPcar(V75)))){ |
791 |
base[4]= (V76); |
base[4]= (V76); |
792 |
base[5]= VV[20]; |
base[5]= VV[20]; |
793 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
794 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
795 |
vs_top=sup; |
vs_top=sup; |
796 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
797 |
goto T335;} |
goto T335;} |
850 |
base[6]= (V76); |
base[6]= (V76); |
851 |
base[7]= VV[30]; |
base[7]= VV[30]; |
852 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
853 |
(void) (*Lnk88)(); |
(void) (*Lnk90)(); |
854 |
vs_top=sup; |
vs_top=sup; |
855 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
856 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
934 |
{object V89; |
{object V89; |
935 |
register object V90; |
register object V90; |
936 |
register object V91; |
register object V91; |
937 |
base[0]= V83; |
{object V92; |
938 |
|
V92= (V83); |
939 |
|
base[0]= (V92); |
940 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
941 |
Lpackagep(); |
Lpackagep(); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])!=Cnil){ |
944 |
goto T393;} |
goto T392;} |
945 |
V89= V83; |
base[0]= coerce_to_string((V92)); |
|
goto T391; |
|
|
goto T393; |
|
|
T393:; |
|
|
base[0]= coerce_to_string(V83); |
|
946 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
947 |
Lfind_package(); |
Lfind_package(); |
948 |
vs_top=sup; |
vs_top=sup; |
949 |
V89= vs_base[0]; |
V92= vs_base[0]; |
950 |
goto T391; |
if(((V92))!=Cnil){ |
951 |
T391:; |
goto T392;} |
952 |
|
base[0]= VV[33]; |
953 |
|
base[1]= VV[34]; |
954 |
|
base[2]= (V83); |
955 |
|
vs_top=(vs_base=base+0)+3; |
956 |
|
(void) (*Lnk97)(); |
957 |
|
vs_top=sup; |
958 |
|
goto T392; |
959 |
|
T392:; |
960 |
|
V89= (V92);} |
961 |
V90= Cnil; |
V90= Cnil; |
962 |
V91= Cnil; |
V91= Cnil; |
963 |
{object V93; |
{long V93; |
964 |
object V94; |
long V94; |
965 |
base[1]= (V89); |
base[0]= (V89); |
966 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
967 |
(void) (*Lnk95)(); |
(void) (*Lnk98)(); |
968 |
vs_top=sup; |
vs_top=sup; |
969 |
V93= vs_base[0]; |
V93= fix(vs_base[0]); |
970 |
V94= small_fixnum(0); |
V94= 0; |
971 |
goto T401; |
goto T407; |
972 |
T401:; |
T407:; |
973 |
if(!(number_compare((V94),(V93))>=0)){ |
if(!((V94)>=(V93))){ |
974 |
goto T402;} |
goto T410;} |
975 |
V90= Cnil; |
V90= Cnil; |
976 |
goto T390; |
goto T390; |
977 |
goto T402; |
goto T410; |
978 |
T402:; |
T410:; |
979 |
base[1]= (V89); |
base[0]= (V89); |
980 |
base[2]= (V94); |
base[1]= CMPmake_fixnum(V94); |
981 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
982 |
siLpackage_external(); |
siLpackage_external(); |
983 |
vs_top=sup; |
vs_top=sup; |
984 |
V91= vs_base[0]; |
V91= vs_base[0]; |
985 |
goto T409; |
goto T408; |
986 |
T409:; |
T408:; |
987 |
if(((V91))!=Cnil){ |
if(((V91))!=Cnil){ |
988 |
goto T414;} |
goto T418;} |
989 |
goto T410; |
goto T409; |
990 |
goto T414; |
goto T418; |
991 |
T414:; |
T418:; |
992 |
V90= CMPcar((V91)); |
V90= CMPcar((V91)); |
993 |
V88= number_plus((V88),small_fixnum(1)); |
V88= number_plus((V88),small_fixnum(1)); |
994 |
V91= CMPcdr((V91)); |
V91= CMPcdr((V91)); |
995 |
|
goto T408; |
996 |
goto T409; |
goto T409; |
997 |
goto T410; |
T409:; |
998 |
T410:; |
V94= (long)(V94)+1; |
999 |
goto T407; |
goto T407;}} |
|
goto T407; |
|
|
T407:; |
|
|
V94= one_plus((V94)); |
|
|
goto T401;}} |
|
1000 |
goto T390; |
goto T390; |
1001 |
T390:; |
T390:; |
1002 |
{register object V95; |
{register object V95; |
1003 |
object V96; |
object V96; |
1004 |
register object V97; |
register object V97; |
1005 |
base[0]= V83; |
{object V98; |
1006 |
|
V98= (V83); |
1007 |
|
base[0]= (V98); |
1008 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1009 |
Lpackagep(); |
Lpackagep(); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])!=Cnil){ |
1012 |
goto T429;} |
goto T432;} |
1013 |
V95= V83; |
base[0]= coerce_to_string((V98)); |
|
goto T427; |
|
|
goto T429; |
|
|
T429:; |
|
|
base[0]= coerce_to_string(V83); |
|
1014 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1015 |
Lfind_package(); |
Lfind_package(); |
1016 |
vs_top=sup; |
vs_top=sup; |
1017 |
V95= vs_base[0]; |
V98= vs_base[0]; |
1018 |
goto T427; |
if(((V98))!=Cnil){ |
1019 |
T427:; |
goto T432;} |
1020 |
|
base[0]= VV[33]; |
1021 |
|
base[1]= VV[34]; |
1022 |
|
base[2]= (V83); |
1023 |
|
vs_top=(vs_base=base+0)+3; |
1024 |
|
(void) (*Lnk97)(); |
1025 |
|
vs_top=sup; |
1026 |
|
goto T432; |
1027 |
|
T432:; |
1028 |
|
V95= (V98);} |
1029 |
V96= Cnil; |
V96= Cnil; |
1030 |
V97= Cnil; |
V97= Cnil; |
1031 |
{object V99; |
{object V99; |
1037 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1038 |
V99= make_cons((V95),V101); |
V99= make_cons((V95),V101); |
1039 |
V100= CMPcar((V99)); |
V100= CMPcar((V99)); |
1040 |
goto T438; |
goto T448; |
1041 |
T438:; |
T448:; |
1042 |
if(!(((V99))==Cnil)){ |
if(!(((V99))==Cnil)){ |
1043 |
goto T439;} |
goto T449;} |
1044 |
V96= Cnil; |
V96= Cnil; |
1045 |
goto T426; |
goto T430; |
1046 |
goto T439; |
goto T449; |
1047 |
T439:; |
T449:; |
1048 |
{long V102; |
{long V102; |
1049 |
register long V103; |
register long V103; |
1050 |
base[2]= (V100); |
base[2]= (V100); |
1051 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1052 |
(void) (*Lnk95)(); |
(void) (*Lnk98)(); |
1053 |
if(vs_base>=vs_top){vs_top=sup;goto T448;} |
if(vs_base>=vs_top){vs_top=sup;goto T458;} |
1054 |
V102= fix(vs_base[0]); |
V102= fix(vs_base[0]); |
1055 |
vs_base++; |
vs_base++; |
1056 |
if(vs_base>=vs_top){vs_top=sup;goto T449;} |
if(vs_base>=vs_top){vs_top=sup;goto T459;} |
1057 |
V103= fix(vs_base[0]); |
V103= fix(vs_base[0]); |
1058 |
vs_top=sup; |
vs_top=sup; |
1059 |
goto T450; |
goto T460; |
|
goto T448; |
|
|
T448:; |
|
|
V102= fix(Cnil); |
|
|
goto T449; |
|
|
T449:; |
|
|
V103= fix(Cnil); |
|
|
goto T450; |
|
|
T450:; |
|
|
if(((V95))==((V100))){ |
|
|
goto T451;} |
|
|
V103= 0; |
|
|
goto T451; |
|
|
T451:; |
|
|
{object V104; |
|
|
register object V105; |
|
|
V106 = CMPmake_fixnum(V103); |
|
|
V107 = CMPmake_fixnum(V102); |
|
|
V104= number_plus(V106,V107); |
|
|
V105= small_fixnum(0); |
|
1060 |
goto T458; |
goto T458; |
1061 |
T458:; |
T458:; |
1062 |
if(!(number_compare((V105),(V104))>=0)){ |
V102= fix(Cnil); |
|
goto T459;} |
|
|
goto T445; |
|
1063 |
goto T459; |
goto T459; |
1064 |
T459:; |
T459:; |
1065 |
V108 = CMPmake_fixnum(V103); |
V103= fix(Cnil); |
1066 |
if(!(number_compare((V105),V108)<0)){ |
goto T460; |
1067 |
goto T468;} |
T460:; |
1068 |
base[3]= (V100); |
if(((V95))==((V100))){ |
1069 |
base[4]= (V105); |
goto T461;} |
1070 |
vs_top=(vs_base=base+3)+2; |
V103= 0; |
1071 |
|
goto T461; |
1072 |
|
T461:; |
1073 |
|
{long V104; |
1074 |
|
register long V105; |
1075 |
|
V104= (long)(V103)+(V102); |
1076 |
|
V105= 0; |
1077 |
|
goto T468; |
1078 |
|
T468:; |
1079 |
|
if(!((V105)>=(V104))){ |
1080 |
|
goto T471;} |
1081 |
|
goto T455; |
1082 |
|
goto T471; |
1083 |
|
T471:; |
1084 |
|
if(!((V105)<(V103))){ |
1085 |
|
goto T476;} |
1086 |
|
base[2]= (V100); |
1087 |
|
base[3]= CMPmake_fixnum(V105); |
1088 |
|
vs_top=(vs_base=base+2)+2; |
1089 |
siLpackage_internal(); |
siLpackage_internal(); |
1090 |
vs_top=sup; |
vs_top=sup; |
1091 |
V97= vs_base[0]; |
V97= vs_base[0]; |
1092 |
goto T466; |
goto T474; |
1093 |
goto T468; |
goto T476; |
1094 |
T468:; |
T476:; |
1095 |
base[3]= (V100); |
base[2]= (V100); |
1096 |
V109 = CMPmake_fixnum(V103); |
V106 = CMPmake_fixnum(V105); |
1097 |
base[4]= number_minus((V105),V109); |
V107 = CMPmake_fixnum(V103); |
1098 |
vs_top=(vs_base=base+3)+2; |
base[3]= number_minus(V106,V107); |
1099 |
|
vs_top=(vs_base=base+2)+2; |
1100 |
siLpackage_external(); |
siLpackage_external(); |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
V97= vs_base[0]; |
V97= vs_base[0]; |
|
goto T466; |
|
|
T466:; |
|
|
goto T464; |
|
|
T464:; |
|
|
if(((V97))!=Cnil){ |
|
|
goto T474;} |
|
|
goto T465; |
|
1103 |
goto T474; |
goto T474; |
1104 |
T474:; |
T474:; |
1105 |
|
goto T469; |
1106 |
|
T469:; |
1107 |
|
if(((V97))!=Cnil){ |
1108 |
|
goto T482;} |
1109 |
|
goto T470; |
1110 |
|
goto T482; |
1111 |
|
T482:; |
1112 |
V96= CMPcar((V97)); |
V96= CMPcar((V97)); |
1113 |
if(((V100))==((V95))){ |
if(((V100))==((V95))){ |
1114 |
goto T480;} |
goto T488;} |
1115 |
base[4]= symbol_name((V96)); |
base[3]= symbol_name((V96)); |
1116 |
base[5]= (V95); |
base[4]= (V95); |
1117 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+3)+2; |
1118 |
Lfind_symbol(); |
Lfind_symbol(); |
1119 |
Llist(); |
Llist(); |
1120 |
vs_top=sup; |
vs_top=sup; |
1121 |
base[3]= vs_base[0]; |
base[2]= vs_base[0]; |
1122 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
1123 |
Llast(); |
Llast(); |
1124 |
vs_top=sup; |
vs_top=sup; |
1125 |
V110= vs_base[0]; |
V108= vs_base[0]; |
1126 |
if(!((VV[33])==(CMPcar(V110)))){ |
if(!((VV[35])==(CMPcar(V108)))){ |
1127 |
goto T479;} |
goto T487;} |
1128 |
goto T480; |
goto T488; |
1129 |
T480:; |
T488:; |
1130 |
V87= number_plus((V87),small_fixnum(1)); |
V87= number_plus((V87),small_fixnum(1)); |
1131 |
goto T479; |
goto T487; |
1132 |
T479:; |
T487:; |
1133 |
V97= CMPcdr((V97)); |
V97= CMPcdr((V97)); |
1134 |
goto T464; |
goto T469; |
1135 |
goto T465; |
goto T470; |
1136 |
T465:; |
T470:; |
1137 |
goto T462; |
V105= (long)(V105)+1; |
1138 |
goto T462; |
goto T468;}} |
1139 |
T462:; |
goto T455; |
1140 |
V105= one_plus((V105)); |
T455:; |
|
goto T458;}} |
|
|
goto T445; |
|
|
T445:; |
|
1141 |
V99= CMPcdr((V99)); |
V99= CMPcdr((V99)); |
1142 |
V100= CMPcar((V99)); |
V100= CMPcar((V99)); |
1143 |
goto T438;}} |
goto T448;}} |
1144 |
goto T426; |
goto T430; |
1145 |
T426:; |
T430:; |
1146 |
V87= number_minus((V87),(V88)); |
V87= number_minus((V87),(V88)); |
1147 |
base[0]= (V84); |
base[0]= (V84); |
1148 |
base[1]= VV[34]; |
base[1]= VV[36]; |
1149 |
base[2]= (V87); |
base[2]= (V87); |
1150 |
base[3]= (V88); |
base[3]= (V88); |
1151 |
base[4]= number_plus((V87),(V88)); |
base[4]= number_plus((V87),(V88)); |
1152 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1153 |
Lformat(); |
Lformat(); |
1154 |
vs_top=sup;} |
vs_top=sup;} |
1155 |
{object V111; |
{object V109; |
1156 |
base[0]= (V83); |
base[0]= (V83); |
1157 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1158 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1159 |
vs_top=sup; |
vs_top=sup; |
1160 |
V111= vs_base[0]; |
V109= vs_base[0]; |
1161 |
if(((V111))==Cnil){ |
if(((V109))==Cnil){ |
1162 |
goto T508;} |
goto T516;} |
1163 |
base[0]= (V84); |
base[0]= (V84); |
1164 |
base[1]= VV[35]; |
base[1]= VV[37]; |
1165 |
{object V112; |
{object V110; |
1166 |
object V113= (V111); |
object V111= (V109); |
1167 |
if(V113==Cnil){ |
if(V111==Cnil){ |
1168 |
base[2]= Cnil; |
base[2]= Cnil; |
1169 |
goto T515;} |
goto T523;} |
1170 |
base[3]=V112=MMcons(Cnil,Cnil); |
base[3]=V110=MMcons(Cnil,Cnil); |
1171 |
goto T516; |
goto T524; |
1172 |
T516:; |
T524:; |
1173 |
base[4]= (V113->c.c_car); |
base[4]= (V111->c.c_car); |
1174 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1175 |
Lpackage_name(); |
Lpackage_name(); |
1176 |
vs_top=sup; |
vs_top=sup; |
1177 |
(V112->c.c_car)= vs_base[0]; |
(V110->c.c_car)= vs_base[0]; |
1178 |
if((V113=MMcdr(V113))==Cnil){ |
if((V111=MMcdr(V111))==Cnil){ |
1179 |
base[2]= base[3]; |
base[2]= base[3]; |
1180 |
goto T515;} |
goto T523;} |
1181 |
V112=MMcdr(V112)=MMcons(Cnil,Cnil); |
V110=MMcdr(V110)=MMcons(Cnil,Cnil); |
1182 |
goto T516;} |
goto T524;} |
1183 |
goto T515; |
goto T523; |
1184 |
T515:; |
T523:; |
1185 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1186 |
Lformat(); |
Lformat(); |
1187 |
vs_top=sup;} |
vs_top=sup;} |
1188 |
goto T508; |
goto T516; |
1189 |
T508:; |
T516:; |
1190 |
{object V114; |
{object V112; |
1191 |
base[0]= (V83); |
base[0]= (V83); |
1192 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1193 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1194 |
vs_top=sup; |
vs_top=sup; |
1195 |
V114= vs_base[0]; |
V112= vs_base[0]; |
1196 |
if(((V114))==Cnil){ |
if(((V112))==Cnil){ |
1197 |
goto T522;} |
goto T530;} |
1198 |
base[0]= (V84); |
base[0]= (V84); |
1199 |
base[1]= VV[36]; |
base[1]= VV[38]; |
1200 |
{object V115; |
{object V113; |
1201 |
object V116= (V114); |
object V114= (V112); |
1202 |
if(V116==Cnil){ |
if(V114==Cnil){ |
1203 |
base[2]= Cnil; |
base[2]= Cnil; |
1204 |
goto T526;} |
goto T534;} |
1205 |
base[3]=V115=MMcons(Cnil,Cnil); |
base[3]=V113=MMcons(Cnil,Cnil); |
1206 |
goto T527; |
goto T535; |
1207 |
T527:; |
T535:; |
1208 |
base[4]= (V116->c.c_car); |
base[4]= (V114->c.c_car); |
1209 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1210 |
Lpackage_name(); |
Lpackage_name(); |
1211 |
vs_top=sup; |
vs_top=sup; |
1212 |
(V115->c.c_car)= vs_base[0]; |
(V113->c.c_car)= vs_base[0]; |
1213 |
if((V116=MMcdr(V116))==Cnil){ |
if((V114=MMcdr(V114))==Cnil){ |
1214 |
base[2]= base[3]; |
base[2]= base[3]; |
1215 |
goto T526;} |
goto T534;} |
1216 |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
V113=MMcdr(V113)=MMcons(Cnil,Cnil); |
1217 |
goto T527;} |
goto T535;} |
1218 |
goto T526; |
goto T534; |
1219 |
T526:; |
T534:; |
1220 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1221 |
Lformat(); |
Lformat(); |
1222 |
vs_top=sup; |
vs_top=sup; |
1223 |
{object V117 = vs_base[0]; |
{object V115 = vs_base[0]; |
1224 |
VMR8(V117)} |
VMR8(V115)} |
1225 |
goto T522; |
goto T530; |
1226 |
T522:; |
T530:; |
1227 |
{object V118 = Cnil; |
{object V116 = Cnil; |
1228 |
VMR8(V118)}} |
VMR8(V116)}} |
1229 |
base[0]=base[0]; |
base[0]=base[0]; |
1230 |
return Cnil; |
return Cnil; |
1231 |
} |
} |
1232 |
/* function definition for Defclass TRACED-METHOD9243 */ |
/* function definition for Defclass TRACED-METHOD9257 */ |
1233 |
|
|
1234 |
static void L12() |
static void L12() |
1235 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1239 |
vs_top=sup; |
vs_top=sup; |
1240 |
goto TTL; |
goto TTL; |
1241 |
TTL:; |
TTL:; |
1242 |
base[0]= VV[37]; |
base[0]= VV[39]; |
1243 |
base[1]= VV[38]; |
base[1]= VV[40]; |
1244 |
base[2]= VV[39]; |
base[2]= VV[41]; |
1245 |
V119= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil); |
V117= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil); |
1246 |
V120= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil); |
V118= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil); |
1247 |
base[4]= VV[49]; |
base[4]= VV[51]; |
1248 |
base[5]= (VV[96]->s.s_gfdef); |
base[5]= (VV[99]->s.s_gfdef); |
1249 |
base[6]= VV[40]; |
base[6]= VV[42]; |
1250 |
base[7]= VV[50]; |
base[7]= VV[52]; |
1251 |
base[8]= VV[42]; |
base[8]= VV[44]; |
1252 |
base[9]= VV[51]; |
base[9]= VV[53]; |
1253 |
base[10]= VV[43]; |
base[10]= VV[45]; |
1254 |
base[11]= VV[52]; |
base[11]= VV[54]; |
1255 |
base[12]= VV[44]; |
base[12]= VV[46]; |
1256 |
base[13]= Cnil; |
base[13]= Cnil; |
1257 |
base[14]= VV[53]; |
base[14]= VV[55]; |
1258 |
vs_top=(vs_base=base+4)+11; |
vs_top=(vs_base=base+4)+11; |
1259 |
LlistA(); |
LlistA(); |
1260 |
vs_top=sup; |
vs_top=sup; |
1261 |
V121= vs_base[0]; |
V119= vs_base[0]; |
1262 |
base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121); |
base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119); |
1263 |
base[4]= Cnil; |
base[4]= Cnil; |
1264 |
base[5]= VV[54]; |
base[5]= VV[56]; |
1265 |
symlispcall(VV[97],base+0,6); |
symlispcall(VV[100],base+0,6); |
1266 |
return; |
return; |
1267 |
} |
} |
1268 |
/* function definition for (FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD)) */ |
/* function definition for (FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD)) */ |
1271 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1272 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
1273 |
vs_check; |
vs_check; |
1274 |
{object V122; |
{object V120; |
1275 |
object V123; |
object V121; |
1276 |
register object V124; |
register object V122; |
1277 |
check_arg(3); |
check_arg(3); |
1278 |
V122=(base[0]); |
V120=(base[0]); |
1279 |
V123=(base[1]); |
V121=(base[1]); |
1280 |
V124=(base[2]); |
V122=(base[2]); |
1281 |
vs_top=sup; |
vs_top=sup; |
1282 |
goto TTL; |
goto TTL; |
1283 |
TTL:; |
TTL:; |
1284 |
|
{object V124; |
1285 |
|
object V125; |
1286 |
|
V124= CMPcar((V120)); |
1287 |
|
V125= CMPcdr((V120)); |
1288 |
{object V126; |
{object V126; |
1289 |
object V127; |
if(type_of(V122)==t_structure){ |
1290 |
V126= CMPcar((V122)); |
goto T566;} |
1291 |
V127= CMPcdr((V122)); |
goto T564; |
1292 |
{object V128; |
goto T566; |
1293 |
if(type_of(V124)==t_structure){ |
T566:; |
1294 |
goto T558;} |
if(!(((V122)->str.str_def)==(VV[57]))){ |
1295 |
goto T556; |
goto T564;} |
1296 |
goto T558; |
V126= STREF(object,(V122),4); |
1297 |
T558:; |
goto T562; |
1298 |
if(!(((V124)->str.str_def)==(VV[55]))){ |
goto T564; |
1299 |
goto T556;} |
T564:;{object V128; |
1300 |
V128= STREF(object,(V124),4); |
V128= (VV[19]->s.s_dbind); |
|
goto T554; |
|
|
goto T556; |
|
|
T556:;{object V130; |
|
|
V130= (VV[19]->s.s_dbind); |
|
1301 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1302 |
base[4]= (V124); |
base[4]= (V122); |
1303 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1304 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
1305 |
vs_top=sup; |
vs_top=sup; |
1306 |
V131= vs_base[0]; |
V129= vs_base[0]; |
1307 |
if(!((V130)==(CMPcar(V131)))){ |
if(!((V128)==(CMPcar(V129)))){ |
1308 |
goto T561;}} |
goto T569;}} |
1309 |
V128= CMPcar(((V124))->cc.cc_turbo[12]); |
V126= CMPcar(((V122))->cc.cc_turbo[12]); |
1310 |
goto T554; |
goto T562; |
1311 |
goto T561; |
goto T569; |
1312 |
T561:; |
T569:; |
1313 |
V128= Cnil; |
V126= Cnil; |
1314 |
goto T554; |
goto T562; |
1315 |
T554:; |
T562:; |
1316 |
{register object V133; |
{register object V131; |
1317 |
V133= ((V126))->v.v_self[1]; |
V131= ((V124))->v.v_self[1]; |
1318 |
if(!(type_of(V133)==t_fixnum)){ |
if(!(type_of(V131)==t_fixnum)){ |
1319 |
goto T573;} |
goto T581;} |
1320 |
V133= ((V128))->v.v_self[fix((V133))]; |
V131= ((V126))->v.v_self[fix((V131))]; |
1321 |
goto T571; |
goto T579; |
1322 |
goto T573; |
goto T581; |
1323 |
T573:; |
T581:; |
1324 |
V133= VV[56]; |
V131= VV[58]; |
1325 |
goto T571; |
goto T579; |
1326 |
T571:; |
T579:; |
1327 |
if(!(((V133))==(VV[56]))){ |
if(!(((V131))==(VV[58]))){ |
1328 |
goto T576;} |
goto T584;} |
1329 |
base[4]= (V124); |
base[4]= (V122); |
1330 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1331 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
1332 |
vs_top=sup; |
vs_top=sup; |
1333 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1334 |
goto T568; |
goto T576; |
1335 |
|
goto T584; |
1336 |
|
T584:; |
1337 |
|
base[3]= (V131);} |
1338 |
goto T576; |
goto T576; |
1339 |
T576:; |
T576:; |
|
base[3]= (V133);} |
|
|
goto T568; |
|
|
T568:; |
|
1340 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1341 |
(void) (*Lnk98)(Lclptr98); |
(void) (*Lnk101)(Lclptr101); |
1342 |
return;}} |
return;}} |
1343 |
} |
} |
1344 |
} |
} |
1348 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1349 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1350 |
vs_check; |
vs_check; |
1351 |
{object V135; |
{object V133; |
1352 |
object V136; |
object V134; |
1353 |
register object V137; |
register object V135; |
1354 |
check_arg(3); |
check_arg(3); |
1355 |
V135=(base[0]); |
V133=(base[0]); |
1356 |
V136=(base[1]); |
V134=(base[1]); |
1357 |
V137=(base[2]); |
V135=(base[2]); |
1358 |
vs_top=sup; |
vs_top=sup; |
1359 |
goto TTL; |
goto TTL; |
1360 |
TTL:; |
TTL:; |
1361 |
|
{object V137; |
1362 |
|
object V138; |
1363 |
|
V137= CMPcar((V133)); |
1364 |
|
V138= CMPcdr((V133)); |
1365 |
{object V139; |
{object V139; |
1366 |
object V140; |
if(type_of(V135)==t_structure){ |
1367 |
V139= CMPcar((V135)); |
goto T597;} |
1368 |
V140= CMPcdr((V135)); |
goto T595; |
1369 |
{object V141; |
goto T597; |
1370 |
if(type_of(V137)==t_structure){ |
T597:; |
1371 |
goto T589;} |
if(!(((V135)->str.str_def)==(VV[59]))){ |
1372 |
goto T587; |
goto T595;} |
1373 |
goto T589; |
V139= STREF(object,(V135),4); |
1374 |
T589:; |
goto T593; |
1375 |
if(!(((V137)->str.str_def)==(VV[57]))){ |
goto T595; |
1376 |
goto T587;} |
T595:;{object V141; |
1377 |
V141= STREF(object,(V137),4); |
V141= (VV[19]->s.s_dbind); |
|
goto T585; |
|
|
goto T587; |
|
|
T587:;{object V143; |
|
|
V143= (VV[19]->s.s_dbind); |
|
1378 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1379 |
base[4]= (V137); |
base[4]= (V135); |
1380 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1381 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
1382 |
vs_top=sup; |
vs_top=sup; |
1383 |
V144= vs_base[0]; |
V142= vs_base[0]; |
1384 |
if(!((V143)==(CMPcar(V144)))){ |
if(!((V141)==(CMPcar(V142)))){ |
1385 |
goto T592;}} |
goto T600;}} |
1386 |
V141= CMPcar(((V137))->cc.cc_turbo[12]); |
V139= CMPcar(((V135))->cc.cc_turbo[12]); |
1387 |
goto T585; |
goto T593; |
1388 |
goto T592; |
goto T600; |
1389 |
T592:; |
T600:; |
1390 |
V141= Cnil; |
V139= Cnil; |
1391 |
goto T585; |
goto T593; |
1392 |
T585:; |
T593:; |
1393 |
{register object V146; |
{register object V144; |
1394 |
V146= ((V139))->v.v_self[1]; |
V144= ((V137))->v.v_self[1]; |
1395 |
if(!(type_of(V146)==t_fixnum)){ |
if(!(type_of(V144)==t_fixnum)){ |
1396 |
goto T604;} |
goto T612;} |
1397 |
V146= ((V141))->v.v_self[fix((V146))]; |
V144= ((V139))->v.v_self[fix((V144))]; |
1398 |
goto T602; |
goto T610; |
1399 |
goto T604; |
goto T612; |
1400 |
T604:; |
T612:; |
1401 |
V146= VV[56]; |
V144= VV[58]; |
1402 |
goto T602; |
goto T610; |
1403 |
T602:; |
T610:; |
1404 |
if(!(((V146))==(VV[56]))){ |
if(!(((V144))==(VV[58]))){ |
1405 |
goto T607;} |
goto T615;} |
1406 |
base[4]= (V137); |
base[4]= (V135); |
1407 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1408 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
1409 |
vs_top=sup; |
vs_top=sup; |
1410 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1411 |
goto T599; |
goto T607; |
1412 |
|
goto T615; |
1413 |
|
T615:; |
1414 |
|
base[3]= (V144);} |
1415 |
goto T607; |
goto T607; |
1416 |
T607:; |
T607:; |
|
base[3]= (V146);} |
|
|
goto T599; |
|
|
T599:; |
|
1417 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1418 |
(void) (*Lnk99)(Lclptr99); |
(void) (*Lnk102)(Lclptr102); |
1419 |
return;}} |
return;}} |
1420 |
} |
} |
1421 |
} |
} |
1425 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1426 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
1427 |
vs_check; |
vs_check; |
1428 |
{object V148; |
{object V146; |
1429 |
object V149; |
object V147; |
1430 |
register object V150; |
register object V148; |
1431 |
check_arg(3); |
check_arg(3); |
1432 |
V148=(base[0]); |
V146=(base[0]); |
1433 |
V149=(base[1]); |
V147=(base[1]); |
1434 |
V150=(base[2]); |
V148=(base[2]); |
1435 |
vs_top=sup; |
vs_top=sup; |
1436 |
goto TTL; |
goto TTL; |
1437 |
TTL:; |
TTL:; |
1438 |
|
{object V150; |
1439 |
|
object V151; |
1440 |
|
V150= CMPcar((V146)); |
1441 |
|
V151= CMPcdr((V146)); |
1442 |
{object V152; |
{object V152; |
1443 |
object V153; |
if(type_of(V148)==t_structure){ |
1444 |
V152= CMPcar((V148)); |
goto T628;} |
1445 |
V153= CMPcdr((V148)); |
goto T626; |
1446 |
{object V154; |
goto T628; |
1447 |
if(type_of(V150)==t_structure){ |
T628:; |
1448 |
goto T620;} |
if(!(((V148)->str.str_def)==(VV[60]))){ |
1449 |
goto T618; |
goto T626;} |
1450 |
goto T620; |
V152= STREF(object,(V148),4); |
1451 |
T620:; |
goto T624; |
1452 |
if(!(((V150)->str.str_def)==(VV[58]))){ |
goto T626; |
1453 |
goto T618;} |
T626:;{object V154; |
1454 |
V154= STREF(object,(V150),4); |
V154= (VV[19]->s.s_dbind); |
|
goto T616; |
|
|
goto T618; |
|
|
T618:;{object V156; |
|
|
V156= (VV[19]->s.s_dbind); |
|
1455 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1456 |
base[4]= (V150); |
base[4]= (V148); |
1457 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1458 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
1459 |
vs_top=sup; |
vs_top=sup; |
1460 |
V157= vs_base[0]; |
V155= vs_base[0]; |
1461 |
if(!((V156)==(CMPcar(V157)))){ |
if(!((V154)==(CMPcar(V155)))){ |
1462 |
goto T623;}} |
goto T631;}} |
1463 |
V154= CMPcar(((V150))->cc.cc_turbo[12]); |
V152= CMPcar(((V148))->cc.cc_turbo[12]); |
1464 |
goto T616; |
goto T624; |
1465 |
goto T623; |
goto T631; |
1466 |
T623:; |
T631:; |
1467 |
V154= Cnil; |
V152= Cnil; |
1468 |
goto T616; |
goto T624; |
1469 |
T616:; |
T624:; |
1470 |
{register object V159; |
{register object V157; |
1471 |
V159= ((V152))->v.v_self[1]; |
V157= ((V150))->v.v_self[1]; |
1472 |
if(!(type_of(V159)==t_fixnum)){ |
if(!(type_of(V157)==t_fixnum)){ |
1473 |
goto T635;} |
goto T643;} |
1474 |
V159= ((V154))->v.v_self[fix((V159))]; |
V157= ((V152))->v.v_self[fix((V157))]; |
1475 |
goto T633; |
goto T641; |
1476 |
goto T635; |
goto T643; |
1477 |
T635:; |
T643:; |
1478 |
V159= VV[56]; |
V157= VV[58]; |
1479 |
goto T633; |
goto T641; |
1480 |
T633:; |
T641:; |
1481 |
if(!(((V159))==(VV[56]))){ |
if(!(((V157))==(VV[58]))){ |
1482 |
goto T638;} |
goto T646;} |
1483 |
base[4]= (V150); |
base[4]= (V148); |
1484 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1485 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
1486 |
vs_top=sup; |
vs_top=sup; |
1487 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1488 |
goto T630; |
goto T638; |
1489 |
|
goto T646; |
1490 |
|
T646:; |
1491 |
|
base[3]= (V157);} |
1492 |
goto T638; |
goto T638; |
1493 |
T638:; |
T638:; |
|
base[3]= (V159);} |
|
|
goto T630; |
|
|
T630:; |
|
1494 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1495 |
(void) (*Lnk81)(Lclptr81); |
(void) (*Lnk83)(Lclptr83); |
1496 |
return;}} |
return;}} |
1497 |
} |
} |
1498 |
} |
} |
1502 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1503 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
1504 |
vs_check; |
vs_check; |
1505 |
{object V161; |
{object V159; |
1506 |
object V162; |
object V160; |
1507 |
register object V163; |
register object V161; |
1508 |
check_arg(3); |
check_arg(3); |
1509 |
V161=(base[0]); |
V159=(base[0]); |
1510 |
V162=(base[1]); |
V160=(base[1]); |
1511 |
V163=(base[2]); |
V161=(base[2]); |
1512 |
vs_top=sup; |
vs_top=sup; |
1513 |
goto TTL; |
goto TTL; |
1514 |
TTL:; |
TTL:; |
1515 |
|
{object V163; |
1516 |
|
object V164; |
1517 |
|
V163= CMPcar((V159)); |
1518 |
|
V164= CMPcdr((V159)); |
1519 |
{object V165; |
{object V165; |
1520 |
object V166; |
if(type_of(V161)==t_structure){ |
1521 |
V165= CMPcar((V161)); |
goto T659;} |
1522 |
V166= CMPcdr((V161)); |
goto T657; |
1523 |
{object V167; |
goto T659; |
1524 |
if(type_of(V163)==t_structure){ |
T659:; |
1525 |
goto T651;} |
if(!(((V161)->str.str_def)==(VV[61]))){ |
1526 |
goto T649; |
goto T657;} |
1527 |
goto T651; |
V165= STREF(object,(V161),4); |
1528 |
T651:; |
goto T655; |
1529 |
if(!(((V163)->str.str_def)==(VV[59]))){ |
goto T657; |
1530 |
goto T649;} |
T657:;{object V167; |
1531 |
V167= STREF(object,(V163),4); |
V167= (VV[19]->s.s_dbind); |
|
goto T647; |
|
|
goto T649; |
|
|
T649:;{object V169; |
|
|
V169= (VV[19]->s.s_dbind); |
|
1532 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1533 |
base[4]= (V163); |
base[4]= (V161); |
1534 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1535 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
1536 |
vs_top=sup; |
vs_top=sup; |
1537 |
V170= vs_base[0]; |
V168= vs_base[0]; |
1538 |
if(!((V169)==(CMPcar(V170)))){ |
if(!((V167)==(CMPcar(V168)))){ |
1539 |
goto T654;}} |
goto T662;}} |
1540 |
V167= CMPcar(((V163))->cc.cc_turbo[12]); |
V165= CMPcar(((V161))->cc.cc_turbo[12]); |
1541 |
goto T647; |
goto T655; |
1542 |
goto T654; |
goto T662; |
1543 |
T654:; |
T662:; |
1544 |
V167= Cnil; |
V165= Cnil; |
1545 |
goto T647; |
goto T655; |
1546 |
T647:; |
T655:; |
1547 |
{register object V172; |
{register object V170; |
1548 |
V172= ((V165))->v.v_self[1]; |
V170= ((V163))->v.v_self[1]; |
1549 |
if(!(type_of(V172)==t_fixnum)){ |
if(!(type_of(V170)==t_fixnum)){ |
1550 |
goto T666;} |
goto T674;} |
1551 |
V172= ((V167))->v.v_self[fix((V172))]; |
V170= ((V165))->v.v_self[fix((V170))]; |
1552 |
goto T664; |
goto T672; |
1553 |
goto T666; |
goto T674; |
1554 |
T666:; |
T674:; |
1555 |
V172= VV[56]; |
V170= VV[58]; |
1556 |
goto T664; |
goto T672; |
1557 |
T664:; |
T672:; |
1558 |
if(!(((V172))==(VV[56]))){ |
if(!(((V170))==(VV[58]))){ |
1559 |
goto T669;} |
goto T677;} |
1560 |
base[4]= (V163); |
base[4]= (V161); |
1561 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1562 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
1563 |
vs_top=sup; |
vs_top=sup; |
1564 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1565 |
goto T661; |
goto T669; |
1566 |
|
goto T677; |
1567 |
|
T677:; |
1568 |
|
base[3]= (V170);} |
1569 |
goto T669; |
goto T669; |
1570 |
T669:; |
T669:; |
|
base[3]= (V172);} |
|
|
goto T661; |
|
|
T661:; |
|
1571 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1572 |
(void) (*Lnk100)(Lclptr100); |
(void) (*Lnk103)(Lclptr103); |
1573 |
return;}} |
return;}} |
1574 |
} |
} |
1575 |
} |
} |
1576 |
/* local entry for function TRACE-METHOD */ |
/* local entry for function TRACE-METHOD */ |
1577 |
|
|
1578 |
static object LI17(object V174,object first,...) |
static object LI17(object V172,object first,...) |
1579 |
{ |
{ |
1580 |
va_list ap; |
va_list ap; |
1581 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
1582 |
{object V175; |
{object V173; |
1583 |
object V176; |
object V174; |
1584 |
va_start(ap,first); |
va_start(ap,first); |
1585 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1586 |
V175= V174; |
V173= V172; |
1587 |
narg= narg - 1; |
narg= narg - 1; |
1588 |
V177 = list_vector_new(narg,first,ap); |
V175 = list_vector_new(narg,first,ap); |
1589 |
V176= V177; |
V174= V175; |
1590 |
{object V178; |
{object V176; |
1591 |
object V179; |
object V177; |
1592 |
object V180; |
object V178; |
1593 |
base[0]= (V175); |
base[0]= (V173); |
1594 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1595 |
(void) (*Lnk101)(); |
(void) (*Lnk104)(); |
1596 |
if(vs_base>=vs_top){vs_top=sup;goto T674;} |
if(vs_base>=vs_top){vs_top=sup;goto T682;} |
1597 |
V178= vs_base[0]; |
V176= vs_base[0]; |
1598 |
vs_base++; |
vs_base++; |
1599 |
if(vs_base>=vs_top){vs_top=sup;goto T675;} |
if(vs_base>=vs_top){vs_top=sup;goto T683;} |
1600 |
V179= vs_base[0]; |
V177= vs_base[0]; |
1601 |
vs_base++; |
vs_base++; |
1602 |
if(vs_base>=vs_top){vs_top=sup;goto T676;} |
if(vs_base>=vs_top){vs_top=sup;goto T684;} |
1603 |
V180= vs_base[0]; |
V178= vs_base[0]; |
1604 |
vs_top=sup; |
vs_top=sup; |
1605 |
goto T677; |
goto T685; |
1606 |
goto T674; |
goto T682; |
1607 |
T674:; |
T682:; |
1608 |
|
V176= Cnil; |
1609 |
|
goto T683; |
1610 |
|
T683:; |
1611 |
|
V177= Cnil; |
1612 |
|
goto T684; |
1613 |
|
T684:; |
1614 |
V178= Cnil; |
V178= Cnil; |
1615 |
goto T675; |
goto T685; |
1616 |
T675:; |
T685:; |
1617 |
V179= Cnil; |
{object V179; |
1618 |
goto T676; |
object V180; |
1619 |
T676:; |
base[2]= (V177); |
|
V180= Cnil; |
|
|
goto T677; |
|
|
T677:; |
|
|
{object V181; |
|
|
object V182; |
|
|
base[2]= (V179); |
|
1620 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1621 |
(void) (*Lnk84)(Lclptr84); |
(void) (*Lnk86)(Lclptr86); |
1622 |
vs_top=sup; |
vs_top=sup; |
1623 |
V183= vs_base[0]; |
V181= vs_base[0]; |
1624 |
V181= (*(LnkLI102))(V183,(V180),(V176)); |
V179= (*(LnkLI105))(V181,(V178),(V174)); |
1625 |
base[2]= VV[37]; |
base[2]= VV[39]; |
1626 |
base[3]= VV[60]; |
base[3]= VV[62]; |
1627 |
base[4]= (V179); |
base[4]= (V177); |
1628 |
base[5]= VV[61]; |
base[5]= VV[63]; |
1629 |
base[6]= (V181); |
base[6]= (V179); |
1630 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1631 |
(void) (*Lnk103)(Lclptr103); |
(void) (*Lnk106)(Lclptr106); |
1632 |
vs_top=sup; |
vs_top=sup; |
1633 |
V182= vs_base[0]; |
V180= vs_base[0]; |
1634 |
base[2]= (V178); |
base[2]= (V176); |
1635 |
base[3]= (V179); |
base[3]= (V177); |
1636 |
(void)simple_symlispcall(VV[104],base+2,2); |
(void)simple_symlispcall(VV[107],base+2,2); |
1637 |
base[2]= (V178); |
base[2]= (V176); |
1638 |
base[3]= (V182); |
base[3]= (V180); |
1639 |
(void)simple_symlispcall(VV[105],base+2,2); |
(void)simple_symlispcall(VV[108],base+2,2); |
1640 |
base[2]= V182; |
base[2]= V180; |
1641 |
base[3]= (VV[62]->s.s_dbind); |
base[3]= (VV[64]->s.s_dbind); |
1642 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1643 |
Ladjoin(); |
Ladjoin(); |
1644 |
vs_top=sup; |
vs_top=sup; |
1645 |
(VV[62]->s.s_dbind)= vs_base[0]; |
(VV[64]->s.s_dbind)= vs_base[0]; |
1646 |
{object V185 = (V182); |
{object V183 = (V180); |
1647 |
VMR14(V185)}}} |
VMR14(V183)}}} |
1648 |
va_end(ap); |
va_end(ap); |
1649 |
base[0]=base[0]; |
base[0]=base[0]; |
1650 |
return Cnil;} |
return Cnil;} |
1655 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1656 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1657 |
vs_check; |
vs_check; |
1658 |
{object V186; |
{object V184; |
1659 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T697;} |
|
|
V186=(base[0]); |
|
|
vs_top=sup; |
|
|
goto T698; |
|
|
goto T697; |
|
|
T697:; |
|
|
V186= Cnil; |
|
|
goto T698; |
|
|
T698:; |
|
|
if(((V186))==Cnil){ |
|
|
goto T701;} |
|
|
{object V187; |
|
|
object V188; |
|
|
base[1]= (V186); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk101)(); |
|
1660 |
if(vs_base>=vs_top){vs_top=sup;goto T705;} |
if(vs_base>=vs_top){vs_top=sup;goto T705;} |
1661 |
V187= vs_base[0]; |
V184=(base[0]); |
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T706;} |
|
|
V188= vs_base[0]; |
|
1662 |
vs_top=sup; |
vs_top=sup; |
1663 |
goto T707; |
goto T706; |
1664 |
goto T705; |
goto T705; |
1665 |
T705:; |
T705:; |
1666 |
V187= Cnil; |
V184= Cnil; |
1667 |
goto T706; |
goto T706; |
1668 |
T706:; |
T706:; |
1669 |
V188= Cnil; |
if(((V184))==Cnil){ |
|
goto T707; |
|
|
T707:; |
|
|
{register object x= (V188),V189= (VV[62]->s.s_dbind); |
|
|
while(V189!=Cnil) |
|
|
if(x==(V189->c.c_car)){ |
|
|
goto T710; |
|
|
}else V189=V189->c.c_cdr; |
|
1670 |
goto T709;} |
goto T709;} |
1671 |
goto T710; |
{object V185; |
1672 |
T710:; |
object V186; |
1673 |
base[1]= (V188); |
base[1]= (V184); |
1674 |
|
vs_top=(vs_base=base+1)+1; |
1675 |
|
(void) (*Lnk104)(); |
1676 |
|
if(vs_base>=vs_top){vs_top=sup;goto T713;} |
1677 |
|
V185= vs_base[0]; |
1678 |
|
vs_base++; |
1679 |
|
if(vs_base>=vs_top){vs_top=sup;goto T714;} |
1680 |
|
V186= vs_base[0]; |
1681 |
|
vs_top=sup; |
1682 |
|
goto T715; |
1683 |
|
goto T713; |
1684 |
|
T713:; |
1685 |
|
V185= Cnil; |
1686 |
|
goto T714; |
1687 |
|
T714:; |
1688 |
|
V186= Cnil; |
1689 |
|
goto T715; |
1690 |
|
T715:; |
1691 |
|
{register object x= (V186),V187= (VV[64]->s.s_dbind); |
1692 |
|
while(V187!=Cnil) |
1693 |
|
if(x==(V187->c.c_car)){ |
1694 |
|
goto T718; |
1695 |
|
}else V187=V187->c.c_cdr; |
1696 |
|
goto T717;} |
1697 |
|
goto T718; |
1698 |
|
T718:; |
1699 |
|
base[1]= (V186); |
1700 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1701 |
L19(base); |
L19(base); |
1702 |
return; |
return; |
1703 |
goto T709; |
goto T717; |
1704 |
T709:; |
T717:; |
1705 |
base[1]= VV[63]; |
base[1]= VV[65]; |
1706 |
base[2]= (V188); |
base[2]= (V186); |
1707 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1708 |
Lerror(); |
Lerror(); |
1709 |
return;} |
return;} |
1710 |
goto T701; |
goto T709; |
1711 |
T701:; |
T709:; |
1712 |
{register object V190; |
{register object V188; |
1713 |
register object V191; |
register object V189; |
1714 |
V190= (VV[62]->s.s_dbind); |
V188= (VV[64]->s.s_dbind); |
1715 |
V191= CMPcar((V190)); |
V189= CMPcar((V188)); |
1716 |
goto T717; |
goto T725; |
1717 |
T717:; |
T725:; |
1718 |
if(!(((V190))==Cnil)){ |
if(!(((V188))==Cnil)){ |
1719 |
goto T718;} |
goto T726;} |
1720 |
base[2]= Cnil; |
base[2]= Cnil; |
1721 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1722 |
return; |
return; |
1723 |
goto T718; |
goto T726; |
1724 |
T718:; |
T726:; |
1725 |
base[2]= (V191); |
base[2]= (V189); |
1726 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1727 |
L19(base); |
L19(base); |
1728 |
vs_top=sup; |
vs_top=sup; |
1729 |
V190= CMPcdr((V190)); |
V188= CMPcdr((V188)); |
1730 |
V191= CMPcar((V190)); |
V189= CMPcar((V188)); |
1731 |
goto T717;} |
goto T725;} |
1732 |
} |
} |
1733 |
} |
} |
1734 |
/* local entry for function TRACE-METHOD-INTERNAL */ |
/* local entry for function TRACE-METHOD-INTERNAL */ |
1735 |
|
|
1736 |
static object LI20(V195,V196,V197) |
static object LI20(V193,V194,V195) |
1737 |
|
|
1738 |
object V195;register object V196;object V197; |
object V193;register object V194;object V195; |
1739 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1740 |
goto TTL; |
goto TTL; |
1741 |
TTL:; |
TTL:; |
1742 |
base[0]= list(2,VV[65],(V196)); |
base[0]= list(2,VV[67],(V194)); |
1743 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1744 |
Leval(); |
Leval(); |
1745 |
vs_top=sup; |
vs_top=sup; |
1746 |
base[0]= (V196); |
base[0]= (V194); |
1747 |
base[1]= (V195); |
base[1]= (V193); |
1748 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1749 |
siLfset(); |
siLfset(); |
1750 |
vs_top=sup; |
vs_top=sup; |
1751 |
base[0]= listA(3,VV[66],(V196),(V197)); |
base[0]= listA(3,VV[68],(V194),(V195)); |
1752 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1753 |
Leval(); |
Leval(); |
1754 |
vs_top=sup; |
vs_top=sup; |
1755 |
base[0]= (V196); |
base[0]= (V194); |
1756 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1757 |
Lsymbol_function(); |
Lsymbol_function(); |
1758 |
vs_top=sup; |
vs_top=sup; |
1759 |
{object V198 = vs_base[0]; |
{object V196 = vs_base[0]; |
1760 |
VMR16(V198)} |
VMR16(V196)} |
1761 |
base[0]=base[0]; |
base[0]=base[0]; |
1762 |
return Cnil; |
return Cnil; |
1763 |
} |
} |
1769 |
vs_check; |
vs_check; |
1770 |
check_arg(2); |
check_arg(2); |
1771 |
vs_top=sup; |
vs_top=sup; |
1772 |
{object V199=base[0]->c.c_cdr; |
{object V197=base[0]->c.c_cdr; |
1773 |
base[2]= V199;} |
base[2]= V197;} |
1774 |
base[3]= list(2,VV[67],list(2,VV[68],base[2])); |
base[3]= list(2,VV[69],list(2,VV[70],base[2])); |
1775 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1776 |
return; |
return; |
1777 |
} |
} |
1778 |
/* local entry for function UNDEFMETHOD-1 */ |
/* local entry for function UNDEFMETHOD-1 */ |
1779 |
|
|
1780 |
static object LI22(V201) |
static object LI22(V199) |
1781 |
|
|
1782 |
object V201; |
object V199; |
1783 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1784 |
goto TTL; |
goto TTL; |
1785 |
TTL:; |
TTL:; |
1786 |
{object V202; |
{object V200; |
1787 |
object V203; |
object V201; |
1788 |
base[0]= (V201); |
base[0]= (V199); |
1789 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1790 |
(void) (*Lnk101)(); |
(void) (*Lnk104)(); |
1791 |
if(vs_base>=vs_top){vs_top=sup;goto T739;} |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
1792 |
V202= vs_base[0]; |
V200= vs_base[0]; |
1793 |
vs_base++; |
vs_base++; |
1794 |
if(vs_base>=vs_top){vs_top=sup;goto T740;} |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
1795 |
V203= vs_base[0]; |
V201= vs_base[0]; |
1796 |
vs_top=sup; |
vs_top=sup; |
1797 |
goto T741; |
goto T749; |
1798 |
goto T739; |
goto T747; |
1799 |
T739:; |
T747:; |
1800 |
V202= Cnil; |
V200= Cnil; |
1801 |
goto T740; |
goto T748; |
1802 |
T740:; |
T748:; |
1803 |
V203= Cnil; |
V201= Cnil; |
1804 |
goto T741; |
goto T749; |
1805 |
T741:; |
T749:; |
1806 |
if(((V202))==Cnil){ |
if(((V200))==Cnil){ |
1807 |
goto T743;} |
goto T751;} |
1808 |
if(((V203))==Cnil){ |
if(((V201))==Cnil){ |
1809 |
goto T743;} |
goto T751;} |
1810 |
base[0]= (V202); |
base[0]= (V200); |
1811 |
base[1]= (V203); |
base[1]= (V201); |
1812 |
(void)simple_symlispcall(VV[104],base+0,2); |
(void)simple_symlispcall(VV[107],base+0,2); |
1813 |
{object V204 = (V203); |
{object V202 = (V201); |
1814 |
VMR18(V204)} |
VMR18(V202)} |
1815 |
goto T743; |
goto T751; |
1816 |
T743:; |
T751:; |
1817 |
{object V205 = Cnil; |
{object V203 = Cnil; |
1818 |
VMR18(V205)}} |
VMR18(V203)}} |
1819 |
base[0]=base[0]; |
base[0]=base[0]; |
1820 |
return Cnil; |
return Cnil; |
1821 |
} |
} |
1826 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1827 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1828 |
vs_check; |
vs_check; |
1829 |
{register object V206; |
{register object V204; |
1830 |
check_arg(1); |
check_arg(1); |
1831 |
V206=(base[0]); |
V204=(base[0]); |
1832 |
vs_top=sup; |
vs_top=sup; |
1833 |
goto TTL; |
goto TTL; |
1834 |
TTL:; |
TTL:; |
1835 |
{object V207; |
{object V205; |
1836 |
base[1]= (V206); |
base[1]= (V204); |
1837 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1838 |
(void) (*Lnk106)(Lclptr106); |
(void) (*Lnk109)(Lclptr109); |
1839 |
vs_top=sup; |
vs_top=sup; |
1840 |
V207= vs_base[0]; |
V205= vs_base[0]; |
1841 |
if(((V207))==Cnil){ |
if(((V205))==Cnil){ |
1842 |
goto T753;} |
goto T761;} |
1843 |
base[1]= (V207); |
base[1]= (V205); |
1844 |
base[2]= (V206); |
base[2]= (V204); |
1845 |
(void)simple_symlispcall(VV[104],base+1,2); |
(void)simple_symlispcall(VV[107],base+1,2); |
1846 |
base[1]=(VV[105]->s.s_gfdef); |
base[1]=(VV[108]->s.s_gfdef); |
1847 |
base[2]= (V207); |
base[2]= (V205); |
1848 |
if(!((VV[64])->s.s_gfdef!=OBJNULL)){ |
if(!((VV[66])->s.s_gfdef!=OBJNULL)){ |
1849 |
goto T762;} |
goto T770;} |
1850 |
base[4]= (V206); |
base[4]= (V204); |
1851 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1852 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
1853 |
vs_top=sup; |
vs_top=sup; |
1854 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1855 |
goto T760; |
goto T768; |
1856 |
goto T762; |
goto T770; |
1857 |
T762:; |
T770:; |
1858 |
base[3]= (*(LnkLI108))(VV[64],VV[41]); |
base[3]= (*(LnkLI111))(VV[66],VV[43]); |
1859 |
goto T760; |
goto T768; |
1860 |
T760:; |
T768:; |
1861 |
(void)simple_lispcall(base+1,2); |
(void)simple_lispcall(base+1,2); |
1862 |
base[1]= (V206); |
base[1]= (V204); |
1863 |
base[2]= (VV[62]->s.s_dbind); |
base[2]= (VV[64]->s.s_dbind); |
1864 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1865 |
(void) (*Lnk109)(); |
(void) (*Lnk112)(); |
1866 |
vs_top=sup; |
vs_top=sup; |
1867 |
(VV[62]->s.s_dbind)= vs_base[0]; |
(VV[64]->s.s_dbind)= vs_base[0]; |
1868 |
base[1]= (VV[62]->s.s_dbind); |
base[1]= (VV[64]->s.s_dbind); |
1869 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1870 |
return; |
return; |
1871 |
goto T753; |
goto T761; |
1872 |
T753:; |
T761:; |
1873 |
base[1]= Cnil; |
base[1]= Cnil; |
1874 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1875 |
return;} |
return;} |
1882 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1883 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1884 |
vs_check; |
vs_check; |
1885 |
{object V208; |
{object V206; |
1886 |
check_arg(1); |
check_arg(1); |
1887 |
V208=(base[0]); |
V206=(base[0]); |
1888 |
vs_top=sup; |
vs_top=sup; |
1889 |
goto TTL; |
goto TTL; |
1890 |
TTL:;{object V209; |
TTL:;{object V207; |
1891 |
base[1]= (V208); |
base[1]= (V206); |
1892 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1893 |
(void) (*Lnk89)(Lclptr89); |
(void) (*Lnk91)(Lclptr91); |
1894 |
vs_top=sup; |
vs_top=sup; |
1895 |
V209= vs_base[0]; |
V207= vs_base[0]; |
1896 |
if(V209==Cnil)goto T768; |
if(V207==Cnil)goto T776; |
1897 |
base[1]= V209; |
base[1]= V207; |
1898 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1899 |
return; |
return; |
1900 |
goto T768; |
goto T776; |
1901 |
T768:;} |
T776:;} |
1902 |
base[1]= (V208); |
base[1]= (V206); |
1903 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1904 |
return; |
return; |
1905 |
} |
} |
1911 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1912 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1913 |
vs_check; |
vs_check; |
1914 |
{object V210; |
{object V208; |
1915 |
|
object V209; |
1916 |
|
object V210; |
1917 |
object V211; |
object V211; |
|
object V212; |
|
|
object V213; |
|
1918 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1919 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1920 |
V210=(base[0]); |
V208=(base[0]); |
1921 |
V211=(base[1]); |
V209=(base[1]); |
1922 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1923 |
if(vs_base>=vs_top){vs_top=sup;goto T771;} |
if(vs_base>=vs_top){vs_top=sup;goto T779;} |
1924 |
V212=(base[2]); |
V210=(base[2]); |
1925 |
V213= Ct; |
V211= Ct; |
1926 |
vs_top=sup; |
vs_top=sup; |
1927 |
goto T772; |
goto T780; |
1928 |
goto T771; |
goto T779; |
1929 |
T771:; |
T779:; |
1930 |
V212= Cnil; |
V210= Cnil; |
1931 |
V213= Cnil; |
V211= Cnil; |
1932 |
goto T772; |
goto T780; |
1933 |
T772:; |
T780:; |
1934 |
if(((V213))==Cnil){ |
if(((V211))==Cnil){ |
1935 |
goto T775;} |
goto T783;} |
1936 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1937 |
base[5]= VV[9]; |
base[5]= VV[9]; |
1938 |
base[6]= (V210); |
base[6]= (V208); |
1939 |
base[7]= (V212); |
base[7]= (V210); |
1940 |
base[8]= number_plus(base0[6],small_fixnum(7)); |
base[8]= number_plus(base0[6],small_fixnum(7)); |
1941 |
base[9]= (V211); |
base[9]= (V209); |
1942 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1943 |
Lformat(); |
Lformat(); |
1944 |
return; |
return; |
1945 |
goto T775; |
goto T783; |
1946 |
T775:; |
T783:; |
1947 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1948 |
base[5]= VV[10]; |
base[5]= VV[10]; |
1949 |
base[6]= (V210); |
base[6]= (V208); |
1950 |
base[7]= base0[6]; |
base[7]= base0[6]; |
1951 |
base[8]= (V211); |
base[8]= (V209); |
1952 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1953 |
Lformat(); |
Lformat(); |
1954 |
return; |
return; |
1961 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1962 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1963 |
vs_check; |
vs_check; |
1964 |
{object V214; |
{object V212; |
1965 |
check_arg(1); |
check_arg(1); |
1966 |
V214=(base[0]); |
V212=(base[0]); |
1967 |
vs_top=sup; |
vs_top=sup; |
1968 |
goto TTL; |
goto TTL; |
1969 |
TTL:; |
TTL:; |
1970 |
{object V215= symbol_name((V214)); |
{object V213= symbol_name((V212)); |
1971 |
V216 = CMPmake_fixnum((long)(/* INLINE-ARGS */V215)->v.v_fillp); |
V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp); |
1972 |
base0[6]= (number_compare(base0[6],V216)>=0?(base0[6]):V216);} |
base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);} |
1973 |
base[1]= base0[6]; |
base[1]= base0[6]; |
1974 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1975 |
return; |
return; |
1976 |
} |
} |
1977 |
} |
} |
1978 |
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* REMOVE */ |
static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* REMOVE */ |
1979 |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */ |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* NO-SLOT */ |
1980 |
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */ |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* %FBOUNDP */ |
1981 |
static void LnkT106(ptr) object *ptr;{ call_or_link_closure(VV[106],(void **)(void *)&Lnk106,(void **)(void *)&Lclptr106);} /* METHOD-GENERIC-FUNCTION */ |
static void LnkT109(ptr) object *ptr;{ call_or_link_closure(VV[109],(void **)(void *)&Lnk109,(void **)(void *)&Lclptr109);} /* METHOD-GENERIC-FUNCTION */ |
1982 |
static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* MAKE-INSTANCE */ |
static void LnkT106(ptr) object *ptr;{ call_or_link_closure(VV[106],(void **)(void *)&Lnk106,(void **)(void *)&Lclptr106);} /* MAKE-INSTANCE */ |
1983 |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,3,first,ap);va_end(ap);return V1;} /* TRACE-METHOD-INTERNAL */ |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,3,first,ap);va_end(ap);return V1;} /* TRACE-METHOD-INTERNAL */ |
1984 |
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* PARSE-METHOD-OR-SPEC */ |
static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* PARSE-METHOD-OR-SPEC */ |
1985 |
static void LnkT100(ptr) object *ptr;{ call_or_link_closure(VV[100],(void **)(void *)&Lnk100,(void **)(void *)&Lclptr100);} /* ACCESSOR-METHOD-SLOT-NAME */ |
static void LnkT103(ptr) object *ptr;{ call_or_link_closure(VV[103],(void **)(void *)&Lnk103,(void **)(void *)&Lclptr103);} /* ACCESSOR-METHOD-SLOT-NAME */ |
1986 |
static void LnkT99(ptr) object *ptr;{ call_or_link_closure(VV[99],(void **)(void *)&Lnk99,(void **)(void *)&Lclptr99);} /* METHOD-SPECIALIZERS */ |
static void LnkT102(ptr) object *ptr;{ call_or_link_closure(VV[102],(void **)(void *)&Lnk102,(void **)(void *)&Lclptr102);} /* METHOD-SPECIALIZERS */ |
1987 |
static void LnkT98(ptr) object *ptr;{ call_or_link_closure(VV[98],(void **)(void *)&Lnk98,(void **)(void *)&Lclptr98);} /* METHOD-LAMBDA-LIST */ |
static void LnkT101(ptr) object *ptr;{ call_or_link_closure(VV[101],(void **)(void *)&Lnk101,(void **)(void *)&Lclptr101);} /* METHOD-LAMBDA-LIST */ |
1988 |
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* LISP METHOD slot READER */ |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* LISP METHOD slot READER */ |
1989 |
static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* PACKAGE-SIZE */ |
static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* PACKAGE-SIZE */ |
1990 |
static void LnkT94(ptr) object *ptr;{ call_or_link_closure(VV[94],(void **)(void *)&Lnk94,(void **)(void *)&Lclptr94);} /* SPECIALIZER-DIRECT-METHODS */ |
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* SPECIFIC-ERROR */ |
1991 |
static void LnkT93(ptr) object *ptr;{ call_or_link_closure(VV[93],(void **)(void *)&Lnk93,(void **)(void *)&Lclptr93);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* SPECIALIZER-DIRECT-METHODS */ |
1992 |
static void LnkT92(ptr) object *ptr;{ call_or_link_closure(VV[92],(void **)(void *)&Lnk92,(void **)(void *)&Lclptr92);} /* CLASS-DIRECT-SUBCLASSES */ |
static void LnkT95(ptr) object *ptr;{ call_or_link_closure(VV[95],(void **)(void *)&Lnk95,(void **)(void *)&Lclptr95);} /* CLASS-PRECEDENCE-LIST */ |
1993 |
static void LnkT91(ptr) object *ptr;{ call_or_link_closure(VV[91],(void **)(void *)&Lnk91,(void **)(void *)&Lclptr91);} /* CLASS-DIRECT-SUPERCLASSES */ |
static void LnkT94(ptr) object *ptr;{ call_or_link_closure(VV[94],(void **)(void *)&Lnk94,(void **)(void *)&Lclptr94);} /* CLASS-DIRECT-SUBCLASSES */ |
1994 |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static void LnkT93(ptr) object *ptr;{ call_or_link_closure(VV[93],(void **)(void *)&Lnk93,(void **)(void *)&Lclptr93);} /* CLASS-DIRECT-SUPERCLASSES */ |
1995 |
static void LnkT89(ptr) object *ptr;{ call_or_link_closure(VV[89],(void **)(void *)&Lnk89,(void **)(void *)&Lclptr89);} /* CLASS-NAME */ |
static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[92],(void **)(void *)&LnkLI92,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
1996 |
static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* TYPECASE-ERROR-STRING */ |
static void LnkT91(ptr) object *ptr;{ call_or_link_closure(VV[91],(void **)(void *)&Lnk91,(void **)(void *)&Lclptr91);} /* CLASS-NAME */ |
1997 |
static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* TYPECASE-ERROR-STRING */ |
1998 |
static void LnkT86(){ call_or_link(VV[86],(void **)(void *)&Lnk86);} /* CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
1999 |
static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* CCLOSURE-ENV-NTHCDR */ |
2000 |
static void LnkT84(ptr) object *ptr;{ call_or_link_closure(VV[84],(void **)(void *)&Lnk84,(void **)(void *)&Lclptr84);} /* METHOD-FUNCTION */ |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* STRUCTURE-SUBTYPE-P */ |
2001 |
static void LnkT83(ptr) object *ptr;{ call_or_link_closure(VV[83],(void **)(void *)&Lnk83,(void **)(void *)&Lclptr83);} /* METHOD-FAST-FUNCTION */ |
static void LnkT86(ptr) object *ptr;{ call_or_link_closure(VV[86],(void **)(void *)&Lnk86,(void **)(void *)&Lclptr86);} /* METHOD-FUNCTION */ |
2002 |
static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)(void *)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */ |
static void LnkT85(ptr) object *ptr;{ call_or_link_closure(VV[85],(void **)(void *)&Lnk85,(void **)(void *)&Lclptr85);} /* METHOD-FAST-FUNCTION */ |
2003 |
static void LnkT81(ptr) object *ptr;{ call_or_link_closure(VV[81],(void **)(void *)&Lnk81,(void **)(void *)&Lclptr81);} /* METHOD-QUALIFIERS */ |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */ |
2004 |
static void LnkT80(ptr) object *ptr;{ call_or_link_closure(VV[80],(void **)(void *)&Lnk80,(void **)(void *)&Lclptr80);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT83(ptr) object *ptr;{ call_or_link_closure(VV[83],(void **)(void *)&Lnk83,(void **)(void *)&Lclptr83);} /* METHOD-QUALIFIERS */ |
2005 |
static void LnkT79(ptr) object *ptr;{ call_or_link_closure(VV[79],(void **)(void *)&Lnk79,(void **)(void *)&Lclptr79);} /* GENERIC-FUNCTION-PRETTY-ARGLIST */ |
static void LnkT82(ptr) object *ptr;{ call_or_link_closure(VV[82],(void **)(void *)&Lnk82,(void **)(void *)&Lclptr82);} /* GENERIC-FUNCTION-METHODS */ |
2006 |
static void LnkT78(ptr) object *ptr;{ call_or_link_closure(VV[78],(void **)(void *)&Lnk78,(void **)(void *)&Lclptr78);} /* CLASS-SLOTS */ |
static void LnkT81(ptr) object *ptr;{ call_or_link_closure(VV[81],(void **)(void *)&Lnk81,(void **)(void *)&Lclptr81);} /* GENERIC-FUNCTION-PRETTY-ARGLIST */ |
2007 |
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* SLOT-VALUE-OR-DEFAULT */ |
static void LnkT80(ptr) object *ptr;{ call_or_link_closure(VV[80],(void **)(void *)&Lnk80,(void **)(void *)&Lclptr80);} /* CLASS-SLOTS */ |
2008 |
static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* SLOT-DEFINITION-ALLOCATION */ |
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SLOT-VALUE-OR-DEFAULT */ |
2009 |
static void LnkT73(ptr) object *ptr;{ call_or_link_closure(VV[73],(void **)(void *)&Lnk73,(void **)(void *)&Lclptr73);} /* SLOT-DEFINITION-NAME */ |
static void LnkT76(ptr) object *ptr;{ call_or_link_closure(VV[76],(void **)(void *)&Lnk76,(void **)(void *)&Lclptr76);} /* SLOT-DEFINITION-ALLOCATION */ |
2010 |
static void LnkT72(ptr) object *ptr;{ call_or_link_closure(VV[72],(void **)(void *)&Lnk72,(void **)(void *)&Lclptr72);} /* SLOTS-TO-INSPECT */ |
static void LnkT75(ptr) object *ptr;{ call_or_link_closure(VV[75],(void **)(void *)&Lnk75,(void **)(void *)&Lclptr75);} /* SLOT-DEFINITION-NAME */ |
2011 |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* SLOTS-TO-INSPECT */ |
2012 |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* DESCRIBE-PACKAGE */ |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
2013 |
|
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,2,first,ap);va_end(ap);return V1;} /* DESCRIBE-PACKAGE */ |
2014 |
static void LnkT0(ptr) object *ptr;{ call_or_link_closure(VV[0],(void **)(void *)&Lnk0,(void **)(void *)&Lclptr0);} /* DESCRIBE-OBJECT */ |
static void LnkT0(ptr) object *ptr;{ call_or_link_closure(VV[0],(void **)(void *)&Lnk0,(void **)(void *)&Lclptr0);} /* DESCRIBE-OBJECT */ |
2015 |
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* LOAD-DEFGENERIC */ |
static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* LOAD-DEFGENERIC */ |
2016 |
|
|
2017 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2018 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |