2
#include "cmpinclude.h"
4
init_cmptop(){do_init(VV);}
5
/* function definition for T1EXPR */
8
{register object *VOL base=vs_base;
9
register object *VOL sup=base+VM1; VC1
19
frs_push(FRS_CATCH,VV[2]);
21
{nlj_active=FALSE;frs_pop();
26
if(!(type_of((V1))==t_cons)){
34
if(!(type_of((V2))==t_symbol)){
36
if(!(((V2))==(VV[3]))){
38
V5= (VFUN_NARGS=1,(*(LnkLI253))(VV[4]));
41
vs_top=(vs_base=base+3)+1;
46
if((get((V2),VV[5],Cnil))==Cnil){
48
if((symbol_value(VV[6]))==Cnil){
50
(void)((VFUN_NARGS=2,(*(LnkLI254))(VV[7],(V1))));
52
(void)((*(LnkLI255))(Ct,(V1)));
53
V6= (*(LnkLI256))((V1));
56
vs_top=(vs_base=base+3)+1;
61
V4= get((V2),VV[8],Cnil);
64
if((symbol_value(VV[9]))==Cnil){
66
(void)((*(LnkLI257))());
69
vs_top=(vs_base=base+3)+1;
70
super_funcall_no_event((V4));
76
if((get((V2),VV[10],Cnil))==Cnil){
78
if((symbol_value(VV[9]))==Cnil){
80
(void)((*(LnkLI257))());
82
base[3]= (*(LnkLI258))((V1));
83
vs_top=(vs_base=base+3)+1;
90
if((get((V2),VV[11],Cnil))==Cnil){
92
V7= (*(LnkLI260))((V1));
95
vs_top=(vs_base=base+3)+1;
101
vs_top=(vs_base=base+3)+1;
109
vs_top=(vs_base=base+3)+1;
113
V8= (*(LnkLI261))((V4),(V2),V9);
115
vs_top=(vs_base=base+3)+1;
122
V10= (*(LnkLI260))((V1));
125
vs_top=(vs_base=base+3)+1;
130
if(!(type_of((V2))==t_cons)){
132
V11= (*(LnkLI260))((V1));
135
vs_top=(vs_base=base+3)+1;
140
V12= (VFUN_NARGS=2,(*(LnkLI253))(VV[12],(V2)));
143
vs_top=(vs_base=base+3)+1;
150
vs_top=(vs_base=base+3)+1;
156
/* local entry for function CTOP-WRITE */
158
static object LI2(V14)
166
bds_bind(VV[13],Cnil);
167
bds_bind(VV[14],Cnil);
168
bds_bind(VV[16],VV[15]);
169
bds_bind(VV[17],Cnil);
170
bds_bind(VV[18],small_fixnum(0));
171
bds_bind(VV[19],Cnil);
172
bds_bind(VV[0],Cnil);
173
setq(VV[20],reverse(symbol_value(VV[20])));
174
princ_str("\ninit_",VV[21]);
175
(void)((*(LnkLI262))((V14)));
176
princ_str("(){",VV[21]);
177
princ_str("do_init(VV);",VV[21]);
178
princ_char(125,VV[21]);
180
V16= symbol_value(VV[20]);
181
bds_bind(VV[0],car((V16)));
189
V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil);
194
V17= cdr((VV[0]->s.s_dbind));
197
{vs_push(car(V17));V17=cdr(V17);}
199
super_funcall_no_event(base[8]);
203
(VV[0]->s.s_dbind)= car((V16));
207
V18= symbol_value(VV[20]);
208
bds_bind(VV[0],car((V18)));
216
V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil);
221
V19= cdr((VV[0]->s.s_dbind));
224
{vs_push(car(V19));V19=cdr(V19);}
226
super_funcall_no_event(base[8]);
230
(VV[0]->s.s_dbind)= car((V18));
236
if(!(endp(symbol_value(VV[24])))){
240
V20= car(symbol_value(VV[24]));
242
V21= car(symbol_value(VV[24]));
243
setq(VV[24],cdr(symbol_value(VV[24])));}
248
{vs_push(car(V22));V22=cdr(V22);}
256
V23= symbol_value(VV[25]);
267
{vs_push(car(V25));V25=cdr(V25);}
277
V26= (VV[13]->s.s_dbind);
284
(void)((*(LnkLI264))((V27)));
291
V28= symbol_value(VV[26]);
298
princ_str("\nstatic LC",VV[27]);
299
V30= structure_ref((V29),VV[28],3);
300
(void)((*(LnkLI265))(/* INLINE-ARGS */V30));
301
princ_str("();",VV[27]);
308
V31= symbol_value(VV[29]);
315
princ_str("\n#define VM",VV[27]);
316
(void)((*(LnkLI265))(car((V32))));
317
princ_char(32,VV[27]);
318
(void)((*(LnkLI265))(cdr((V32))));
323
(void)((*(LnkLI266))(Cnil));
326
base[8]= (VV[18]->s.s_dbind);
327
base[9]= symbol_value(VV[30]);
328
base[10]= small_fixnum(1);
329
vs_top=(vs_base=base+8)+3;
333
V34= small_fixnum(0);
335
if(!(number_compare((V34),(V33))>=0)){
339
(void)((*(LnkLI266))(Cnil));
340
V34= one_plus((V34));
343
princ_str("\nstatic char * VVi[",VV[27]);
344
V35= number_plus(small_fixnum(1),symbol_value(VV[30]));
345
(void)((*(LnkLI265))(/* INLINE-ARGS */V35));
346
princ_str("]={",VV[27]);
347
princ_str("\n#define Cdata VV[",VV[27]);
348
(void)((*(LnkLI265))(symbol_value(VV[30])));
349
princ_char(93,VV[27]);
350
if((VV[17]->s.s_dbind)!=Cnil){
352
princ_char(10,VV[27]);
353
(void)((*(LnkLI265))(small_fixnum(0)));
355
{register object V36;
356
V36= nreverse((VV[17]->s.s_dbind));
360
princ_str("\n};",VV[27]);
363
princ_str("\n(char *)(",VV[27]);
364
(void)((*(LnkLI265))(caar((V36))));
365
(void)((*(LnkLI265))(cadar((V36))));
366
if((cdr((V36)))==Cnil){
373
(void)((*(LnkLI265))(V37));
377
princ_str("\n#define VV ((object *)VVi)",VV[27]);
383
V38= (VV[13]->s.s_dbind);
398
{register object V41;
402
if(!(((V42))==(VV[33]))){
404
princ_str("\nstatic object *Lclptr",VV[27]);
405
(void)((*(LnkLI265))((V41)));
406
princ_char(59,VV[27]);
412
V42= (*(LnkLI268))((V42));
418
princ_str("\nstatic ",VV[27]);
419
(void)((*(LnkLI265))((V42)));
420
princ_str(" LnkT",VV[27]);
421
(void)((*(LnkLI265))((V41)));
422
princ_str("() ;",VV[27]);
423
princ_str("\nstatic ",VV[27]);
424
(void)((*(LnkLI265))((V42)));
425
princ_str(" (*Lnk",VV[27]);
426
(void)((*(LnkLI265))((V41)));
427
princ_str(")() = LnkT",VV[27]);
428
(void)((*(LnkLI265))((V41)));
429
princ_char(59,VV[27]);}
434
/* local entry for function MAYBE-EVAL */
436
static object LI3(V45,V46)
438
object V45;register object V46;
443
if(type_of(car((V46)))==t_symbol){
447
V45= get(car((V46)),VV[36],Cnil);
451
if((VV[37])==(symbol_value(VV[38]))){
454
if(!(type_of(symbol_value(VV[38]))==t_cons)){
456
{register object x= VV[39],V47= symbol_value(VV[38]);
458
if(eql(x,V47->c.c_car)){
460
}else V47=V47->c.c_cdr;
467
vs_top=(vs_base=base+0)+1;
477
/* function definition for T1EVAL-WHEN */
480
{register object *base=vs_base;
481
register object *sup=base+VM4; VC4
484
{register object V50;
489
{register object V51;
495
(void)((*(LnkLI270))(VV[40],small_fixnum(1),small_fixnum(0)));
497
{register object V53;
507
if((V55!= VV[271]))goto T312;
511
if((V55!= VV[39]))goto T314;
515
if((V55!= VV[272]))goto T316;
518
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[41],(V54))));}
525
bds_bind(VV[38],base[1]);
528
base[2]= (*(LnkLI273))(cdr((V50)));
529
vs_top=(vs_base=base+2)+1;
535
base[2]= make_cons(VV[42],cdr((V50)));
536
vs_top=(vs_base=base+2)+1;
542
vs_top=(vs_base=base+2)+1;
547
/* local entry for function T1PROGN */
549
static object LI5(V57)
555
if(!(equal(car((V57)),VV[43]))){
558
{object V58 = (*(LnkLI273))(cdr((V57)));
562
{register object V59;
573
vs_top=(vs_base=base+1)+1;
580
/* local entry for function CMPFIX-ARGS */
582
static object LI6(V64,V65)
584
object V64;object V65;
587
{register object V66;
590
base[1]= cadr((V64));
591
vs_top=(vs_base=base+1)+1;
595
{register object V68;
604
{register object x= car((V69)),V70= (V67);
606
if(eql(x,V70->c.c_car)){
609
}else V70=V70->c.c_cdr;
614
{register object V71;
618
if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71));
619
((V71))->c.c_car = (V72);}
625
{register object x= VV[45],V73= (V67);
627
if(eql(x,V73->c.c_car)){
630
}else V73=V73->c.c_cdr;
636
V75= append((V65),cdr((V66)));
637
if(type_of(V66)!=t_cons)FEwrong_type_argument(Scons,V66);
638
(V66)->c.c_cdr = (V75);
641
V76= make_cons(VV[45],(V65));
642
V67= append((V67),/* INLINE-ARGS */V76);
644
{object V77 = listA(3,car((V64)),(V67),cddr((V64)));
647
/* local entry for function T1DEFUN */
649
static object LI7(V79)
656
V80= symbol_value(VV[46]);
657
bds_bind(VV[48],Cnil);
660
if(!(endp(cdr((V79))))){
663
V82 = make_fixnum(length((V79)));
664
(void)((*(LnkLI270))(VV[47],small_fixnum(2),V82));
666
if(type_of(car((V79)))==t_symbol){
668
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[49],car((V79)))));
670
V83= make_cons(VV[47],(V79));
671
(void)((*(LnkLI255))(Cnil,/* INLINE-ARGS */V83));
675
{register object V84;
678
register object V87;{object V88;
679
V88= get(car((V79)),VV[56],Cnil);
680
if(V88==Cnil)goto T397;
684
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
685
V85= symbol_value(VV[57]);
688
bds_bind(VV[51],Cnil);
689
bds_bind(VV[52],Cnil);
690
bds_bind(VV[53],Cnil);
691
bds_bind(VV[54],Cnil);
693
bds_bind(VV[55],Cnil);
695
V84= (VFUN_NARGS=2,(*(LnkLI274))(cdr((V79)),(V87)));
696
if(!(eql((V80),symbol_value(VV[46])))){
700
(void)(structure_set(cadr((V84)),VV[58],4,Ct));
702
V89= structure_ref(cadr((V84)),VV[58],1);
703
(void)((*(LnkLI275))(/* INLINE-ARGS */V89));
704
if((get((V87),VV[59],Cnil))==Cnil){
707
V90= make_fixnum(length(car(caddr((V84)))));
708
(void)(sputprop((V87),VV[59],(V90)));
712
vs_top=(vs_base=base+6)+3;
716
V92= list(4,VV[60],(V87),V91,Ct);
717
(void)((*(LnkLI276))(/* INLINE-ARGS */V92));}
719
if((get((V87),VV[62],Cnil))==Cnil){
725
if((cadr((V93)))==Cnil){
729
if((caddr((V93)))==Cnil){
733
if((cadddr((V93)))==Cnil){
737
if((length(car((V93))))<(64)){
741
{register object V95;
745
V96= get((V87),VV[63],Cnil);
756
V79= (*(LnkLI277))((V79),(V94));
768
{register object V98;
770
if(!(equal(car((V96)),VV[64]))){
774
V99= structure_ref((V98),VV[65],1);
775
if((/* INLINE-ARGS */V99)==(VV[66])){
777
V100= structure_ref((V98),VV[65],1);
778
if(!((/* INLINE-ARGS */V100)==(VV[67]))){
780
if(!((car((V96)))==(Ct))){
783
if((structure_ref((V98),VV[65],3))!=Cnil){
785
V101= structure_ref((V98),VV[65],4);
786
if(!((/* INLINE-ARGS */V101)==(VV[68]))){
789
V102= structure_ref((V98),VV[65],0);
794
V104= list(2,/* INLINE-ARGS */V102,V103);
795
V94= make_cons(/* INLINE-ARGS */V104,(V94));
798
V106= structure_ref((V98),VV[65],5);
799
if(((*(LnkLI278))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V106))==Cnil){
801
{register object x= car((V96)),V107= VV[69];
803
if(eql(x,V107->c.c_car)){
805
}else V107=V107->c.c_cdr;}
806
V108= structure_ref((V98),VV[65],4);
807
if((/* INLINE-ARGS */V108)==(VV[70])){
809
if((symbol_value(VV[71]))!=Cnil){
811
V110= structure_ref(cadr((V84)),VV[58],0);
812
{register object x= (V98),V109= /* INLINE-ARGS */V110;
814
if(eql(x,V109->c.c_car)){
816
}else V109=V109->c.c_cdr;
822
V111= structure_ref((V98),VV[65],0);
823
(void)((VFUN_NARGS=3,(*(LnkLI254))(VV[72],(V87),/* INLINE-ARGS */V111)));
833
if(!(type_of((V85))==t_fixnum||
834
type_of((V85))==t_bignum||
835
type_of((V85))==t_ratio||
836
type_of((V85))==t_shortfloat||
837
type_of((V85))==t_longfloat||
838
type_of((V85))==t_complex)){
840
V112= get((V87),VV[63],Cnil);
841
V113= get((V87),VV[74],Cnil);
842
V114= get((V87),VV[63],Cnil);
843
V115= list(5,(V87),V112,V113,small_fixnum(3),(*(LnkLI279))((V85),V114));
844
setq(VV[73],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[73])));
848
V117= get((V87),VV[74],Cnil);
849
V116= ((V117)==(Ct)?Ct:Cnil);
853
if((cadddr((V84)))==Cnil){
857
(void)((*(LnkLI280))());
858
V118= list(6,VV[47],(V87),(V85),(V84),(V86),(VV[55]->s.s_dbind));
859
setq(VV[20],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[20])));
860
V119= make_cons((V87),(V85));
861
setq(VV[75],make_cons(/* INLINE-ARGS */V119,symbol_value(VV[75])));
862
V120= symbol_value(VV[75]);
872
/* local entry for function MAKE-INLINE-STRING */
874
static object LI8(V124,V125)
876
object V124;object V125;
884
vs_top=(vs_base=base+0)+3;
887
{object V126 = vs_base[0];
890
{register object V127;
891
V127= (VFUN_NARGS=7,(*(LnkLI281))(small_fixnum(100),VV[77],VV[78],VV[79],small_fixnum(0),VV[80],Ct));
895
vs_top=(vs_base=base+0)+3;
898
{register object V128;
903
if(!(endp(cdr((V128))))){
907
base[2]= make_fixnum(V129);
908
vs_top=(vs_base=base+0)+3;
915
base[2]= make_fixnum(V129);
916
vs_top=(vs_base=base+0)+3;
923
{object V130 = (V127);
926
/* local entry for function CS-PUSH */
928
static object LI9(va_alist)
932
int narg = VFUN_NARGS; VMB9 VMS9 VMV9
935
if (narg <= 0) goto T532;
938
V131= va_arg(ap,object);}
944
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
945
V132= symbol_value(VV[84]);
948
V133= make_cons((V131),(V132));
953
setq(VV[14],make_cons(V133,symbol_value(VV[14])));
954
{object V134 = (V132);
957
/* local entry for function F-TYPE */
959
static int LI10(V136)
961
register object V136;
966
vs_top=(vs_base=base+0)+2;
969
if((vs_base[0])==Cnil){
971
V136= structure_ref((V136),VV[65],5);
977
vs_top=(vs_base=base+0)+2;
980
if((vs_base[0])==Cnil){
988
/* local entry for function PROCLAIMED-ARGD */
990
static int LI11(V141,V142)
992
register object V141;object V142;
997
register object V145;
998
register object V146;
999
V143= length((V141));
1001
V145= make_fixnum((*(LnkLI284))((V142)));
1004
if(eql(small_fixnum(0),(V145))){
1006
V143= (V143)+(((fix((V145))) << (V144)));
1019
{register object V149;
1023
V145= make_fixnum((*(LnkLI284))(V148));
1026
/* local entry for function WT-IF-PROCLAIMED */
1028
static object LI12(V153,V154,V155)
1030
register object V153;object V154;object V155;
1033
if(((VFUN_NARGS=1,(*(LnkLI286))((V153))))==Cnil){
1035
{register object x= (V153),V156= symbol_value(VV[73]);
1037
if(type_of(V156->c.c_car)==t_cons &&eql(x,V156->c.c_car->c.c_car)){
1039
}else V156=V156->c.c_cdr;
1042
V157= list(2,VV[87],(V153));
1043
V158= (*(LnkLI288))(VV[88],(V154));
1044
V159= get((V153),VV[63],Cnil);
1045
V160= get((V153),VV[74],Cnil);
1046
V161 = make_fixnum((*(LnkLI289))(V159,V160));
1047
V162= list(4,VV[86],/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,V161);
1048
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V162)));
1052
{register object V164;
1053
register object V165;
1055
V164= make_fixnum(length(car(caddr((V155)))));
1056
V167= get((V153),VV[63],Cnil);
1057
V165= make_fixnum(length(V167));
1058
V169= get((V153),VV[63],Cnil);
1059
{register object x= VV[64],V168= V169;
1061
if(eql(x,V168->c.c_car)){
1064
}else V168=V168->c.c_cdr;
1070
vs_top=(vs_base=base+0)+1;
1071
Lmonotonically_nonincreasing();
1073
if((vs_base[0])==Cnil){
1077
V171 = make_fixnum(length((V166)));
1078
V170= number_minus((V165),V171);
1079
if(V170==Cnil)goto T604;
1082
V172 = make_fixnum(length((V166)));
1083
V173= number_minus((V165),V172);
1084
(void)((VFUN_NARGS=4,(*(LnkLI254))(VV[89],(V153),/* INLINE-ARGS */V173,(V164))));
1087
if(eql((V164),(V165))){
1089
(void)((VFUN_NARGS=4,(*(LnkLI254))(VV[90],(V153),(V165),(V164))));
1092
(void)((VFUN_NARGS=2,(*(LnkLI254))(VV[91],(V153))));}
1094
{object V174 = Cnil;
1097
{object V175 = Cnil;
1100
/* local entry for function VOLATILE */
1102
static object LI13(V177)
1107
if((structure_ref((V177),VV[58],4))==Cnil){
1109
{object V178 = VV[92];
1112
{object V179 = VV[93];
1115
/* local entry for function REGISTER */
1117
static object LI14(V181)
1122
if(!(equal(symbol_value(VV[16]),VV[94]))){
1124
{int V182= fix(structure_ref((V181),VV[65],6));
1125
if(!((/* INLINE-ARGS */V182)>=(fix(symbol_value(VV[95]))))){
1127
{object V183 = VV[96];
1130
{object V184 = VV[97];
1133
/* local entry for function VARARG-P */
1135
static object LI15(V186)
1140
V187= get((V186),VV[74],Cnil);
1143
{object V188 = Cnil;
1146
{register object V189;
1147
V189= get((V186),VV[63],Cnil);
1154
if(!(type_of((V189))==t_cons)){
1158
{object V191 = Cnil;
1161
if(!((car((V189)))==(Ct))){
1165
if(!((car((V189)))==(VV[64]))){
1169
{object V192 = Cnil;
1175
/* local entry for function MAXARGS */
1177
static object LI16(V194)
1179
register object V194;
1182
if((cadr(cddddr((V194))))!=Cnil){
1184
if((caddr((V194)))==Cnil){
1187
{object V195 = small_fixnum(64);
1190
base[0]= make_fixnum(length(car((V194))));
1191
base[1]= make_fixnum(length(cadr((V194))));
1192
V196 = make_fixnum(length(car(cddddr((V194)))));
1193
base[2]= number_times(small_fixnum(2),V196);
1194
vs_top=(vs_base=base+0)+3;
1197
{object V197 = vs_base[0];
1200
/* local entry for function ADD-ADDRESS */
1202
static object LI17(V200,V201)
1204
object V200;object V201;
1207
V202= list(2,(V200),(V201));
1208
setq(VV[17],make_cons(/* INLINE-ARGS */V202,symbol_value(VV[17])));
1210
V203= symbol_value(VV[18]);
1211
setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1)));
1212
{object V204 = (V203);
1215
/* local entry for function T2DEFUN */
1217
static object LI18(V210,V211,V212,V213,V214)
1219
register object V210;register object V211;register object V212;object V213;object V214;
1222
if((get((V210),VV[98],Cnil))==Cnil){
1224
{object V215 = Cnil;
1229
V216= list(4,VV[99],list(2,VV[87],(V210)),(V213),VV[100]);
1230
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V216)));
1233
V217= (*(LnkLI290))((V210),(V211),(V212));
1238
if(((*(LnkLI291))((V210)))==Cnil){
1241
V218= cadddr(caddr((V212)));
1242
princ_str("\nstatic object LI",VV[27]);
1243
(void)((*(LnkLI265))((V211)));
1244
princ_str("();",VV[27]);
1247
V219= list(2,VV[87],(V210));
1248
V220= (*(LnkLI288))(VV[102],(V211));
1249
V221 = make_fixnum(length(car(caddr((V212)))));
1250
V222= (*(LnkLI292))(caddr((V212)));
1251
V223= (*(LnkLI285))(/* INLINE-ARGS */V222,small_fixnum(8));
1252
V224= number_plus(V221,/* INLINE-ARGS */V223);
1256
vs_top=(vs_base=base+0)+3;
1260
V226= list(5,VV[101],/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,/* INLINE-ARGS */V224,(*(LnkLI288))(V225,VV[104]));
1261
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V226)));
1264
V227= list(2,VV[87],(V210));
1265
V228= (*(LnkLI288))(VV[106],(V211));
1266
V229 = make_fixnum(length(car(caddr((V212)))));
1267
V230= (*(LnkLI292))(caddr((V212)));
1268
V231= (*(LnkLI285))(/* INLINE-ARGS */V230,small_fixnum(8));
1269
V232= list(4,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,number_plus(V229,/* INLINE-ARGS */V231));
1270
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V232)));
1273
if(!(type_of((V211))==t_fixnum||
1274
type_of((V211))==t_bignum||
1275
type_of((V211))==t_ratio||
1276
type_of((V211))==t_shortfloat||
1277
type_of((V211))==t_longfloat||
1278
type_of((V211))==t_complex)){
1280
princ_str("\nstatic L",VV[27]);
1281
(void)((*(LnkLI265))((V211)));
1282
princ_str("();",VV[27]);
1283
V233= list(2,VV[87],(V210));
1284
V234= list(3,VV[107],/* INLINE-ARGS */V233,(*(LnkLI288))(VV[108],(V211)));
1285
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V234)));
1288
princ_char(10,VV[27]);
1289
(void)((*(LnkLI265))((V211)));
1290
princ_str("();",VV[27]);
1291
V235= list(2,VV[87],(V210));
1292
V236= list(3,VV[107],/* INLINE-ARGS */V235,(*(LnkLI288))(VV[109],(V211)));
1293
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V236)));}
1295
if(!(number_compare(symbol_value(VV[110]),small_fixnum(2))<0)){
1297
{object V237 = sputprop((V210),VV[111],Ct);
1300
{object V238 = Cnil;
1303
/* local entry for function ADD-DEBUG */
1305
static object LI19(V241,V242)
1307
object V241;object V242;
1310
{object V243 = putprop((V241),(V242),VV[112]);
1313
/* local entry for function T3DEFUN */
1315
static object LI20(V249,V250,V251,V252,V253)
1317
register object V249;register object V250;register object V251;object V252;object V253;
1321
{register object V254;
1323
bds_bind(VV[0],list(2,VV[47],(V249)));
1324
bds_bind(VV[16],(*(LnkLI293))(cadr((V251))));
1325
bds_bind(VV[113],Cnil);
1326
{register object V255;
1327
register object V256;
1328
V255= symbol_value(VV[73]);
1331
if(!(endp((V255)))){
1335
base[4]= cadddr((V256));
1336
vs_top=(vs_base=base+4)+1;
1340
if(V257==Cnil)goto T706;
1344
vs_top=(vs_base=base+4)+1;
1348
if((car((V256)))==((V249))){
1352
if((cadr(cddddr((V256))))==Cnil){
1365
if(((VFUN_NARGS=1,(*(LnkLI286))((V249))))!=Cnil){
1367
V258= list(4,(V249),(V250),cadr((V254)),caddr((V254)));
1368
setq(VV[25],make_cons(/* INLINE-ARGS */V258,symbol_value(VV[25])));
1370
V259= structure_ref(cadr((V251)),VV[58],1);
1371
(void)((*(LnkLI295))(/* INLINE-ARGS */V259,small_fixnum(0)));
1373
{object V260= caddr((V254));
1374
if((V260!= VV[85]))goto T728;
1378
if((V260!= VV[138]))goto T729;
1382
if((V260!= VV[139]))goto T730;
1386
if((V260!= VV[140]))goto T731;
1397
vs_top=(vs_base=base+3)+7;
1402
if(((*(LnkLI291))((V249)))==Cnil){
1404
V261= structure_ref(cadr((V251)),VV[58],1);
1405
(void)((*(LnkLI295))(/* INLINE-ARGS */V261,small_fixnum(0)));
1412
vs_top=(vs_base=base+3)+6;
1417
V262= structure_ref(cadr((V251)),VV[58],1);
1418
(void)((*(LnkLI295))(/* INLINE-ARGS */V262,small_fixnum(2)));
1425
vs_top=(vs_base=base+3)+6;
1429
(void)((*(LnkLI297))((V250)));
1430
{object V263 = (*(LnkLI298))((V249),(V251));
1436
/* function definition for T3DEFUN-AUX */
1439
{register object *base=vs_base;
1440
register object *sup=base+VM21; VC21
1445
if(vs_top-vs_base<2) too_few_arguments();
1447
bds_bind(VV[124],base[1]);
1451
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1454
bds_bind(VV[14],Cnil);
1455
bds_bind(VV[125],small_fixnum(0));
1456
bds_bind(VV[126],small_fixnum(0));
1457
bds_bind(VV[127],small_fixnum(0));
1458
bds_bind(VV[128],small_fixnum(0));
1459
bds_bind(VV[129],Cnil);
1460
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
1461
bds_bind(VV[131],(VV[124]->s.s_dbind));
1462
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
1463
bds_bind(VV[132],symbol_value(VV[133]));
1464
bds_bind(VV[134],Cnil);
1465
bds_bind(VV[135],Cnil);
1466
bds_bind(VV[136],Cnil);
1467
bds_bind(VV[137],small_fixnum(0));
1473
{vs_push(car(V266));V266=cdr(V266);}
1475
super_funcall_no_event(base[16]);
1493
/* local entry for function T3DEFUN-LOCAL-ENTRY */
1495
static object LI22(V272,V273,V274,V275,V276)
1497
object V272;object V273;object V274;object V275;object V276;
1504
V278= caaddr((V274));
1505
{register object V279;
1510
if(!(endp((V279)))){
1514
V281= structure_ref(car((V279)),VV[65],1);
1515
if(!((/* INLINE-ARGS */V281)==(VV[67]))){
1518
V283= structure_ref(car((V279)),VV[65],4);
1519
V284= make_cons(/* INLINE-ARGS */V282,/* INLINE-ARGS */V283);
1520
V277= make_cons(/* INLINE-ARGS */V284,(V277));
1524
{object V287= car((V280));
1525
if((V287!= VV[85]))goto T776;
1529
if((V287!= VV[138]))goto T777;
1533
if((V287!= VV[139]))goto T778;
1537
if((V287!= VV[140]))goto T779;
1543
(void)(structure_set(/* INLINE-ARGS */V285,VV[65],1,V286));
1546
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1547
(void)(structure_set(/* INLINE-ARGS */V288,VV[65],4,symbol_value(VV[84])));
1552
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[141],(V272))));
1553
princ_str("\nstatic ",VV[27]);
1554
V289= (*(LnkLI268))(caddr((V276)));
1555
(void)((*(LnkLI265))(/* INLINE-ARGS */V289));
1556
princ_str("LI",VV[27]);
1557
(void)((*(LnkLI265))((V273)));
1558
princ_str("();",VV[27]);
1559
princ_str("\nstatic ",VV[21]);
1560
V290= (*(LnkLI268))(caddr((V276)));
1561
(void)((*(LnkLI262))(/* INLINE-ARGS */V290));
1562
princ_str("LI",VV[21]);
1563
(void)((*(LnkLI262))((V273)));
1564
princ_char(40,VV[21]);
1565
(void)((*(LnkLI300))((V278),cadr((V276))));
1567
V291= symbol_value(VV[132]);
1568
if((symbol_value(VV[143]))==Cnil){
1570
base[1]= make_cons((V272),(V278));
1575
bds_bind(VV[142],base[1]);
1576
bds_bind(VV[130],symbol_value(VV[130]));
1577
princ_str("\n{ ",VV[21]);
1578
V292= structure_ref(cadr((V274)),VV[58],1);
1579
(void)((*(LnkLI301))(/* INLINE-ARGS */V292,(V273),VV[144]));
1580
princ_str(" VMB",VV[21]);
1581
(void)((*(LnkLI262))((V291)));
1582
princ_str(" VMS",VV[21]);
1583
(void)((*(LnkLI262))((V291)));
1584
princ_str(" VMV",VV[21]);
1585
(void)((*(LnkLI262))((V291)));
1588
princ_str("\n bds_check;",VV[21]);
1590
if((symbol_value(VV[145]))==Cnil){
1592
princ_str("\n ihs_check;",VV[21]);
1594
if(((VV[142]->s.s_dbind))==Cnil){
1596
(VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));
1597
princ_str("\nTTL:;",VV[21]);
1599
{register object V293;
1600
register object V294;
1604
if(!(endp((V293)))){
1608
princ_str("\n bds_bind(VV[",VV[21]);
1609
(void)((*(LnkLI262))(cdr((V294))));
1610
princ_str("],V",VV[21]);
1611
V295= structure_ref(car((V294)),VV[65],4);
1612
(void)((*(LnkLI262))(/* INLINE-ARGS */V295));
1613
princ_str(");",VV[21]);
1614
(VV[130]->s.s_dbind)= make_cons(VV[147],(VV[130]->s.s_dbind));
1615
(void)(structure_set(car((V294)),VV[65],1,VV[67]));
1616
(void)(structure_set(car((V294)),VV[65],4,cdr((V294))));
1621
base[3]= caddr(cddr((V274)));
1622
vs_top=(vs_base=base+3)+1;
1625
princ_str("\n}",VV[21]);
1626
{object V296 = (*(LnkLI303))((V291),caddr((V276)));
1631
/* local entry for function SET-UP-VAR-CVS */
1633
static object LI23(V298)
1638
if((symbol_value(VV[148]))==Cnil){
1640
V299= (*(LnkLI304))();
1641
{object V300 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V299);
1644
V301= (*(LnkLI305))();
1645
{object V302 = structure_set((V298),VV[65],2,/* INLINE-ARGS */V301);
1648
/* local entry for function T3DEFUN-VARARG */
1650
static object LI24(V307,V308,V309,V310)
1652
object V307;object V308;object V309;object V310;
1657
register object V312;
1665
bds_bind(VV[148],Cnil);
1670
bds_bind(VV[149],small_fixnum(0));
1672
V316= caddr((V309));
1673
V317= Cnil;{object V319;
1674
V319= caddr((V316));
1675
if(V319==Cnil)goto T868;
1678
T868:;}{object V320;
1680
if(V320==Cnil)goto T870;
1684
V318= cadddr((V316));
1687
register object V322;
1691
if(!(endp((V321)))){
1695
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1696
V323= list(2,VV[150],symbol_value(VV[84]));
1697
V311= make_cons(/* INLINE-ARGS */V323,(V311));
1702
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[151],(V307))));
1703
princ_str("\nstatic object LI",VV[27]);
1704
(void)((*(LnkLI265))((V308)));
1705
princ_str("();",VV[27]);
1706
princ_str("\nstatic object LI",VV[21]);
1707
(void)((*(LnkLI262))((V308)));
1708
princ_char(40,VV[21]);
1709
(void)((*(LnkLI306))((V311)));
1714
princ_char(44,VV[21]);
1716
princ_str("va_alist",VV[21]);
1718
princ_char(41,VV[21]);
1721
princ_str("\n object ",VV[21]);
1722
(void)((*(LnkLI306))((V311)));
1723
princ_char(59,VV[21]);
1727
princ_str("\n va_dcl ",VV[21]);
1730
V324= symbol_value(VV[132]);
1731
if(symbol_value(VV[143])==Cnil){
1734
if((caddr((V316)))==Cnil){
1744
if(!(endp((V325)))){
1748
if((structure_ref((V326),VV[65],3))==Cnil){
1759
if((cadr((V316)))==Cnil){
1764
if((car(cddddr((V316))))==Cnil){
1769
base[5]= make_cons((V307),car((V316)));
1771
bds_bind(VV[142],base[5]);
1772
bds_bind(VV[130],symbol_value(VV[130]));
1773
princ_str("\n{ ",VV[21]);
1776
princ_str("\n va_list ap;",VV[21]);
1778
princ_str("\n int narg = VFUN_NARGS;",VV[21]);
1779
V327= structure_ref(cadr((V309)),VV[58],1);
1780
(void)((*(LnkLI301))(/* INLINE-ARGS */V327,(V308),VV[144]));
1781
princ_str(" VMB",VV[21]);
1782
(void)((*(LnkLI262))((V324)));
1783
princ_str(" VMS",VV[21]);
1784
(void)((*(LnkLI262))((V324)));
1785
princ_str(" VMV",VV[21]);
1786
(void)((*(LnkLI262))((V324)));
1789
princ_str("\n bds_check;",VV[21]);
1791
if((symbol_value(VV[145]))==Cnil){
1793
princ_str("\n ihs_check;",VV[21]);
1797
princ_str("\n if ( narg!= ",VV[21]);
1798
V328 = make_fixnum(length((V311)));
1799
(void)((*(LnkLI262))(V328));
1800
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]);
1801
V329 = make_fixnum(length((V311)));
1802
(void)((*(LnkLI262))(V329));
1803
princ_str("));",VV[21]);
1810
if(!(endp((V330)))){
1815
vs_top=(vs_base=base+9)+1;
1827
if(!(endp((V332)))){
1831
base[9]= car((V333));
1832
vs_top=(vs_base=base+9)+1;
1835
if((caddr((V333)))==Cnil){
1837
base[9]= caddr((V333));
1838
vs_top=(vs_base=base+9)+1;
1846
if((caddr((V316)))==Cnil){
1848
base[7]= caddr((V316));
1849
vs_top=(vs_base=base+7)+1;
1855
V334= car(cddddr((V316)));
1858
if(!(endp((V334)))){
1862
base[9]= cadr((V335));
1863
vs_top=(vs_base=base+9)+1;
1866
if((cadddr((V335)))==Cnil){
1868
base[9]= cadddr((V335));
1869
vs_top=(vs_base=base+9)+1;
1877
if((symbol_value(VV[152]))!=Cnil){
1879
if((symbol_value(VV[153]))==Cnil){
1882
if((car((V316)))==Cnil){
1884
princ_str("\n if(narg <",VV[21]);
1885
V336 = make_fixnum(length(car((V316))));
1886
(void)((*(LnkLI262))(V336));
1887
princ_str(") too_few_arguments();",VV[21]);
1894
if(!(endp((V337)))){
1898
(void)((*(LnkLI307))((V338)));
1908
if(!(endp((V339)))){
1912
(void)((*(LnkLI307))(car((V340))));
1917
if((caddr((V316)))==Cnil){
1919
(void)((*(LnkLI307))(caddr((V316))));
1921
if(((VV[148]->s.s_dbind))==Cnil){
1923
V314= symbol_value(VV[125]);
1926
V314= symbol_value(VV[137]);
1930
V341= car(cddddr((V316)));
1933
if(!(endp((V341)))){
1937
(void)((*(LnkLI307))(cadr((V342))));
1944
V343= car(cddddr((V316)));
1947
if(!(endp((V343)))){
1951
(void)((*(LnkLI307))(cadddr((V344))));
1965
(void)((*(LnkLI308))(car((V346)),car((V345))));
1970
if((cadr((V316)))==Cnil){
1972
bds_bind(VV[129],symbol_value(VV[129]));
1973
bds_bind(VV[130],(VV[130]->s.s_dbind));
1974
bds_bind(VV[128],symbol_value(VV[128]));
1975
princ_str("\n narg = narg - ",VV[21]);
1976
V347 = make_fixnum(length((V311)));
1977
(void)((*(LnkLI262))(V347));
1978
princ_char(59,VV[21]);
1984
if(!(endp((V348)))){
1991
setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));
1992
V350= make_cons(symbol_value(VV[154]),Cnil);
1993
V312= make_cons(/* INLINE-ARGS */V350,(V312));
1994
princ_str("\n if (",VV[21]);
1995
if((cdr((V312)))==Cnil){
2002
(void)((*(LnkLI262))(V351));
2003
princ_str("narg <= 0) ",VV[21]);
2004
if(type_of(car((V312)))!=t_cons)FEwrong_type_argument(Scons,car((V312)));
2005
(car((V312)))->c.c_cdr = Ct;
2006
(void)(car((V312)));
2007
princ_str("goto T",VV[21]);
2008
(void)((*(LnkLI262))(car(car((V312)))));
2009
princ_char(59,VV[21]);
2010
princ_str("\n else {",VV[21]);
2014
princ_str("\n va_start(ap);",VV[21]);
2017
V353= make_cons(VV[157],Cnil);
2018
(void)((*(LnkLI308))(/* INLINE-ARGS */V352,/* INLINE-ARGS */V353));
2019
princ_char(125,VV[21]);
2020
if((caddr((V349)))==Cnil){
2022
(void)((*(LnkLI308))(caddr((V349)),Ct));
2028
V312= nreverse((V312));
2030
setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));
2031
V354= make_cons(symbol_value(VV[154]),Cnil);
2032
princ_str("\n --narg; ",VV[21]);
2033
if(type_of((V354))!=t_cons)FEwrong_type_argument(Scons,(V354));
2034
((V354))->c.c_cdr = Ct;
2035
princ_str("goto T",VV[21]);
2036
(void)((*(LnkLI262))(car((V354))));
2037
princ_char(59,VV[21]);
2043
if(!(endp((V355)))){
2047
if((cdr(car((V312))))==Cnil){
2049
princ_str("\nT",VV[21]);
2050
(void)((*(LnkLI262))(car(car((V312)))));
2051
princ_str(":;",VV[21]);
2056
(void)((*(LnkLI309))(car((V356)),cadr((V356))));
2057
if((caddr((V356)))==Cnil){
2059
(void)((*(LnkLI308))(caddr((V356)),Cnil));
2065
if((cdr((V354)))==Cnil){
2067
princ_str("\nT",VV[21]);
2068
(void)((*(LnkLI262))(car((V354))));
2069
princ_str(":;",VV[21]);}
2071
if((caddr((V316)))==Cnil){
2073
V315= (VFUN_NARGS=0,(*(LnkLI310))());
2080
princ_str("\n narg= narg - ",VV[21]);
2081
V359 = make_fixnum(length(car((V316))));
2082
(void)((*(LnkLI262))(V359));
2083
princ_char(59,VV[21]);}
2088
princ_str("\n va_start(ap);",VV[21]);
2090
princ_str("\n V",VV[21]);
2091
(void)((*(LnkLI262))((V315)));
2092
princ_str(" = ",VV[21]);
2093
V360= structure_ref(caddr((V316)),VV[65],5);
2094
if(!((/* INLINE-ARGS */V360)==(VV[159]))){
2099
base[7]= symbol_value(VV[158]);
2101
bds_bind(VV[158],base[7]);
2102
if((cadddr((V316)))==Cnil){
2104
if(((VV[158]->s.s_dbind))==Cnil){
2106
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]);
2109
princ_str("make_list(narg);",VV[21]);
2112
if(((VV[158]->s.s_dbind))==Cnil){
2114
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]);
2117
princ_str("list_vector(narg,ap);",VV[21]);
2119
V361= caddr((V316));
2120
V362= list(2,VV[150],(V315));
2121
V363= (*(LnkLI308))(/* INLINE-ARGS */V361,/* INLINE-ARGS */V362);
2124
if((cadddr((V316)))==Cnil){
2127
V364= caddr((V316));
2138
princ_str("\n narg= narg - ",VV[21]);
2139
V366 = make_fixnum(length(car((V316))));
2140
(void)((*(LnkLI262))(V366));
2141
princ_char(59,VV[21]);}}
2146
princ_str("\n va_start(ap);",VV[21]);
2149
object V368= car(cddddr((V316)));
2153
base[7]=V367=MMcons(Cnil,Cnil);
2155
(V367->c.c_car)= caddr((V368->c.c_car));
2156
if(endp(V368=MMcdr(V368))){
2159
V367=MMcdr(V367)=MMcons(Cnil,Cnil);
2164
V370= make_fixnum(length(car(cddddr((V316)))));
2166
{register object V371;
2170
V372= car(cddddr((V316)));
2177
if(!((caar((V371)))==(VV[160]))){
2179
if((caddr(car((V371))))==(Cnil)){
2184
if(!((caar((V371)))==(VV[160]))){
2187
V374= caddr(car((V371)));
2188
if(!(((V374))==(Cnil))){
2192
if(type_of((V374))==t_cons){
2196
{register object x= car((V374)),V375= VV[161];
2198
if(eql(x,V375->c.c_car)){
2200
}else V375=V375->c.c_cdr;
2203
V376= structure_ref(cadddr((V373)),VV[65],1);
2204
if((/* INLINE-ARGS */V376)==(VV[162])){
2208
if(type_of(V371)!=t_cons)FEwrong_type_argument(Scons,V371);
2209
(V371)->c.c_car = small_fixnum(0);
2216
if(!((length((V313)))>(15))){
2220
princ_str("\n {",VV[21]);
2224
bds_bind(VV[21],symbol_value(VV[27]));
2227
princ_char(10,VV[27]);
2228
princ_str("static object VK",VV[21]);
2229
(void)((*(LnkLI262))((V308)));
2230
princ_str("defaults[",VV[21]);
2231
V379 = make_fixnum(length((V313)));
2232
(void)((*(LnkLI262))(V379));
2233
princ_str("]={",VV[21]);
2235
register object V381;
2243
princ_str("(void *)",VV[21]);
2244
if(!(eql(car((V380)),small_fixnum(0)))){
2246
princ_str("-1",VV[21]);
2249
V381= caddr(car((V380)));
2250
if(!(((V381))==(Cnil))){
2252
princ_str("-2",VV[21]);
2255
if(!(type_of((V381))==t_cons)){
2257
if(!((car((V381)))==(VV[163]))){
2259
(void)((*(LnkLI262))(cadr((V381))));
2262
if(!(type_of((V381))==t_cons)){
2264
if(!((car((V381)))==(VV[164]))){
2266
V382= (*(LnkLI312))(caddr((V381)));
2267
(void)((*(LnkLI262))(/* INLINE-ARGS */V382));
2270
(void)((*(LnkLI313))());
2272
if((cdr((V380)))==Cnil){
2274
princ_char(44,VV[21]);
2279
princ_str("};",VV[21]);
2281
princ_char(10,VV[27]);
2282
princ_str("static struct { short n,allow_other_keys;",VV[21]);
2283
princ_str("object *defaults;",VV[21]);
2284
princ_str("\n KEYTYPE keys[",VV[21]);
2285
(void)((*(LnkLI262))((number_compare((V370),small_fixnum(1))>=0?((V370)):small_fixnum(1))));
2286
princ_str("];",VV[21]);
2287
princ_str("} LI",VV[21]);
2288
(void)((*(LnkLI262))((V308)));
2289
princ_str("key=",VV[21]);
2290
princ_char(123,VV[21]);
2291
V383 = make_fixnum(length(car(cddddr((V316)))));
2292
(void)((*(LnkLI262))(V383));
2293
princ_char(44,VV[21]);
2294
if((cadr(cddddr((V316))))==Cnil){
2296
V384= small_fixnum(1);
2299
V384= small_fixnum(0);
2301
(void)((*(LnkLI262))(V384));
2302
princ_char(44,VV[21]);
2305
princ_str("VK",VV[21]);
2306
(void)((*(LnkLI262))((V308)));
2307
princ_str("defaults",VV[21]);
2310
princ_str("Cstd_key_defaults",VV[21]);
2312
if((car(cddddr((V316))))==Cnil){
2314
princ_str(",{",VV[21]);
2316
V385= reverse(car(cddddr((V316))));
2322
princ_str("(void *)",VV[21]);
2323
V386= (*(LnkLI314))(caar((V385)));
2324
(void)((*(LnkLI262))(/* INLINE-ARGS */V386));
2325
if((cdr((V385)))==Cnil){
2327
princ_char(44,VV[21]);
2332
princ_char(125,VV[21]);
2334
princ_str("};",VV[21]);
2336
if((caddr((V316)))==Cnil){
2338
princ_str("\n parse_key_rest(",VV[21]);
2339
V387= list(2,VV[150],(V315));
2340
(void)((*(LnkLI262))(/* INLINE-ARGS */V387));
2341
princ_char(44,VV[21]);
2344
princ_str("\n parse_key_new(",VV[21]);
2346
if(!(eql(small_fixnum(0),symbol_value(VV[137])))){
2348
setq(VV[137],small_fixnum(1));
2350
princ_str("narg,",VV[21]);
2351
if(((VV[148]->s.s_dbind))==Cnil){
2358
(void)((*(LnkLI262))(V388));
2359
princ_char(43,VV[21]);
2360
(void)((*(LnkLI262))((V314)));
2361
princ_str(",&LI",VV[21]);
2362
(void)((*(LnkLI262))((V308)));
2363
princ_str("key,ap);",VV[21]);}
2366
register object V390;
2367
V389= car(cddddr((V316)));
2370
if(!(endp((V389)))){
2378
if(eql(small_fixnum(0),V391)){
2380
(void)((*(LnkLI315))(cadr((V390))));
2383
princ_str("\n if(",VV[21]);
2384
V393= structure_ref(cadr((V390)),VV[65],2);
2385
(void)((*(LnkLI316))(/* INLINE-ARGS */V393));
2386
princ_str("==0){",VV[21]);
2387
bds_bind(VV[129],symbol_value(VV[129]));
2388
bds_bind(VV[130],(VV[130]->s.s_dbind));
2389
bds_bind(VV[128],symbol_value(VV[128]));
2390
V394= (*(LnkLI309))(cadr((V390)),caddr((V390)));
2394
V395= structure_ref(cadddr((V390)),VV[65],1);
2395
if((/* INLINE-ARGS */V395)==(VV[162])){
2397
(void)((*(LnkLI308))(cadddr((V390)),Cnil));
2399
princ_str("\n }else{",VV[21]);
2400
(void)((*(LnkLI315))(cadr((V390))));
2401
V396= structure_ref(cadddr((V390)),VV[65],1);
2402
if((/* INLINE-ARGS */V396)==(VV[162])){
2404
(void)((*(LnkLI308))(cadddr((V390)),Ct));
2406
princ_char(125,VV[21]);
2412
if(((VV[142]->s.s_dbind))==Cnil){
2414
(VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));
2415
princ_str("\nTTL:;",VV[21]);
2417
base[7]= caddr(cddr((V309)));
2418
vs_top=(vs_base=base+7)+1;
2421
princ_char(125,VV[21]);
2422
if((base[1])==Cnil){
2424
princ_str("\n }",VV[21]);
2426
(void)((*(LnkLI317))());
2427
V397= get((V307),VV[74],Cnil);
2428
{object V398 = (*(LnkLI303))((V324),V397);
2435
/* local entry for function T3DEFUN-NORMAL */
2437
static object LI26(V403,V404,V405,V406)
2439
object V403;register object V404;object V405;object V406;
2442
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[167],(V403))));
2443
if(!(type_of((V404))==t_fixnum||
2444
type_of((V404))==t_bignum||
2445
type_of((V404))==t_ratio||
2446
type_of((V404))==t_shortfloat||
2447
type_of((V404))==t_longfloat||
2448
type_of((V404))==t_complex)){
2450
princ_str("\nstatic L",VV[21]);
2451
(void)((*(LnkLI262))((V404)));
2452
princ_str("()",VV[21]);
2455
princ_char(10,VV[21]);
2456
(void)((*(LnkLI262))((V404)));
2457
princ_str("()",VV[21]);
2459
princ_str("\n{",VV[21]);
2460
princ_str("register object *",VV[21]);
2461
(void)((*(LnkLI262))(symbol_value(VV[16])));
2462
princ_str("base=vs_base;",VV[21]);
2463
V407= structure_ref(cadr((V405)),VV[58],1);
2464
(void)((*(LnkLI301))(/* INLINE-ARGS */V407,(V404),VV[144]));
2465
princ_str("\n register object *",VV[21]);
2466
(void)((*(LnkLI262))(symbol_value(VV[16])));
2467
princ_str("sup=base+VM",VV[21]);
2468
(void)((*(LnkLI262))(symbol_value(VV[132])));
2469
princ_char(59,VV[21]);
2470
princ_str(" VC",VV[21]);
2471
(void)((*(LnkLI262))(symbol_value(VV[132])));
2472
if((symbol_value(VV[152]))==Cnil){
2474
princ_str("\n vs_reserve(VM",VV[21]);
2475
(void)((*(LnkLI262))(symbol_value(VV[132])));
2476
princ_str(");",VV[21]);
2479
princ_str("\n vs_check;",VV[21]);
2483
princ_str("\n bds_check;",VV[21]);
2485
if((symbol_value(VV[145]))==Cnil){
2487
princ_str("\n ihs_check;",VV[21]);
2489
(void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V405)),caddr(cddr((V405))),(V403))));
2490
princ_str("\n}",VV[21]);
2491
V408= make_cons(symbol_value(VV[132]),symbol_value(VV[126]));
2492
setq(VV[29],make_cons(/* INLINE-ARGS */V408,symbol_value(VV[29])));
2493
princ_str("\n#define VC",VV[27]);
2494
(void)((*(LnkLI265))(symbol_value(VV[132])));
2495
{object V409 = (*(LnkLI319))();
2498
/* local entry for function WT-V*-MACROS */
2500
static object LI27(V412,V413)
2502
register object V412;object V413;
2505
V414= make_cons((V412),symbol_value(VV[126]));
2506
setq(VV[29],make_cons(/* INLINE-ARGS */V414,symbol_value(VV[29])));
2507
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
2509
if((symbol_value(VV[134]))!=Cnil){
2511
if((symbol_value(VV[136]))!=Cnil){
2513
princ_str("\n#define VMB",VV[27]);
2514
(void)((*(LnkLI265))((V412)));
2517
princ_str("\n#define VMB",VV[27]);
2518
(void)((*(LnkLI265))((V412)));
2519
princ_char(32,VV[27]);
2520
princ_str("register object *",VV[27]);
2521
(void)((*(LnkLI265))(symbol_value(VV[16])));
2522
princ_str("base=vs_top;",VV[27]);
2524
(void)((*(LnkLI319))());
2525
if((symbol_value(VV[134]))==Cnil){
2527
princ_str("\n#define VMS",VV[27]);
2528
(void)((*(LnkLI265))((V412)));
2529
princ_char(32,VV[27]);
2530
princ_str(" register object *",VV[27]);
2531
(void)((*(LnkLI265))(symbol_value(VV[16])));
2532
princ_str("sup=vs_top+",VV[27]);
2533
(void)((*(LnkLI265))(symbol_value(VV[126])));
2534
princ_str(";vs_top=sup;",VV[27]);
2537
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
2539
princ_str("\n#define VMS",VV[27]);
2540
(void)((*(LnkLI265))((V412)));
2543
princ_str("\n#define VMS",VV[27]);
2544
(void)((*(LnkLI265))((V412)));
2545
princ_str(" vs_top += ",VV[27]);
2546
(void)((*(LnkLI265))(symbol_value(VV[126])));
2547
princ_char(59,VV[27]);
2549
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
2551
princ_str("\n#define VMV",VV[27]);
2552
(void)((*(LnkLI265))((V412)));
2555
if((symbol_value(VV[152]))==Cnil){
2557
princ_str("\n#define VMV",VV[27]);
2558
(void)((*(LnkLI265))((V412)));
2559
princ_str(" vs_reserve(",VV[27]);
2560
(void)((*(LnkLI265))(symbol_value(VV[126])));
2561
princ_str(");",VV[27]);
2564
princ_str("\n#define VMV",VV[27]);
2565
(void)((*(LnkLI265))((V412)));
2566
princ_str(" vs_check;",VV[27]);
2568
if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
2570
princ_str("\n#define VMR",VV[27]);
2571
(void)((*(LnkLI265))((V412)));
2572
princ_str("(VMT",VV[27]);
2573
(void)((*(LnkLI265))((V412)));
2574
princ_str(") return(VMT",VV[27]);
2575
(void)((*(LnkLI265))((V412)));
2576
princ_str(");",VV[27]);
2577
{object V415 = Cnil;
2580
princ_str("\n#define VMR",VV[27]);
2581
(void)((*(LnkLI265))((V412)));
2582
princ_str("(VMT",VV[27]);
2583
(void)((*(LnkLI265))((V412)));
2584
princ_str(") vs_top=base ; return(VMT",VV[27]);
2585
(void)((*(LnkLI265))((V412)));
2586
princ_str(");",VV[27]);
2587
{object V416 = Cnil;
2590
/* local entry for function WT-REQUIREDS */
2592
static object LI28(V419,V420)
2594
object V419;object V420;
2597
{register object V421;
2600
if(!(endp((V421)))){
2604
{register object V422;
2605
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
2606
V422= symbol_value(VV[84]);
2607
(void)(structure_set(car((V421)),VV[65],4,(V422)));
2608
princ_char(86,VV[21]);
2609
(void)((*(LnkLI262))((V422)));}
2610
if(endp(cdr((V421)))){
2612
princ_char(44,VV[21]);
2617
princ_str(")\n",VV[21]);
2620
princ_char(10,VV[21]);
2621
{register object V423;
2622
register object V424;
2623
register object V425;
2628
if(!(endp((V423)))){
2630
princ_char(59,VV[21]);
2631
{object V426 = Cnil;
2636
princ_char(59,VV[21]);
2638
(void)((*(LnkLI262))(symbol_value(VV[16])));
2639
V427= (*(LnkLI320))(car((V423)));
2640
(void)((*(LnkLI262))(/* INLINE-ARGS */V427));
2641
V428= (*(LnkLI268))(car((V424)));
2642
(void)((*(LnkLI262))(/* INLINE-ARGS */V428));
2644
princ_char(86,VV[21]);
2645
V429= structure_ref(car((V423)),VV[65],4);
2646
(void)((*(LnkLI262))(/* INLINE-ARGS */V429));
2651
{object V430 = Cnil;
2654
/* local entry for function ADD-DEBUG-INFO */
2656
static object LI29(V433,V434)
2658
object V433;object V434;
2664
V436= (number_compare(symbol_value(VV[110]),small_fixnum(2))>=0?Ct:Cnil);
2667
{object V437 = (V436);
2670
if((get((V433),VV[111],Cnil))!=Cnil){
2672
{object V438 = (VFUN_NARGS=2,(*(LnkLI321))(VV[168],(V433)));
2675
(void)(remprop((V433),VV[111]));
2676
{register object V439;
2677
V439= small_fixnum(0);
2678
{register object V440;
2679
register object V441;
2680
V440= structure_ref(cadr((V434)),VV[58],1);
2683
if(!(endp((V440)))){
2687
V442= structure_ref((V441),VV[65],2);
2688
if(!(type_of(/* INLINE-ARGS */V442)==t_cons)){
2690
V443= structure_ref((V441),VV[65],2);
2691
if(!(type_of(cdr(/* INLINE-ARGS */V443))==t_fixnum)){
2693
V444= structure_ref((V441),VV[65],2);
2694
{object V445= cdr(/* INLINE-ARGS */V444);
2695
V439= (number_compare((V439),V445)>=0?((V439)):V445);}
2701
base[0]= one_plus((V439));
2702
vs_top=(vs_base=base+0)+1;
2706
{register object V446;
2707
register object V447;
2708
V446= structure_ref(cadr((V434)),VV[58],1);
2711
if(!(endp((V446)))){
2715
V448= structure_ref((V447),VV[65],2);
2716
if(!(type_of(/* INLINE-ARGS */V448)==t_cons)){
2718
V449= structure_ref((V447),VV[65],2);
2719
if(!(type_of(cdr(/* INLINE-ARGS */V449))==t_fixnum)){
2722
register object V452;
2723
V453= structure_ref((V447),VV[65],2);
2724
V450= cdr(/* INLINE-ARGS */V453);
2725
V452= structure_ref((V447),VV[65],0);
2726
if(type_of(nthcdr(fixint((V450)),V435))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V450)),V435));
2727
(nthcdr(fixint((V450)),V435))->c.c_car = (V452);
2728
(void)(nthcdr(fixint((V450)),V435));}
2734
(void)(sputprop((V433),VV[112],(V435)));
2736
V454= get((V433),VV[112],Cnil);
2739
if((cdr((V454)))!=Cnil){
2741
if((car((V454)))==Cnil){
2744
V455= list(2,VV[87],(V433));
2745
V456= list(3,VV[112],/* INLINE-ARGS */V455,list(2,VV[87],(V454)));
2746
{object V457 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V456));
2749
{object V458 = Cnil;
2752
/* local entry for function ANALYZE-REGS */
2754
static int LI30(V461,V462)
2756
object V461;object V462;
2760
V463= number_minus(symbol_value(VV[169]),(V462));
2761
if(!(number_compare(small_fixnum(0),symbol_value(VV[170]))==0)){
2763
V464= (VFUN_NARGS=1,(*(LnkLI323))((V461)));
2764
{int V465 = (*(LnkLI322))(/* INLINE-ARGS */V464,(V463));
2767
{register object V466;
2768
register object V467;
2771
{register object V468;
2772
register object V469;
2776
if(!(endp((V468)))){
2780
V471= structure_ref((V469),VV[65],5);
2781
{register object x= /* INLINE-ARGS */V471,V470= VV[171];
2783
if(x==(V470->c.c_car)){
2785
}else V470=V470->c.c_cdr;
2787
T1770:;{object V472;
2788
{register object x= (V469),V473= (V467);
2790
if(eql(x,V473->c.c_car)){
2793
}else V473=V473->c.c_cdr;
2796
if(V472==Cnil)goto T1771;
2799
V467= make_cons((V469),(V467));
2801
T1769:;{object V474;
2802
{register object x= (V469),V475= (V466);
2804
if(x==(V475->c.c_car)){
2807
}else V475=V475->c.c_cdr;
2810
if(V474==Cnil)goto T1774;
2813
V467= make_cons((V469),(V467));
2819
(void)((*(LnkLI322))((V466),(V463)));
2820
{int V476 = (*(LnkLI322))((V467),symbol_value(VV[170]));
2823
/* local entry for function ANALYZE-REGS1 */
2825
static int LI31(V479,V480)
2827
object V479;object V480;
2840
V479= (VFUN_NARGS=1,(*(LnkLI323))((V479)));
2842
{register object V486;
2847
if(!(endp((V486)))){
2851
V481= fix(structure_ref((V487),VV[65],6));
2852
if(!((V481)>=(V482))){
2855
if(!((V481)<(V483))){
2859
if(!((V485)>(V484))){
2867
if(!((V485)<(V484))){
2871
{register object V488;
2872
register object V489;
2876
if(!(endp((V488)))){
2880
{int V490= fix(structure_ref((V489),VV[65],6));
2881
if(!((/* INLINE-ARGS */V490)<(V482))){
2883
(void)(structure_set((V489),VV[65],6,small_fixnum(0)));
2897
/* local entry for function WT-GLOBAL-ENTRY */
2899
static object LI32(V496,V497,V498,V499)
2901
object V496;object V497;object V498;object V499;
2904
if((get((V496),VV[98],Cnil))==Cnil){
2906
{object V500 = Cnil;
2909
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[174],(V496))));
2910
princ_str("\nstatic L",VV[21]);
2911
(void)((*(LnkLI262))((V497)));
2912
princ_str("()",VV[21]);
2913
princ_str("\n{ register object *base=vs_base;",VV[21]);
2914
if((symbol_value(VV[152]))!=Cnil){
2916
if((symbol_value(VV[153]))==Cnil){
2919
princ_str("\n check_arg(",VV[21]);
2920
V501 = make_fixnum(length((V498)));
2921
(void)((*(LnkLI262))(V501));
2922
princ_str(");",VV[21]);
2924
princ_str("\n base[0]=",VV[21]);
2925
{object V503= (V499);
2926
if((V503!= VV[85]))goto T1870;
2927
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
2935
if((V503!= VV[138]))goto T1874;
2939
if((V503!= VV[139]))goto T1875;
2943
if((V503!= VV[140]))goto T1876;
2949
(void)((*(LnkLI262))(V502));
2950
princ_str("(LI",VV[21]);
2951
(void)((*(LnkLI262))((V497)));
2952
princ_char(40,VV[21]);
2953
{register object V504;
2958
if(!(endp((V504)))){
2962
{object V507= car((V504));
2963
if((V507!= VV[85]))goto T1891;
2967
if((V507!= VV[138]))goto T1892;
2971
if((V507!= VV[139]))goto T1893;
2975
if((V507!= VV[140]))goto T1894;
2981
(void)((*(LnkLI262))(V506));
2982
princ_str("(base[",VV[21]);
2983
V508 = make_fixnum(V505);
2984
(void)((*(LnkLI262))(V508));
2985
princ_str("])",VV[21]);
2986
if(endp(cdr((V504)))){
2988
princ_char(44,VV[21]);
2994
princ_str("));",VV[21]);
2995
princ_str("\n vs_top=(vs_base=base)+1;",VV[21]);
2996
princ_str("\n}",VV[21]);
2997
{object V509 = Cnil;
3000
/* local entry for function REP-TYPE */
3002
static object LI33(V511)
3007
{object V512= (V511);
3008
if((V512!= VV[85]))goto T1911;
3009
{object V513 = VV[186];
3012
if((V512!= VV[249]))goto T1912;
3013
{object V514 = VV[187];
3016
if((V512!= VV[138]))goto T1913;
3017
{object V515 = VV[188];
3020
if((V512!= VV[140]))goto T1914;
3021
{object V516 = VV[189];
3024
if((V512!= VV[139]))goto T1915;
3025
{object V517 = VV[190];
3028
{object V518 = VV[191];
3031
/* local entry for function T1DEFMACRO */
3033
static object LI34(V520)
3035
register object V520;
3041
if(!(endp(cdr((V520))))){
3044
V521 = make_fixnum(length((V520)));
3045
(void)((*(LnkLI270))(VV[192],small_fixnum(2),V521));
3047
if(type_of(car((V520)))==t_symbol){
3049
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[193],car((V520)))));
3051
V522= make_cons(VV[192],(V520));
3052
(void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V522));
3054
{register object V523;
3056
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
3057
V524= symbol_value(VV[57]);
3058
bds_bind(VV[51],Cnil);
3059
bds_bind(VV[52],Cnil);
3060
bds_bind(VV[53],Cnil);
3061
bds_bind(VV[54],Cnil);
3062
bds_bind(VV[48],Cnil);
3063
bds_bind(VV[55],Cnil);
3065
V523= (*(LnkLI324))(car((V520)),cadr((V520)),cddr((V520)));
3066
(void)((*(LnkLI280))());
3067
V525= list(7,VV[192],car((V520)),(V524),cddr((V523)),car((V523)),cadr((V523)),(VV[55]->s.s_dbind));
3068
setq(VV[20],make_cons(/* INLINE-ARGS */V525,symbol_value(VV[20])));
3069
{object V526 = symbol_value(VV[20]);
3078
/* local entry for function T2DEFMACRO */
3080
static object LI35(V533,V534,V535,V536,V537,V538)
3082
object V533;object V534;object V535;object V536;object V537;object V538;
3087
V539= list(4,VV[99],list(2,VV[87],(V533)),(V536),VV[194]);
3088
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V539)));
3092
V540= list(2,VV[87],(V533));
3093
V541= list(4,VV[99],/* INLINE-ARGS */V540,list(2,VV[87],(V537)),VV[195]);
3094
(void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V541)));
3096
princ_str("\nstatic L",VV[27]);
3097
(void)((*(LnkLI265))((V534)));
3098
princ_str("();",VV[27]);
3099
V542= list(2,VV[87],(V533));
3100
V543= list(3,VV[196],/* INLINE-ARGS */V542,(*(LnkLI288))(VV[197],(V534)));
3101
{object V544 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V543));
3104
/* local entry for function T3DEFMACRO */
3106
static object LI36(V551,V552,V553,V554,V555,V556)
3108
object V551;object V552;register object V553;object V554;object V555;object V556;
3112
if((get((V551),VV[198],Cnil))==Cnil){
3114
bds_bind(VV[16],VV[199]);
3117
bds_bind(VV[16],VV[200]);
3119
bds_bind(VV[124],VV[123]);
3120
bds_bind(VV[14],Cnil);
3121
bds_bind(VV[125],small_fixnum(0));
3122
bds_bind(VV[126],small_fixnum(0));
3123
bds_bind(VV[127],small_fixnum(0));
3124
bds_bind(VV[128],small_fixnum(0));
3125
bds_bind(VV[129],Cnil);
3126
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
3127
bds_bind(VV[131],(VV[124]->s.s_dbind));
3128
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
3129
bds_bind(VV[132],symbol_value(VV[133]));
3130
bds_bind(VV[134],Cnil);
3131
bds_bind(VV[135],Cnil);
3132
bds_bind(VV[136],Cnil);
3133
bds_bind(VV[137],small_fixnum(0));
3134
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[201],(V551))));
3135
princ_str("\nstatic L",VV[21]);
3136
(void)((*(LnkLI262))((V552)));
3137
princ_str("()",VV[21]);
3138
princ_str("\n{register object *",VV[21]);
3139
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
3140
princ_str("base=vs_base;",VV[21]);
3141
V557= structure_ref(car(cddddr((V553))),VV[58],1);
3142
(void)((*(LnkLI301))(/* INLINE-ARGS */V557,(V552),VV[144]));
3143
princ_str("\n register object *",VV[21]);
3144
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
3145
princ_str("sup=base+VM",VV[21]);
3146
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
3147
princ_char(59,VV[21]);
3148
princ_str(" VC",VV[21]);
3149
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
3150
if((symbol_value(VV[152]))==Cnil){
3152
princ_str("\n vs_reserve(VM",VV[21]);
3153
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
3154
princ_str(");",VV[21]);
3157
princ_str("\n vs_check;",VV[21]);
3161
princ_str("\n bds_check;",VV[21]);
3163
if((symbol_value(VV[145]))==Cnil){
3165
princ_str("\n ihs_check;",VV[21]);
3167
base[15]= car((V553));
3168
base[16]= cadr((V553));
3169
base[17]= caddr((V553));
3170
base[18]= cadddr((V553));
3171
vs_top=(vs_base=base+15)+4;
3174
princ_str("\n}",VV[21]);
3175
V558= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));
3176
setq(VV[29],make_cons(/* INLINE-ARGS */V558,symbol_value(VV[29])));
3177
princ_str("\n#define VC",VV[27]);
3178
(void)((*(LnkLI265))((VV[132]->s.s_dbind)));
3179
{object V559 = (*(LnkLI319))();
3197
/* local entry for function T1ORDINARY */
3199
static object LI37(V561)
3201
register object V561;
3205
{register object V562;
3208
if((symbol_value(VV[44]))==Cnil){
3210
(void)((*(LnkLI255))(Cnil,(V561)));
3213
vs_top=(vs_base=base+0)+1;
3217
V564= listA(3,VV[60],(V563),VV[203]);
3218
(void)((*(LnkLI276))(/* INLINE-ARGS */V564));
3219
base[0]= list(5,VV[47],(V563),Cnil,(V561),Cnil);
3220
vs_top=(vs_base=base+0)+1;
3223
V565= list(2,VV[204],make_cons((V563),Cnil));
3224
setq(VV[20],make_cons(/* INLINE-ARGS */V565,symbol_value(VV[20])));
3225
{object V566 = symbol_value(VV[20]);
3229
if(type_of((V561))==t_cons){
3234
if(type_of(car((V561)))==t_symbol){
3239
if(!((car((V561)))==(VV[205]))){
3243
base[0]= car((V561));
3244
vs_top=(vs_base=base+0)+1;
3253
{register object V569;
3260
if(type_of((V569))==t_cons){
3266
if(!(type_of(car((V569)))==t_cons)){
3268
if(!((caar((V569)))==(VV[60]))){
3270
V562= cadr(car((V569)));
3271
if(!(type_of((V562))==t_cons)){
3273
if(!((car((V562)))==(VV[206]))){
3275
{register object V571;
3280
base[0]= listA(3,VV[47],(V571),cdr((V562)));
3281
vs_top=(vs_base=base+0)+1;
3285
base[2]= small_fixnum(0);
3286
base[3]= make_fixnum(V570);
3287
vs_top=(vs_base=base+1)+3;
3290
base[0]= vs_base[0];
3291
V572= list(2,VV[207],list(2,VV[87],(V571)));
3292
base[1]= make_cons(/* INLINE-ARGS */V572,Cnil);
3293
V573 = make_fixnum(V570);
3294
V574= number_plus(small_fixnum(1),V573);
3295
base[2]= nthcdr(fixint(/* INLINE-ARGS */V574),(V561));
3296
vs_top=(vs_base=base+0)+3;
3302
if(type_of((V569))==t_cons){
3314
{object V575 = (V567);
3317
(void)((*(LnkLI255))(Cnil,(V561)));
3318
bds_bind(VV[51],Cnil);
3319
bds_bind(VV[52],Cnil);
3320
bds_bind(VV[53],Cnil);
3321
bds_bind(VV[54],Cnil);
3322
bds_bind(VV[48],Cnil);
3323
V576= list(2,VV[204],(V561));
3324
setq(VV[20],make_cons(/* INLINE-ARGS */V576,symbol_value(VV[20])));
3325
{object V577 = Cnil;
3333
/* local entry for function T2ORDINARY */
3335
static object LI38(V579)
3341
V580= (type_of((V579))!=t_cons?Ct:Cnil);
3344
{object V581 = (V580);
3349
vs_top=(vs_base=base+0)+1;
3355
{object V583 = (V582);
3358
{object V584 = (VFUN_NARGS=1,(*(LnkLI287))((V579)));
3361
/* local entry for function ADD-LOAD-TIME-SHARP-COMMA */
3363
static object LI39()
3367
{register object V585;
3368
register object V586;
3369
V585= reverse(symbol_value(VV[48]));
3372
if(!(endp((V585)))){
3374
{object V587 = Cnil;
3377
if(!(type_of((V586))!=t_cons)){
3379
(void)((*(LnkLI326))());
3381
V588= make_cons(VV[208],(V586));
3382
setq(VV[20],make_cons(/* INLINE-ARGS */V588,symbol_value(VV[20])));
3387
/* local entry for function T2SHARP-COMMA */
3389
static object LI40(V591,V592)
3391
object V591;object V592;
3394
V593= list(3,VV[209],(V591),(V592));
3395
{object V594 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V593));
3398
/* local entry for function T2DECLARE */
3400
static object LI41(V596)
3405
{object V597 = (*(LnkLI326))();
3408
/* local entry for function T1DEFINE-STRUCTURE */
3410
static object LI42(V599)
3415
V600= (*(LnkLI255))(Cnil,Cnil);
3416
V601= make_cons(((/* INLINE-ARGS */V600)==Cnil?Ct:Cnil),Cnil);
3417
V602= append((V599),/* INLINE-ARGS */V601);
3418
V603= make_cons(VV[210],/* INLINE-ARGS */V602);
3419
(void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V603));
3420
V604= make_cons(VV[210],(V599));
3421
{object V605 = (*(LnkLI260))(/* INLINE-ARGS */V604);
3424
/* local entry for function SET-DBIND */
3426
static object LI43(V608,V609)
3428
object V608;object V609;
3431
princ_str("\n VV[",VV[21]);
3432
(void)((*(LnkLI262))((V609)));
3433
princ_str("]->s.s_dbind = ",VV[21]);
3434
(void)((*(LnkLI262))((V608)));
3435
princ_char(59,VV[21]);
3436
{object V610 = Cnil;
3439
/* local entry for function T1CLINES */
3441
static object LI44(V612)
3446
{register object V613;
3447
register object V614;
3451
if(!(endp((V613)))){
3455
if(type_of((V614))==t_string){
3457
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[211],(V614))));
3463
V615= list(2,VV[212],(V612));
3464
setq(VV[20],make_cons(/* INLINE-ARGS */V615,symbol_value(VV[20])));
3465
{object V616 = symbol_value(VV[20]);
3468
/* local entry for function T3CLINES */
3470
static object LI45(V618)
3475
{register object V619;
3476
register object V620;
3480
if(!(endp((V619)))){
3482
{object V621 = Cnil;
3485
princ_char(10,VV[21]);
3486
(void)((*(LnkLI262))((V620)));
3491
/* local entry for function T1DEFCFUN */
3493
static object LI46(V623)
3495
register object V623;
3498
{register object V624;
3502
if(!(endp(cdr((V623))))){
3505
V625 = make_fixnum(length((V623)));
3506
(void)((*(LnkLI270))(VV[213],small_fixnum(2),V625));
3508
if(type_of(car((V623)))==t_string){
3510
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[214],car((V623)))));
3512
{object V626= cadr((V623));
3513
if(type_of(V626)==t_fixnum||
3514
type_of(V626)==t_bignum||
3515
type_of(V626)==t_ratio||
3516
type_of(V626)==t_shortfloat||
3517
type_of(V626)==t_longfloat||
3518
type_of(V626)==t_complex){
3520
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[215],cadr((V623)))));
3522
{register object V627;
3523
register object V628;
3527
if(!(endp((V627)))){
3531
if(!(type_of((V628))==t_string)){
3533
V624= make_cons((V628),(V624));
3536
if(!(type_of((V628))==t_cons)){
3538
if(!(type_of(car((V628)))==t_symbol)){
3540
base[2]= car((V628));
3541
vs_top=(vs_base=base+2)+1;
3544
if((vs_base[0])==Cnil){
3546
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[216],car((V628)))));
3549
V630= (*(LnkLI327))(cdr((V628)));
3550
V631= make_cons(/* INLINE-ARGS */V629,/* INLINE-ARGS */V630);
3551
V632= make_cons(/* INLINE-ARGS */V631,Cnil);
3552
V624= make_cons(/* INLINE-ARGS */V632,(V624));
3555
if(!(type_of(car((V628)))==t_cons)){
3557
if(!(type_of(caar((V628)))==t_symbol)){
3559
if(!((caar((V628)))==(VV[87]))){
3561
if(!(endp(cdar((V628))))){
3565
if(!(((endp(cddar((V628)))?Ct:Cnil))==Cnil)){
3569
if(!(endp(cdr((V628))))){
3573
if(((endp(cddr((V628)))?Ct:Cnil))==Cnil){
3577
base[2]= caar((V628));
3578
vs_top=(vs_base=base+2)+1;
3581
if((vs_base[0])!=Cnil){
3585
if(!((caar((V628)))==(VV[87]))){
3587
V635= (*(LnkLI312))(cadar((V628)));
3588
V634= make_cons(/* INLINE-ARGS */V635,Cnil);
3591
V634= (*(LnkLI327))(cdar((V628)));
3593
V636= make_cons(/* INLINE-ARGS */V633,V634);
3594
V637= (*(LnkLI327))(cdr((V628)));
3595
V638= make_cons(/* INLINE-ARGS */V636,/* INLINE-ARGS */V637);
3596
V624= make_cons(/* INLINE-ARGS */V638,(V624));
3599
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[217],(V628))));
3602
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[218],(V628))));
3610
V641= list(4,VV[213],/* INLINE-ARGS */V639,/* INLINE-ARGS */V640,reverse((V624)));
3611
setq(VV[20],make_cons(/* INLINE-ARGS */V641,symbol_value(VV[20])));
3612
{object V642 = symbol_value(VV[20]);
3615
/* local entry for function T3DEFCFUN */
3617
static object LI47(V646,V647,V648)
3619
object V646;object V647;object V648;
3624
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[219],VV[213])));
3625
princ_char(10,VV[21]);
3626
(void)((*(LnkLI262))((V646)));
3627
princ_str("\n{",VV[21]);
3628
princ_str("\nobject *vs=vs_top;",VV[21]);
3629
princ_str("\nobject *old_top=vs_top+",VV[21]);
3630
(void)((*(LnkLI262))((V647)));
3631
princ_char(59,VV[21]);
3632
if(!(number_compare((V647),small_fixnum(0))>0)){
3634
princ_str("\n vs_top=old_top;",VV[21]);
3636
princ_str("\n{",VV[21]);
3638
register object V651;
3642
if(!(endp((V650)))){
3646
if(!(type_of((V651))==t_string)){
3648
princ_char(10,VV[21]);
3649
(void)((*(LnkLI262))((V651)));
3652
if(!((caar((V651)))==(VV[87]))){
3654
princ_char(10,VV[21]);
3655
(void)((*(LnkLI262))(cadadr((V651))));
3656
{object V652= caadr((V651));
3657
if((V652!= VV[70]))goto T2237;
3658
princ_str("=VV[",VV[21]);
3659
(void)((*(LnkLI262))(cadar((V651))));
3660
princ_str("];",VV[21]);
3663
princ_str("=object_to_",VV[21]);
3664
base[1]= symbol_name(caadr((V651)));
3665
vs_top=(vs_base=base+1)+1;
3669
(void)((*(LnkLI262))(V653));
3670
princ_str("(VV[",VV[21]);
3671
(void)((*(LnkLI262))(cadar((V651))));
3672
princ_str("]);",VV[21]);
3675
princ_str("\n{vs_base=vs_top=old_top;",VV[21]);
3676
{register object V654;
3677
register object V655;
3681
if(!(endp((V654)))){
3685
princ_str("\nvs_push(",VV[21]);
3686
{object V656= car((V655));
3687
if((V656!= VV[70]))goto T2262;
3688
(void)((*(LnkLI262))(cadr((V655))));
3691
if((V656!= VV[328]))goto T2264;
3692
princ_str("code_char((int)",VV[21]);
3693
(void)((*(LnkLI262))(cadr((V655))));
3694
princ_char(41,VV[21]);
3697
if((V656!= VV[329]))goto T2268;
3698
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
3700
princ_str("CMP",VV[21]);
3702
princ_str("make_fixnum((int)",VV[21]);
3703
(void)((*(LnkLI262))(cadr((V655))));
3704
princ_char(41,VV[21]);
3707
if((V656!= VV[330]))goto T2276;
3708
princ_str("make_shortfloat((double)",VV[21]);
3709
(void)((*(LnkLI262))(cadr((V655))));
3710
princ_char(41,VV[21]);
3713
if((V656!= VV[331]))goto T2280;
3714
princ_str("make_longfloat((double)",VV[21]);
3715
(void)((*(LnkLI262))(cadr((V655))));
3716
princ_char(41,VV[21]);
3720
princ_str(");",VV[21]);
3725
{register object x= caar((V651)),V657= symbol_value(VV[75]);
3727
if(type_of(V657->c.c_car)==t_cons &&eql(x,V657->c.c_car->c.c_car)){
3728
V649= (V657->c.c_car);
3730
}else V657=V657->c.c_cdr;
3735
if((symbol_value(VV[145]))==Cnil){
3737
princ_str("\nihs_push(VV[",VV[21]);
3738
V658= (*(LnkLI314))(caar((V651)));
3739
(void)((*(LnkLI262))(/* INLINE-ARGS */V658));
3740
princ_str("]);",VV[21]);
3741
princ_str("\nL",VV[21]);
3742
(void)((*(LnkLI262))(cdr((V649))));
3743
princ_str("();",VV[21]);
3744
princ_str("\nihs_pop();",VV[21]);
3747
princ_str("\nL",VV[21]);
3748
(void)((*(LnkLI262))(cdr((V649))));
3749
princ_str("();",VV[21]);
3752
if((symbol_value(VV[145]))==Cnil){
3754
princ_str("\nsuper_funcall(VV[",VV[21]);
3755
V659= (*(LnkLI314))(caar((V651)));
3756
(void)((*(LnkLI262))(/* INLINE-ARGS */V659));
3757
princ_str("]);",VV[21]);
3760
if((symbol_value(VV[152]))==Cnil){
3762
princ_str("\nsuper_funcall_no_event(VV[",VV[21]);
3763
V660= (*(LnkLI314))(caar((V651)));
3764
(void)((*(LnkLI262))(/* INLINE-ARGS */V660));
3765
princ_str("]);",VV[21]);
3768
princ_str("\nCMPfuncall(VV[",VV[21]);
3769
V661= (*(LnkLI314))(caar((V651)));
3770
(void)((*(LnkLI262))(/* INLINE-ARGS */V661));
3771
princ_str("]->s.s_gfdef);",VV[21]);
3773
if(endp(cdr((V651)))){
3775
princ_char(10,VV[21]);
3776
(void)((*(LnkLI262))(cadadr((V651))));
3777
{object V662= caadr((V651));
3778
if((V662!= VV[70]))goto T2333;
3779
princ_str("=vs_base[0];",VV[21]);
3782
princ_str("=object_to_",VV[21]);
3783
base[1]= symbol_name(caadr((V651)));
3784
vs_top=(vs_base=base+1)+1;
3788
(void)((*(LnkLI262))(V663));
3789
princ_str("(vs_base[0]);",VV[21]);}
3791
{register object V664;
3792
register object V665;
3796
if(!(endp((V664)))){
3800
princ_str("\nvs_base++;",VV[21]);
3801
princ_char(10,VV[21]);
3802
(void)((*(LnkLI262))(cadr((V665))));
3803
{object V666= car((V665));
3804
if((V666!= VV[70]))goto T2354;
3805
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]);
3808
princ_str("=object_to_",VV[21]);
3809
base[3]= symbol_name(car((V665)));
3810
vs_top=(vs_base=base+3)+1;
3814
(void)((*(LnkLI262))(V667));
3815
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);}
3821
princ_str("\n}",VV[21]);
3827
princ_str("\n}",VV[21]);
3828
princ_str("\nvs_top=vs;",VV[21]);
3829
princ_str("\n}",VV[21]);
3830
{object V668 = Cnil;
3833
/* local entry for function T1DEFENTRY */
3835
static object LI48(V670)
3837
register object V670;
3840
{register object V671;
3841
register object V672;
3843
register object V674;
3846
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
3847
V673= symbol_value(VV[57]);
3851
if(endp(cdr((V670)))){
3853
if(!(endp(cddr((V670))))){
3856
V675 = make_fixnum(length((V670)));
3857
(void)((*(LnkLI270))(VV[220],small_fixnum(3),V675));
3859
if(type_of(car((V670)))==t_symbol){
3861
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[221],car((V670)))));
3863
{register object V676;
3864
register object V677;
3868
if(!(endp((V676)))){
3872
{register object x= (V677),V678= VV[222];
3874
if(eql(x,V678->c.c_car)){
3876
}else V678=V678->c.c_cdr;}
3877
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[223],(V677))));
3883
V674= caddr((V670));
3884
if(!(type_of((V674))==t_symbol)){
3887
base[1]= symbol_name((V674));
3888
vs_top=(vs_base=base+1)+1;
3894
if(!(type_of((V674))==t_string)){
3900
if(!(type_of((V674))==t_cons)){
3902
{register object x= car((V674)),V679= VV[224];
3904
if(eql(x,V679->c.c_car)){
3906
}else V679=V679->c.c_cdr;
3909
if(!(type_of(cdr((V674)))==t_cons)){
3911
if(type_of(cadr((V674)))==t_symbol){
3913
if(!(type_of(cadr((V674)))==t_string)){
3916
if(!(endp(cddr((V674))))){
3918
if(!(type_of(cadr((V674)))==t_symbol)){
3920
base[1]= symbol_name(cadr((V674)));
3921
vs_top=(vs_base=base+1)+1;
3932
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[225],(V674))));
3934
V680= list(6,VV[220],car((V670)),(V673),cadr((V670)),(V671),(V672));
3935
setq(VV[20],make_cons(/* INLINE-ARGS */V680,symbol_value(VV[20])));
3936
V681= make_cons(car((V670)),(V673));
3937
setq(VV[75],make_cons(/* INLINE-ARGS */V681,symbol_value(VV[75])));
3938
{object V682 = symbol_value(VV[75]);
3941
/* local entry for function T2DEFENTRY */
3943
static object LI49(V688,V689,V690,V691,V692)
3945
object V688;object V689;object V690;object V691;object V692;
3948
princ_str("\nstatic L",VV[27]);
3949
(void)((*(LnkLI265))((V689)));
3950
princ_str("();",VV[27]);
3951
V693= list(2,VV[87],(V688));
3952
V694= list(3,VV[107],/* INLINE-ARGS */V693,(*(LnkLI288))(VV[226],(V689)));
3953
{object V695 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V694));
3956
/* local entry for function T3DEFENTRY */
3958
static object LI50(V701,V702,V703,V704,V705)
3960
object V701;object V702;object V703;register object V704;object V705;
3963
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[227],(V701))));
3964
princ_str("\nstatic L",VV[21]);
3965
(void)((*(LnkLI262))((V702)));
3966
princ_str("()",VV[21]);
3967
princ_str("\n{ object *old_base=vs_base;",VV[21]);
3968
{object V706= (V704);
3969
if((V706!= VV[228]))goto T2460;
3972
if((V706!= VV[332]))goto T2461;
3973
princ_str("\n char *x;",VV[21]);
3976
princ_str("\n ",VV[21]);
3977
base[0]= symbol_name((V704));
3978
vs_top=(vs_base=base+0)+1;
3982
(void)((*(LnkLI262))(V707));
3983
princ_str(" x;",VV[21]);}
3985
if((symbol_value(VV[152]))==Cnil){
3987
princ_str("\n check_arg(",VV[21]);
3988
V708 = make_fixnum(length((V703)));
3989
(void)((*(LnkLI262))(V708));
3990
princ_str(");",VV[21]);
3992
if(((V704))==(VV[228])){
3994
princ_str("\n x=",VV[21]);
3996
princ_str("\n ",VV[21]);
3997
(void)((*(LnkLI262))((V705)));
3998
princ_char(40,VV[21]);
4001
{register object V709;
4006
{object V711= car((V709));
4007
if((V711!= VV[70]))goto T2491;
4008
princ_str("\n vs_base[",VV[21]);
4009
V712 = make_fixnum(V710);
4010
(void)((*(LnkLI262))(V712));
4011
princ_char(93,VV[21]);
4014
princ_str("\n object_to_",VV[21]);
4015
base[0]= symbol_name(car((V709)));
4016
vs_top=(vs_base=base+0)+1;
4020
(void)((*(LnkLI262))(V713));
4021
princ_str("(vs_base[",VV[21]);
4022
V714 = make_fixnum(V710);
4023
(void)((*(LnkLI262))(V714));
4024
princ_str("])",VV[21]);}
4026
if(!(endp(cdr((V709))))){
4030
princ_char(44,VV[21]);
4035
princ_str(");",VV[21]);
4036
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[21]);
4037
princ_str("\n vs_base[0]=",VV[21]);
4038
{object V715= (V704);
4039
if((V715!= VV[228]))goto T2518;
4040
princ_str("Cnil",VV[21]);
4043
if((V715!= VV[70]))goto T2520;
4044
princ_char(120,VV[21]);
4047
if((V715!= VV[328]))goto T2522;
4048
princ_str("code_char(x)",VV[21]);
4051
if((V715!= VV[329]))goto T2524;
4052
if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
4054
princ_str("CMP",VV[21]);
4056
princ_str("make_fixnum(x)",VV[21]);
4059
if((V715!= VV[332]))goto T2530;
4060
princ_str("make_simple_string(x)",VV[21]);
4063
if((V715!= VV[330]))goto T2532;
4064
princ_str("make_shortfloat(x)",VV[21]);
4067
if((V715!= VV[331]))goto T2534;
4068
princ_str("make_longfloat(x)",VV[21]);
4072
princ_char(59,VV[21]);
4073
princ_str("\n}",VV[21]);
4074
{object V716 = Cnil;
4077
/* local entry for function T1DEFLA */
4079
static object LI51(V718)
4084
{object V719 = Cnil;
4087
/* local entry for function PARSE-CVSPECS */
4089
static object LI52(V721)
4094
{register object V722;
4096
{register object V723;
4097
register object V724;
4101
if(!(endp((V723)))){
4103
{object V725 = reverse((V722));
4106
if(!(type_of((V724))==t_symbol)){
4108
base[1]= symbol_name((V724));
4109
vs_top=(vs_base=base+1)+1;
4113
V727= list(2,VV[70],V726);
4114
V722= make_cons(/* INLINE-ARGS */V727,(V722));
4117
if(!(type_of((V724))==t_string)){
4119
V728= list(2,VV[70],(V724));
4120
V722= make_cons(/* INLINE-ARGS */V728,(V722));
4123
if(!(type_of((V724))==t_cons)){
4125
{register object x= car((V724)),V729= VV[229];
4127
if(eql(x,V729->c.c_car)){
4129
}else V729=V729->c.c_cdr;
4132
{register object V730;
4133
register object V731;
4137
if(!(endp((V730)))){
4142
if(!(type_of((V731))==t_symbol)){
4144
base[3]= symbol_name((V731));
4145
vs_top=(vs_base=base+3)+1;
4151
if(!(type_of((V731))==t_string)){
4156
V733= (VFUN_NARGS=2,(*(LnkLI253))(VV[230],(V731)));
4158
V734= list(2,/* INLINE-ARGS */V732,V733);
4159
V722= make_cons(/* INLINE-ARGS */V734,(V722));
4164
(void)((VFUN_NARGS=2,(*(LnkLI253))(VV[231],(V724))));
4170
/* local entry for function T3LOCAL-DCFUN */
4172
static object LI53(V740,V741,V742,V743,V744)
4174
object V740;object V741;object V742;register object V743;register object V744;
4179
register object V746;
4183
V745= small_fixnum(0);
4186
V745= structure_ref((V743),VV[28],4);
4189
bds_bind(VV[16],(*(LnkLI293))(cadr((V744))));
4190
bds_bind(VV[113],Cnil);
4191
V747= caaddr((V744));
4192
if((structure_ref((V743),VV[28],0))==Cnil){
4194
V748= structure_ref((V743),VV[28],0);
4199
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[232],V748)));
4200
princ_str("\nstatic ",VV[21]);
4208
(void)((*(LnkLI262))(V749));
4209
V750= structure_ref((V743),VV[28],3);
4210
(void)((*(LnkLI262))(/* INLINE-ARGS */V750));
4211
princ_char(40,VV[21]);
4212
princ_str("base0",VV[21]);
4220
(void)((*(LnkLI262))(V751));
4221
V752= structure_ref(cadr((V744)),VV[58],1);
4222
(void)((*(LnkLI295))(/* INLINE-ARGS */V752,small_fixnum(2)));
4223
(void)((*(LnkLI300))(caaddr((V744)),Cnil));
4224
princ_str("register object *",VV[21]);
4225
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
4226
princ_str("base0;",VV[21]);
4227
bds_bind(VV[237],(V742));
4228
bds_bind(VV[124],VV[120]);
4229
bds_bind(VV[14],Cnil);
4230
bds_bind(VV[125],small_fixnum(0));
4231
bds_bind(VV[126],small_fixnum(0));
4232
bds_bind(VV[127],one_plus((V745)));
4233
bds_bind(VV[128],(V742));
4234
bds_bind(VV[129],(V741));
4235
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
4236
bds_bind(VV[131],(VV[124]->s.s_dbind));
4237
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
4238
bds_bind(VV[132],symbol_value(VV[133]));
4239
bds_bind(VV[134],Cnil);
4240
bds_bind(VV[135],Cnil);
4241
bds_bind(VV[136],Cnil);
4242
bds_bind(VV[137],small_fixnum(0));
4243
V746= (VV[132]->s.s_dbind);
4244
princ_str("\n{",VV[21]);
4245
V753= structure_ref(cadr((V744)),VV[58],1);
4246
V754= structure_ref((V743),VV[28],3);
4247
(void)((*(LnkLI301))(/* INLINE-ARGS */V753,/* INLINE-ARGS */V754,VV[238]));
4248
princ_str("\n VMB",VV[21]);
4249
(void)((*(LnkLI262))((V746)));
4250
princ_str(" VMS",VV[21]);
4251
(void)((*(LnkLI262))((V746)));
4252
princ_str(" VMV",VV[21]);
4253
(void)((*(LnkLI262))((V746)));
4254
if((symbol_value(VV[145]))==Cnil){
4256
princ_str("\n ihs_check;",VV[21]);
4258
base[19]= caddr(cddr((V744)));
4259
vs_top=(vs_base=base+19)+1;
4262
princ_str("\n}",VV[21]);
4263
(void)((*(LnkLI303))((V746),Ct));
4264
V755= structure_ref((V743),VV[28],3);
4265
{object V756 = (*(LnkLI297))(/* INLINE-ARGS */V755);
4285
/* local entry for function T3LOCAL-FUN */
4287
static object LI54(V762,V763,V764,V765,V766)
4289
object V762;object V763;object V764;object V765;object V766;
4299
V767= fix(structure_ref((V765),VV[28],4));
4301
bds_bind(VV[16],(*(LnkLI293))(cadr((V766))));
4302
bds_bind(VV[113],Cnil);
4303
if(!(((V762))==(VV[239]))){
4305
{object V768 = (*(LnkLI238))((V762),(V763),(V764),(V765),(V766));
4310
if((structure_ref((V765),VV[28],0))==Cnil){
4312
V769= structure_ref((V765),VV[28],0);
4317
(void)((VFUN_NARGS=2,(*(LnkLI299))(VV[240],V769)));
4318
princ_str("\nstatic ",VV[27]);
4326
(void)((*(LnkLI265))(V770));
4327
V771= structure_ref((V765),VV[28],3);
4328
(void)((*(LnkLI265))(/* INLINE-ARGS */V771));
4329
princ_str("();",VV[27]);
4330
princ_str("\nstatic ",VV[21]);
4338
(void)((*(LnkLI262))(V772));
4339
V773= structure_ref((V765),VV[28],3);
4340
(void)((*(LnkLI262))(/* INLINE-ARGS */V773));
4341
princ_char(40,VV[21]);
4342
{register object V774;
4344
V774= make_fixnum(V767);
4347
V776 = make_fixnum(V775);
4348
if(!(number_compare(V776,(V774))>=0)){
4350
princ_str("base",VV[21]);
4351
V777 = make_fixnum(V775);
4352
(void)((*(LnkLI262))(V777));
4353
princ_char(41,VV[21]);
4356
princ_str("base",VV[21]);
4357
V778 = make_fixnum(V775);
4358
(void)((*(LnkLI262))(V778));
4359
princ_char(44,VV[21]);
4363
princ_str("\nregister object ",VV[21]);
4364
{register object V779;
4366
V779= make_fixnum(V767);
4369
V781 = make_fixnum(V780);
4370
if(!(number_compare(V781,(V779))>=0)){
4372
princ_char(42,VV[21]);
4373
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
4374
princ_str("base",VV[21]);
4375
V782 = make_fixnum(V780);
4376
(void)((*(LnkLI262))(V782));
4377
princ_char(59,VV[21]);
4380
princ_char(42,VV[21]);
4381
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
4382
princ_str("base",VV[21]);
4383
V783 = make_fixnum(V780);
4384
(void)((*(LnkLI262))(V783));
4385
princ_char(44,VV[21]);
4389
V784= structure_ref(cadr((V766)),VV[58],1);
4390
(void)((*(LnkLI295))(/* INLINE-ARGS */V784,small_fixnum(2)));
4391
bds_bind(VV[124],VV[123]);
4392
bds_bind(VV[237],(V764));
4393
bds_bind(VV[14],Cnil);
4394
bds_bind(VV[125],small_fixnum(0));
4395
bds_bind(VV[126],small_fixnum(0));
4396
V785 = make_fixnum(V767);
4397
bds_bind(VV[127],one_plus(V785));
4398
bds_bind(VV[128],(V764));
4399
bds_bind(VV[129],(V763));
4400
bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
4401
bds_bind(VV[131],(VV[124]->s.s_dbind));
4402
setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
4403
bds_bind(VV[132],symbol_value(VV[133]));
4404
bds_bind(VV[134],Cnil);
4405
bds_bind(VV[135],Cnil);
4406
bds_bind(VV[136],Cnil);
4407
bds_bind(VV[137],small_fixnum(0));
4408
princ_str("\n{ register object *",VV[21]);
4409
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
4410
princ_str("base=vs_base;",VV[21]);
4411
princ_str("\n register object *",VV[21]);
4412
(void)((*(LnkLI262))((VV[16]->s.s_dbind)));
4413
princ_str("sup=base+VM",VV[21]);
4414
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
4415
princ_char(59,VV[21]);
4416
V786= structure_ref(cadr((V766)),VV[58],1);
4417
V787= structure_ref((V765),VV[28],3);
4418
(void)((*(LnkLI301))(/* INLINE-ARGS */V786,/* INLINE-ARGS */V787,VV[245]));
4419
princ_str(" VC",VV[21]);
4420
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
4421
if((symbol_value(VV[152]))==Cnil){
4423
princ_str("\n vs_reserve(VM",VV[21]);
4424
(void)((*(LnkLI262))((VV[132]->s.s_dbind)));
4425
princ_str(");",VV[21]);
4428
princ_str("\n vs_check;",VV[21]);
4430
if((symbol_value(VV[145]))==Cnil){
4432
princ_str("\n ihs_check;",VV[21]);
4436
(void)((VFUN_NARGS=2,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766))))));
4439
(void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V766)),caddr(cddr((V766))),(V765))));
4441
princ_str("\n}",VV[21]);
4442
V788= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));
4443
setq(VV[29],make_cons(/* INLINE-ARGS */V788,symbol_value(VV[29])));
4444
princ_str("\n#define VC",VV[27]);
4445
(void)((*(LnkLI265))((VV[132]->s.s_dbind)));
4446
V789= (*(LnkLI319))();
4462
V790= structure_ref((V765),VV[28],3);
4463
{object V791 = (*(LnkLI297))(/* INLINE-ARGS */V790);
4468
/* local entry for function WT-CVARS */
4470
static object LI55()
4474
{register object V792;
4476
{register object V793;
4477
register object V794;
4478
V793= symbol_value(VV[14]);
4481
if(!(endp((V793)))){
4485
{register object V795;
4486
if(!(type_of((V794))==t_cons)){
4488
{register object V796;
4496
if(!(((V792))==((V795)))){
4498
base[1]= symbol_value(VV[27]);
4501
vs_top=(vs_base=base+1)+3;
4506
if(!(((V792))==Cnil)){
4510
base[1]= symbol_value(VV[27]);
4512
vs_top=(vs_base=base+1)+2;
4517
base[1]= symbol_value(VV[27]);
4519
base[3]= (*(LnkLI268))((V792));
4521
vs_top=(vs_base=base+1)+4;
4525
if(!(((V792))==(VV[249]))){
4527
base[1]= symbol_value(VV[27]);
4530
vs_top=(vs_base=base+1)+3;
4538
if(symbol_value(VV[14])==Cnil){
4540
base[0]= symbol_value(VV[27]);
4542
vs_top=(vs_base=base+0)+2;
4546
if(eql(symbol_value(VV[137]),small_fixnum(0))){
4548
base[0]= symbol_value(VV[27]);
4550
base[2]= symbol_value(VV[137]);
4551
vs_top=(vs_base=base+0)+3;
4554
{object V797 = vs_base[0];
4557
{object V798 = Cnil;
4560
/* local function DO-DECL */
4563
register object *base0;
4564
{ register object *base=vs_base;
4565
register object *sup=base+VM55; VC55
4572
V800= structure_ref((V799),VV[65],4);
4573
if(eql(/* INLINE-ARGS */V800,VV[68])){
4577
(VV[148]->s.s_dbind)= Ct;
4580
V801= (*(LnkLI333))((V799));
4584
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
4585
V802= symbol_value(VV[84]);
4586
(void)(structure_set((V799),VV[65],1,(V801)));
4587
(void)(structure_set((V799),VV[65],4,(V802)));
4588
princ_str("\n ",VV[21]);
4589
if((base0[1])!=Cnil){
4591
princ_char(123,VV[21]);
4595
vs_top=(vs_base=base+1)+1;
4600
vs_top=(vs_base=base+1)+1;
4604
static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* WT-VAR-DECL */
4605
static object LnkTLI333(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[333],&LnkLI333,1,ap);} /* C2VAR-KIND */
4606
static object LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,5,ap);} /* T3LOCAL-DCFUN */
4607
static object LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[327],&LnkLI327,1,ap);} /* PARSE-CVSPECS */
4608
static object LnkTLI326(){return call_proc0(VV[326],&LnkLI326);} /* WFS-ERROR */
4609
static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* C2DM */
4610
static object LnkTLI324(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[324],&LnkLI324,3,ap);} /* C1DM */
4611
static object LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],&LnkLI323,ap);} /* REMOVE-DUPLICATES */
4612
static int LnkTLI322(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[322],&LnkLI322,258,ap);} /* ANALYZE-REGS1 */
4613
static object LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[321],&LnkLI321,ap);} /* WARN */
4614
static object LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],&LnkLI320,1,ap);} /* REGISTER */
4615
static object LnkTLI319(){return call_proc0(VV[319],&LnkLI319);} /* WT-CVARS */
4616
static object LnkTLI318(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[318],&LnkLI318,ap);} /* C2LAMBDA-EXPR */
4617
static object LnkTLI317(){return call_proc0(VV[317],&LnkLI317);} /* CLOSE-INLINE-BLOCKS */
4618
static object LnkTLI316(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[316],&LnkLI316,1,ap);} /* WT-VS */
4619
static object LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[315],&LnkLI315,1,ap);} /* C2BIND */
4620
static object LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],&LnkLI314,1,ap);} /* ADD-SYMBOL */
4621
static object LnkTLI313(){return call_proc0(VV[313],&LnkLI313);} /* BABOON */
4622
static object LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],&LnkLI312,1,ap);} /* ADD-OBJECT */
4623
static LnkT311(){ call_or_link(VV[311],&Lnk311);} /* INC-INLINE-BLOCKS */
4624
static object LnkTLI310(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[310],&LnkLI310,ap);} /* CS-PUSH */
4625
static object LnkTLI309(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[309],&LnkLI309,2,ap);} /* C2BIND-INIT */
4626
static object LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],&LnkLI308,2,ap);} /* C2BIND-LOC */
4627
static object LnkTLI307(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[307],&LnkLI307,1,ap);} /* SET-UP-VAR-CVS */
4628
static object LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],&LnkLI306,1,ap);} /* WT-LIST */
4629
static object LnkTLI305(){return call_proc0(VV[305],&LnkLI305);} /* CVS-PUSH */
4630
static object LnkTLI304(){return call_proc0(VV[304],&LnkLI304);} /* VS-PUSH */
4631
static object LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],&LnkLI303,2,ap);} /* WT-V*-MACROS */
4632
static LnkT302(){ call_or_link(VV[302],&Lnk302);} /* C2EXPR */
4633
static object LnkTLI301(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[301],&LnkLI301,3,ap);} /* ASSIGN-DOWN-VARS */
4634
static object LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[300],&LnkLI300,2,ap);} /* WT-REQUIREDS */
4635
static object LnkTLI299(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[299],&LnkLI299,ap);} /* WT-COMMENT */
4636
static object LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],&LnkLI298,2,ap);} /* ADD-DEBUG-INFO */
4637
static object LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],&LnkLI297,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */
4638
static LnkT296(){ call_or_link(VV[296],&Lnk296);} /* T3DEFUN-AUX */
4639
static int LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[295],&LnkLI295,258,ap);} /* ANALYZE-REGS */
4640
static LnkT294(){ call_or_link(VV[294],&Lnk294);} /* FIXNUMP */
4641
static object LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],&LnkLI293,1,ap);} /* VOLATILE */
4642
static object LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[292],&LnkLI292,1,ap);} /* MAXARGS */
4643
static object LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[291],&LnkLI291,1,ap);} /* VARARG-P */
4644
static object LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],&LnkLI290,3,ap);} /* WT-IF-PROCLAIMED */
4645
static int LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[289],&LnkLI289,258,ap);} /* PROCLAIMED-ARGD */
4646
static object LnkTLI288(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[288],&LnkLI288,2,ap);} /* ADD-ADDRESS */
4647
static object LnkTLI287(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[287],&LnkLI287,ap);} /* ADD-INIT */
4648
static object LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],&LnkLI286,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
4649
static object LnkTLI285(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[285],&LnkLI285,2,ap);} /* SHIFT<< */
4650
static int LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[284],&LnkLI284,257,ap);} /* F-TYPE */
4651
static LnkT283(){ call_or_link(VV[283],&Lnk283);} /* SUBTYPEP */
4652
static LnkT282(){ call_or_link(VV[282],&Lnk282);} /* STRUCTURE-SUBTYPE-P */
4653
static object LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[281],&LnkLI281,ap);} /* MAKE-ARRAY */
4654
static object LnkTLI280(){return call_proc0(VV[280],&LnkLI280);} /* ADD-LOAD-TIME-SHARP-COMMA */
4655
static object LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[279],&LnkLI279,2,ap);} /* MAKE-INLINE-STRING */
4656
static object LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],&LnkLI278,2,ap);} /* TYPE-AND */
4657
static object LnkTLI277(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[277],&LnkLI277,2,ap);} /* CMPFIX-ARGS */
4658
static object LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,1,ap);} /* PROCLAIM */
4659
static object LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,1,ap);} /* CHECK-DOWNWARD */
4660
static object LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* C1LAMBDA-EXPR */
4661
static object LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],&LnkLI273,1,ap);} /* T1PROGN */
4662
static object LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,3,ap);} /* TOO-FEW-ARGS */
4663
static LnkT269(){ call_or_link(VV[269],&Lnk269);} /* CMP-EVAL */
4664
static object LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[268],&LnkLI268,1,ap);} /* REP-TYPE */
4665
static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* WT-DATA-FILE */
4666
static object LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],&LnkLI266,1,ap);} /* PUSH-DATA-INCF */
4667
static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* WT-H1 */
4668
static object LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[264],&LnkLI264,1,ap);} /* WT-FUNCTION-LINK */
4669
static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* WT-GLOBAL-ENTRY */
4670
static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* T3LOCAL-FUN */
4671
static object LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* WT1 */
4672
static object LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],&LnkLI261,3,ap);} /* CMP-EXPAND-MACRO */
4673
static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* T1ORDINARY */
4674
static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* T1EXPR */
4675
static object LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CMP-MACROEXPAND-1 */
4676
static object LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PRINT-CURRENT-FORM */
4677
static object LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* WT-DATA-PACKAGE-OPERATION */
4678
static object LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* MAYBE-EVAL */
4679
static object LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[254],&LnkLI254,ap);} /* CMPWARN */
4680
static object LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* CMPERR */
4682
#ifdef SYSTEM_SPECIAL_INIT