93 |
base[6]= base[5]; |
base[6]= base[5]; |
94 |
base[7]= base[1]; |
base[7]= base[1]; |
95 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
96 |
(void) (*Lnk59)(); |
(void) (*Lnk61)(); |
97 |
if(vs_base>=vs_top){vs_top=sup;goto T5;} |
if(vs_base>=vs_top){vs_top=sup;goto T5;} |
98 |
V6= vs_base[0]; |
V6= vs_base[0]; |
99 |
vs_base++; |
vs_base++; |
150 |
base[1]= VV[18]; |
base[1]= VV[18]; |
151 |
base[3]= (V22); |
base[3]= (V22); |
152 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
153 |
(void) (*Lnk60)(); |
(void) (*Lnk62)(); |
154 |
vs_top=sup; |
vs_top=sup; |
155 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
156 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
317 |
V41= vs_base[0]; |
V41= vs_base[0]; |
318 |
base[0]= (V38); |
base[0]= (V38); |
319 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
320 |
(void) (*Lnk61)(); |
(void) (*Lnk63)(); |
321 |
vs_top=sup; |
vs_top=sup; |
322 |
V42= vs_base[0]; |
V42= vs_base[0]; |
323 |
V37= list(4,/* INLINE-ARGS */V39,/* INLINE-ARGS */V40,V41,V42); |
V37= list(4,/* INLINE-ARGS */V39,/* INLINE-ARGS */V40,V41,V42); |
387 |
goto T48; |
goto T48; |
388 |
T48:; |
T48:; |
389 |
V55= list(3,VV[28],VV[29],list(2,VV[30],list(2,VV[31],make_cons((V50),CMPcdr((V49)))))); |
V55= list(3,VV[28],VV[29],list(2,VV[30],list(2,VV[31],make_cons((V50),CMPcdr((V49)))))); |
390 |
base[4]= VV[62]; |
base[4]= VV[64]; |
391 |
base[5]= CMPcadr((V49)); |
base[5]= CMPcadr((V49)); |
392 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
393 |
(void) (*Lnk63)(); |
(void) (*Lnk65)(); |
394 |
vs_top=sup; |
vs_top=sup; |
395 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
396 |
goto T52;} |
goto T52;} |
587 |
goto T67;} |
goto T67;} |
588 |
base[0]= (V109); |
base[0]= (V109); |
589 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
590 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
591 |
vs_top=sup; |
vs_top=sup; |
592 |
if(!(type_of((V110))==t_symbol)){ |
if(!(type_of((V110))==t_symbol)){ |
593 |
goto T72;} |
goto T72;} |
594 |
(void)((*(LnkLI65))((V110),Cnil)); |
(void)((*(LnkLI67))((V110),Cnil)); |
595 |
goto T72; |
goto T72; |
596 |
T72:; |
T72:; |
597 |
(void)((*(LnkLI66))((V109),(V110))); |
(void)((*(LnkLI68))((V109),(V110))); |
598 |
goto T65; |
goto T65; |
599 |
goto T67; |
goto T67; |
600 |
T67:; |
T67:; |
689 |
VMR23(V122)} |
VMR23(V122)} |
690 |
goto T89; |
goto T89; |
691 |
T89:; |
T89:; |
692 |
{object V123 = (*(LnkLI67))((V121)); |
{object V123 = (*(LnkLI69))((V121)); |
693 |
VMR23(V123)} |
VMR23(V123)} |
694 |
return Cnil; |
return Cnil; |
695 |
} |
} |
831 |
T112:;} |
T112:;} |
832 |
{object V156; |
{object V156; |
833 |
object V157; |
object V157; |
834 |
V156= (*(LnkLI68))((base[0]->c.c_car)); |
V156= (*(LnkLI70))((base[0]->c.c_car)); |
835 |
V157= (*(LnkLI69))((base[0]->c.c_car)); |
V157= (*(LnkLI71))((base[0]->c.c_car)); |
836 |
if(((V157))==Cnil){ |
if(((V157))==Cnil){ |
837 |
goto T122;} |
goto T122;} |
838 |
V158= (*(LnkLI68))((V157)); |
V158= (*(LnkLI70))((V157)); |
839 |
V159 = CMPmake_fixnum((long)length(/* INLINE-ARGS */V158)); |
V159 = CMPmake_fixnum((long)length(/* INLINE-ARGS */V158)); |
840 |
V155= nthcdr(fix(V159),(V156)); |
V155= nthcdr(fix(V159),(V156)); |
841 |
goto T118; |
goto T118; |
860 |
goto T126;} |
goto T126;} |
861 |
base[3]= (V161); |
base[3]= (V161); |
862 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
863 |
(void) (*Lnk61)(); |
(void) (*Lnk63)(); |
864 |
vs_top=sup; |
vs_top=sup; |
865 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
866 |
base[2]=MMcons(base[2],base[0]); |
base[2]=MMcons(base[2],base[0]); |
872 |
make_cclosure_new(LC39,Cnil,base[2],Cdata); |
make_cclosure_new(LC39,Cnil,base[2],Cdata); |
873 |
base[3]= (V162); |
base[3]= (V162); |
874 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
875 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
876 |
vs_top=sup; |
vs_top=sup; |
877 |
base[3]= (V163); |
base[3]= (V163); |
878 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
879 |
(void) (*Lnk64)(); |
(void) (*Lnk66)(); |
880 |
vs_top=sup; |
vs_top=sup; |
881 |
{register object V164; |
{register object V164; |
882 |
object V165; |
object V165; |
896 |
vs_top=sup; |
vs_top=sup; |
897 |
bds_unwind1; |
bds_unwind1; |
898 |
V164= vs_base[0]; |
V164= vs_base[0]; |
899 |
V165= (*(LnkLI70))((V164)); |
V165= (*(LnkLI72))((V164)); |
900 |
V166= CMPcar((V161)); |
V166= CMPcar((V161)); |
901 |
V167= CMPcadddr((V161)); |
V167= CMPcadddr((V161)); |
902 |
base[7]= (V164); |
base[7]= (V164); |
909 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
910 |
siLfset(); |
siLfset(); |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
(void)((*(LnkLI71))((V164))); |
(void)((*(LnkLI73))((V164))); |
913 |
if(((V167))==Cnil){ |
if(((V167))==Cnil){ |
914 |
goto T155;} |
goto T155;} |
915 |
V168= Cnil; |
V168= Cnil; |
960 |
VMR29(V176)} |
VMR29(V176)} |
961 |
return Cnil; |
return Cnil; |
962 |
} |
} |
963 |
/* function definition for STRUCTURE-SLOTD-READER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-READER-FUNCTION */ |
964 |
|
|
965 |
static void L34() |
static object LI34(V178) |
966 |
{register object *base=vs_base; |
|
967 |
register object *sup=base+VM30; VC30 |
object V178; |
968 |
vs_check; |
{ VMB30 VMS30 VMV30 |
|
{object V177; |
|
|
check_arg(1); |
|
|
V177=(base[0]); |
|
|
vs_top=sup; |
|
969 |
goto TTL; |
goto TTL; |
970 |
TTL:; |
TTL:; |
971 |
base[1]= CMPcaddr((V177)); |
{object V179 = CMPcaddr((V178)); |
972 |
vs_top=(vs_base=base+1)+1; |
VMR30(V179)} |
973 |
return; |
return Cnil; |
|
} |
|
974 |
} |
} |
975 |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
976 |
|
|
977 |
static object LI35(V179) |
static object LI35(V181) |
978 |
|
|
979 |
object V179; |
object V181; |
980 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
981 |
goto TTL; |
goto TTL; |
982 |
TTL:; |
TTL:; |
983 |
{object V180 = CMPcadddr((V179)); |
{object V182 = CMPcadddr((V181)); |
984 |
VMR31(V180)} |
VMR31(V182)} |
985 |
return Cnil; |
return Cnil; |
986 |
} |
} |
987 |
/* local entry for function RENEW-SYS-FILES */ |
/* local entry for function RENEW-SYS-FILES */ |
993 |
TTL:; |
TTL:; |
994 |
base[0]= VV[43]; |
base[0]= VV[43]; |
995 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
996 |
(void) (*Lnk72)(); |
(void) (*Lnk74)(); |
997 |
vs_top=sup; |
vs_top=sup; |
998 |
base[1]= VV[44]; |
base[1]= VV[44]; |
999 |
base[2]= VV[45]; |
base[2]= VV[45]; |
1001 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1002 |
base[5]= VV[48]; |
base[5]= VV[48]; |
1003 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
1004 |
(void) (*Lnk73)(); |
(void) (*Lnk75)(); |
1005 |
vs_top=sup; |
vs_top=sup; |
1006 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
1007 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
1032 |
vs_top=sup;}} |
vs_top=sup;}} |
1033 |
base[0]= VV[50]; |
base[0]= VV[50]; |
1034 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1035 |
(void) (*Lnk74)(); |
(void) (*Lnk76)(); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
base[1]= VV[51]; |
base[1]= VV[51]; |
1038 |
base[2]= VV[45]; |
base[2]= VV[45]; |
1040 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1041 |
base[5]= VV[48]; |
base[5]= VV[48]; |
1042 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
1043 |
(void) (*Lnk73)(); |
(void) (*Lnk75)(); |
1044 |
vs_top=sup; |
vs_top=sup; |
1045 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
1046 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
1052 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1053 |
Lformat(); |
Lformat(); |
1054 |
vs_top=sup; |
vs_top=sup; |
|
{object V182; |
|
|
register object V183; |
|
|
V182= Cnil; |
|
|
V183= Cnil; |
|
1055 |
{object V184; |
{object V184; |
1056 |
register object V185; |
register object V185; |
1057 |
register object V186; |
V184= Cnil; |
1058 |
{object V187; |
V185= Cnil; |
1059 |
|
{object V186; |
1060 |
|
register object V187; |
1061 |
|
register object V188; |
1062 |
|
{object V189; |
1063 |
base[2]= VV[55]; |
base[2]= VV[55]; |
1064 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1065 |
Lfind_package(); |
Lfind_package(); |
1066 |
vs_top=sup; |
vs_top=sup; |
1067 |
V187= vs_base[0]; |
V189= vs_base[0]; |
1068 |
base[2]= (V187); |
base[2]= (V189); |
1069 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1070 |
Lpackagep(); |
Lpackagep(); |
1071 |
vs_top=sup; |
vs_top=sup; |
1072 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])!=Cnil){ |
1073 |
goto T192;} |
goto T191;} |
1074 |
V184= (V187); |
base[2]= coerce_to_string((V189)); |
|
goto T188; |
|
|
goto T192; |
|
|
T192:; |
|
|
base[2]= coerce_to_string((V187)); |
|
1075 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1076 |
Lfind_package(); |
Lfind_package(); |
1077 |
vs_top=sup; |
vs_top=sup; |
1078 |
V184= vs_base[0];} |
V189= vs_base[0]; |
1079 |
goto T188; |
if(((V189))!=Cnil){ |
1080 |
T188:; |
goto T191;} |
1081 |
V185= Cnil; |
base[2]= VV[56]; |
1082 |
V186= Cnil; |
base[3]= VV[57]; |
1083 |
{object V188; |
base[5]= VV[55]; |
1084 |
register object V189; |
vs_top=(vs_base=base+5)+1; |
1085 |
base[4]= (V184); |
Lfind_package(); |
1086 |
|
vs_top=sup; |
1087 |
|
base[4]= vs_base[0]; |
1088 |
|
vs_top=(vs_base=base+2)+3; |
1089 |
|
(void) (*Lnk77)(); |
1090 |
|
vs_top=sup; |
1091 |
|
goto T191; |
1092 |
|
T191:; |
1093 |
|
V186= (V189);} |
1094 |
|
V187= Cnil; |
1095 |
|
V188= Cnil; |
1096 |
|
{object V190; |
1097 |
|
register object V191; |
1098 |
|
base[4]= (V186); |
1099 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1100 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
V190= vs_base[0]; |
V192= vs_base[0]; |
1103 |
V188= make_cons((V184),V190); |
V190= make_cons((V186),V192); |
1104 |
V189= CMPcar((V188)); |
V191= CMPcar((V190)); |
1105 |
goto T201; |
goto T208; |
1106 |
T201:; |
T208:; |
1107 |
if(!(((V188))==Cnil)){ |
if(!(((V190))==Cnil)){ |
1108 |
goto T202;} |
goto T209;} |
1109 |
V185= Cnil; |
V187= Cnil; |
1110 |
goto T187; |
goto T187; |
1111 |
goto T202; |
goto T209; |
1112 |
T202:; |
T209:; |
1113 |
{long V191; |
{long V193; |
1114 |
long V192; |
register long V194; |
1115 |
base[4]= (V189); |
base[4]= (V191); |
1116 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1117 |
(void) (*Lnk75)(); |
(void) (*Lnk78)(); |
1118 |
if(vs_base>=vs_top){vs_top=sup;goto T211;} |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
1119 |
V191= fix(vs_base[0]); |
V193= fix(vs_base[0]); |
1120 |
vs_base++; |
vs_base++; |
1121 |
if(vs_base>=vs_top){vs_top=sup;goto T212;} |
if(vs_base>=vs_top){vs_top=sup;goto T219;} |
1122 |
V192= fix(vs_base[0]); |
V194= fix(vs_base[0]); |
1123 |
vs_top=sup; |
vs_top=sup; |
1124 |
goto T213; |
goto T220; |
1125 |
goto T211; |
goto T218; |
1126 |
T211:; |
T218:; |
1127 |
V191= fix(Cnil); |
V193= fix(Cnil); |
1128 |
goto T212; |
goto T219; |
1129 |
T212:; |
T219:; |
1130 |
V192= fix(Cnil); |
V194= fix(Cnil); |
1131 |
goto T213; |
goto T220; |
1132 |
T213:; |
T220:; |
1133 |
if(((V184))==((V189))){ |
if(((V186))==((V191))){ |
1134 |
goto T214;} |
goto T221;} |
1135 |
V192= 0; |
V194= 0; |
|
goto T214; |
|
|
T214:; |
|
|
{object V193; |
|
|
register object V194; |
|
|
V195 = CMPmake_fixnum(V192); |
|
|
V196 = CMPmake_fixnum(V191); |
|
|
V193= number_plus(V195,V196); |
|
|
V194= small_fixnum(0); |
|
1136 |
goto T221; |
goto T221; |
1137 |
T221:; |
T221:; |
1138 |
if(!(number_compare((V194),(V193))>=0)){ |
{long V195; |
1139 |
goto T222;} |
register long V196; |
1140 |
goto T208; |
V195= (long)(V194)+(V193); |
1141 |
goto T222; |
V196= 0; |
1142 |
T222:; |
goto T228; |
1143 |
V197 = CMPmake_fixnum(V192); |
T228:; |
1144 |
if(!(number_compare((V194),V197)<0)){ |
if(!((V196)>=(V195))){ |
1145 |
goto T231;} |
goto T231;} |
1146 |
base[5]= (V189); |
goto T215; |
|
base[6]= (V194); |
|
|
vs_top=(vs_base=base+5)+2; |
|
|
siLpackage_internal(); |
|
|
vs_top=sup; |
|
|
V186= vs_base[0]; |
|
|
goto T229; |
|
1147 |
goto T231; |
goto T231; |
1148 |
T231:; |
T231:; |
1149 |
base[5]= (V189); |
if(!((V196)<(V194))){ |
1150 |
V198 = CMPmake_fixnum(V192); |
goto T236;} |
1151 |
base[6]= number_minus((V194),V198); |
base[4]= (V191); |
1152 |
vs_top=(vs_base=base+5)+2; |
base[5]= CMPmake_fixnum(V196); |
1153 |
|
vs_top=(vs_base=base+4)+2; |
1154 |
|
siLpackage_internal(); |
1155 |
|
vs_top=sup; |
1156 |
|
V188= vs_base[0]; |
1157 |
|
goto T234; |
1158 |
|
goto T236; |
1159 |
|
T236:; |
1160 |
|
base[4]= (V191); |
1161 |
|
V197 = CMPmake_fixnum(V196); |
1162 |
|
V198 = CMPmake_fixnum(V194); |
1163 |
|
base[5]= number_minus(V197,V198); |
1164 |
|
vs_top=(vs_base=base+4)+2; |
1165 |
siLpackage_external(); |
siLpackage_external(); |
1166 |
vs_top=sup; |
vs_top=sup; |
1167 |
V186= vs_base[0]; |
V188= vs_base[0]; |
1168 |
|
goto T234; |
1169 |
|
T234:; |
1170 |
goto T229; |
goto T229; |
1171 |
T229:; |
T229:; |
1172 |
goto T227; |
if(((V188))!=Cnil){ |
1173 |
T227:; |
goto T242;} |
1174 |
if(((V186))!=Cnil){ |
goto T230; |
1175 |
goto T237;} |
goto T242; |
1176 |
goto T228; |
T242:; |
1177 |
goto T237; |
V187= CMPcar((V188)); |
1178 |
T237:; |
if(((V191))==((V186))){ |
1179 |
V185= CMPcar((V186)); |
goto T248;} |
1180 |
if(((V189))==((V184))){ |
base[5]= symbol_name((V187)); |
1181 |
goto T243;} |
base[6]= (V186); |
1182 |
base[6]= symbol_name((V185)); |
vs_top=(vs_base=base+5)+2; |
|
base[7]= (V184); |
|
|
vs_top=(vs_base=base+6)+2; |
|
1183 |
Lfind_symbol(); |
Lfind_symbol(); |
1184 |
Llist(); |
Llist(); |
1185 |
vs_top=sup; |
vs_top=sup; |
1186 |
base[5]= vs_base[0]; |
base[4]= vs_base[0]; |
1187 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+4)+1; |
1188 |
Llast(); |
Llast(); |
1189 |
vs_top=sup; |
vs_top=sup; |
1190 |
V199= vs_base[0]; |
V199= vs_base[0]; |
1191 |
if(!((VV[56])==(CMPcar(V199)))){ |
if(!((VV[58])==(CMPcar(V199)))){ |
1192 |
goto T242;} |
goto T247;} |
1193 |
goto T243; |
goto T248; |
1194 |
T243:; |
T248:; |
1195 |
{object V200 =((V185))->s.s_plist; |
{object V200 =((V187))->s.s_plist; |
1196 |
object ind= VV[22]; |
object ind= VV[22]; |
1197 |
while(V200!=Cnil){ |
while(V200!=Cnil){ |
1198 |
if(V200->c.c_car==ind){ |
if(V200->c.c_car==ind){ |
1199 |
if(((V200->c.c_cdr->c.c_car))==Cnil){ |
if(((V200->c.c_cdr->c.c_car))==Cnil){ |
1200 |
goto T252;} |
goto T257;} |
1201 |
goto T254; |
goto T259; |
1202 |
}else V200=V200->c.c_cdr->c.c_cdr;} |
}else V200=V200->c.c_cdr->c.c_cdr;} |
1203 |
goto T252;} |
goto T257;} |
1204 |
goto T254; |
goto T259; |
1205 |
T254:; |
T259:; |
1206 |
if(((V183))==Cnil){ |
if(((V185))==Cnil){ |
1207 |
goto T256;} |
goto T261;} |
1208 |
{object V201; |
{object V201; |
1209 |
register object V202; |
object V202; |
1210 |
V201= (V183); |
V201= (V185); |
1211 |
V183= make_cons((V185),Cnil); |
V185= make_cons((V187),Cnil); |
1212 |
V202= (V183); |
V202= (V185); |
1213 |
((V201))->c.c_cdr = (V202); |
((V201))->c.c_cdr = (V202); |
1214 |
goto T252;} |
goto T257;} |
1215 |
goto T256; |
goto T261; |
1216 |
T256:; |
T261:; |
1217 |
V183= make_cons((V185),Cnil); |
V185= make_cons((V187),Cnil); |
1218 |
V182= (V183); |
V184= (V185); |
1219 |
goto T252; |
goto T257; |
1220 |
T252:; |
T257:; |
1221 |
goto T242; |
goto T247; |
1222 |
T242:; |
T247:; |
|
V186= CMPcdr((V186)); |
|
|
goto T227; |
|
|
goto T228; |
|
|
T228:; |
|
|
goto T225; |
|
|
goto T225; |
|
|
T225:; |
|
|
V194= one_plus((V194)); |
|
|
goto T221;}} |
|
|
goto T208; |
|
|
T208:; |
|
1223 |
V188= CMPcdr((V188)); |
V188= CMPcdr((V188)); |
1224 |
V189= CMPcar((V188)); |
goto T229; |
1225 |
goto T201;}} |
goto T230; |
1226 |
|
T230:; |
1227 |
|
V196= (long)(V196)+1; |
1228 |
|
goto T228;}} |
1229 |
|
goto T215; |
1230 |
|
T215:; |
1231 |
|
V190= CMPcdr((V190)); |
1232 |
|
V191= CMPcar((V190)); |
1233 |
|
goto T208;}} |
1234 |
goto T187; |
goto T187; |
1235 |
T187:; |
T187:; |
1236 |
V181= (V182); |
V183= (V184); |
1237 |
goto T186; |
goto T186; |
1238 |
V181= Cnil; |
V183= Cnil; |
1239 |
goto T186; |
goto T186; |
1240 |
V181= Cnil;} |
V183= Cnil;} |
1241 |
goto T186; |
goto T186; |
1242 |
T186:; |
T186:; |
1243 |
V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V181)),VV[57]); |
V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V183)),VV[59]); |
1244 |
(void)(print(/* INLINE-ARGS */V203,base[0])); |
(void)(print(/* INLINE-ARGS */V203,base[0])); |
1245 |
base[2]= base[0]; |
base[2]= base[0]; |
1246 |
base[3]= VV[58]; |
base[3]= VV[60]; |
1247 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1248 |
Lformat(); |
Lformat(); |
1249 |
active=FALSE;} |
active=FALSE;} |
1253 |
vs_top=sup; |
vs_top=sup; |
1254 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1255 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
1256 |
goto T278;} |
goto T283;} |
1257 |
base[2]= base[0]; |
base[2]= base[0]; |
1258 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1259 |
Lclose(); |
Lclose(); |
1260 |
vs_top=sup; |
vs_top=sup; |
1261 |
goto T278; |
goto T283; |
1262 |
T278:; |
T283:; |
1263 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
1264 |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1265 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1305 |
base[1]= (V207); |
base[1]= (V207); |
1306 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
1307 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1308 |
(void) (*Lnk76)(); |
(void) (*Lnk79)(); |
1309 |
return; |
return; |
1310 |
} |
} |
1311 |
} |
} |
1325 |
return; |
return; |
1326 |
} |
} |
1327 |
} |
} |
1328 |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* STRUCTURE-REF1 */ |
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* STRUCTURE-REF1 */ |
1329 |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* PACKAGE-SIZE */ |
static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* PACKAGE-SIZE */ |
1330 |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* MAKE-ALL-PROCLAIMS */ |
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* SPECIFIC-ERROR */ |
1331 |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* OPEN */ |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ALL-PROCLAIMS */ |
1332 |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* GET-PACKAGES */ |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* OPEN */ |
1333 |
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;} /* DO-STANDARD-DEFSETF-1 */ |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* GET-PACKAGES */ |
1334 |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
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;} /* DO-STANDARD-DEFSETF-1 */ |
1335 |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
1336 |
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INTERNAL-SLOTDS */ |
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;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
1337 |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INTERNAL-SLOTDS */ |
1338 |
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* %SET-COMPILED-FUNCTION-NAME */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
1339 |
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFMETHOD */ |
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* %SET-COMPILED-FUNCTION-NAME */ |
1340 |
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* TURBO-CLOSURE */ |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFMETHOD */ |
1341 |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* EVERY */ |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* TURBO-CLOSURE */ |
1342 |
static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* FIFTH */ |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* EVERY */ |
1343 |
static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* ADDRESS */ |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIFTH */ |
1344 |
static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* EXTRACT-DECLARATIONS */ |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* ADDRESS */ |
1345 |
|
static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* EXTRACT-DECLARATIONS */ |
1346 |
|
|
1347 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1348 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |