8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_check; |
vs_check; |
11 |
check_arg(4); |
check_arg(2); |
12 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
13 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
|
base[2]=MMcons(base[2],base[1]); |
|
|
base[3]=MMcons(base[3],base[2]); |
|
14 |
vs_top=sup; |
vs_top=sup; |
15 |
base[4]= |
base[2]= |
16 |
make_cclosure_new(LC2,Cnil,base[3],Cdata); |
make_cclosure_new(LC2,Cnil,base[1],Cdata); |
17 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+2)+1; |
18 |
return; |
return; |
19 |
} |
} |
20 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
25 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
26 |
vs_check; |
vs_check; |
27 |
{register object V1; |
{register object V1; |
28 |
register object V2; |
check_arg(1); |
|
object V3; |
|
|
check_arg(3); |
|
29 |
V1=(base[0]); |
V1=(base[0]); |
|
V2=(base[1]); |
|
|
V3=(base[2]); |
|
30 |
vs_top=sup; |
vs_top=sup; |
31 |
{register object V4; |
{register object V2; |
32 |
base[3]= (V1); |
V2= (base0[1]->c.c_car); |
33 |
base[4]= VV[0]; |
base[1]= (V2); |
34 |
vs_top=(vs_base=base+3)+2; |
base[2]= VV[0]; |
35 |
(void) (*Lnk4)(); |
vs_top=(vs_base=base+1)+2; |
36 |
|
(void) (*Lnk7)(); |
37 |
vs_top=sup; |
vs_top=sup; |
38 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
39 |
goto T3;} |
goto T3;} |
40 |
{register object V5; |
base[1]= STREF(object,(V2),0); |
41 |
register object V6; |
base[2]= STREF(object,(V2),4); |
42 |
V5= (base0[3]->c.c_car); |
base[3]= STREF(object,(V2),8); |
43 |
V6= CMPcar((V5)); |
base[4]= (V1); |
44 |
goto T10; |
vs_top=(vs_base=base+2)+3; |
45 |
T10:; |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
if(!(((V5))==Cnil)){ |
|
|
goto T11;} |
|
|
V4= (base0[2]->c.c_car); |
|
|
goto T1; |
|
|
goto T11; |
|
|
T11:; |
|
|
if(!((CMPcar((V6)))==((V2)))){ |
|
|
goto T15;} |
|
|
V4= CMPcdr((V6)); |
|
|
goto T1; |
|
|
goto T15; |
|
|
T15:; |
|
|
V5= CMPcdr((V5)); |
|
|
V6= CMPcar((V5)); |
|
|
goto T10;} |
|
|
goto T3; |
|
|
T3:; |
|
|
V4= (base0[1]->c.c_car); |
|
|
goto T1; |
|
|
T1:; |
|
|
base[3]= (V4); |
|
|
base[4]= VV[1]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk5)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T25;} |
|
|
base[3]= STREF(object,(V4),0); |
|
|
base[4]= STREF(object,(V4),4); |
|
|
base[5]= STREF(object,(V4),8); |
|
|
base[6]= (V1); |
|
|
base[7]= (V2); |
|
|
base[8]= (V3); |
|
|
vs_top=(vs_base=base+4)+5; |
|
|
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
46 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
47 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
48 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
49 |
return; |
return; |
50 |
goto T25; |
goto T3; |
51 |
T25:; |
T3:; |
52 |
{register object V7; |
if(!(type_of((V2))==t_fixnum)){ |
53 |
V7= (V4); |
goto T12;} |
54 |
base[3]= (V7); |
{object V3; |
55 |
base[4]= VV[2]; |
object V4; |
56 |
|
if(type_of(V1)==t_structure){ |
57 |
|
goto T18;} |
58 |
|
goto T16; |
59 |
|
goto T18; |
60 |
|
T18:; |
61 |
|
if(!(((V1)->str.str_def)==(VV[1]))){ |
62 |
|
goto T16;} |
63 |
|
V3= STREF(object,(V1),4); |
64 |
|
goto T14; |
65 |
|
goto T16; |
66 |
|
T16:;{object V6; |
67 |
|
V6= (VV[3]->s.s_dbind); |
68 |
|
base[3]= small_fixnum(14); |
69 |
|
base[4]= (V1); |
70 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
71 |
(void) (*Lnk5)(); |
(void) (*Lnk8)(); |
72 |
|
vs_top=sup; |
73 |
|
V7= vs_base[0]; |
74 |
|
if(!((V6)==(CMPcar(V7)))){ |
75 |
|
goto T21;}} |
76 |
|
V3= CMPcar(((V1))->cc.cc_turbo[12]); |
77 |
|
goto T14; |
78 |
|
goto T21; |
79 |
|
T21:; |
80 |
|
V3= Cnil; |
81 |
|
goto T14; |
82 |
|
T14:; |
83 |
|
if(((V3))==Cnil){ |
84 |
|
goto T28;} |
85 |
|
V4= ((V3))->v.v_self[fix((V2))]; |
86 |
|
goto T26; |
87 |
|
goto T28; |
88 |
|
T28:; |
89 |
|
V4= Cnil; |
90 |
|
goto T26; |
91 |
|
T26:; |
92 |
|
if(!(((V4))==(VV[4]))){ |
93 |
|
goto T31;} |
94 |
|
base[3]= (V1); |
95 |
|
base[4]= (V2); |
96 |
|
vs_top=(vs_base=base+3)+2; |
97 |
|
(void) (*Lnk10)(); |
98 |
|
return; |
99 |
|
goto T31; |
100 |
|
T31:; |
101 |
|
base[3]= (V4); |
102 |
|
vs_top=(vs_base=base+3)+1; |
103 |
|
return;} |
104 |
|
goto T12; |
105 |
|
T12:; |
106 |
|
{register object V8; |
107 |
|
V8= (V2); |
108 |
|
base[1]= (V8); |
109 |
|
base[2]= VV[5]; |
110 |
|
vs_top=(vs_base=base+1)+2; |
111 |
|
(void) (*Lnk7)(); |
112 |
vs_top=sup; |
vs_top=sup; |
113 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
114 |
goto T36;} |
goto T36;} |
115 |
{object V8; |
{object V9; |
|
object V9; |
|
116 |
object V10; |
object V10; |
117 |
V8= STREF(object,(V4),0); |
register object V11; |
118 |
V9= list(3,(V1),(V2),(V3)); |
V9= STREF(object,(V2),0); |
119 |
V10= STREF(object,(V4),4); |
V10= make_cons((V1),Cnil); |
120 |
if(((V10))==Cnil){ |
V11= STREF(object,(V2),4); |
121 |
|
if(((V11))==Cnil){ |
122 |
goto T47;} |
goto T47;} |
123 |
if(!((CMPcdr((V10)))==Cnil)){ |
if(!((CMPcdr((V11)))==Cnil)){ |
124 |
goto T44;} |
goto T44;} |
125 |
goto T45; |
goto T45; |
126 |
goto T47; |
goto T47; |
128 |
goto T44; |
goto T44; |
129 |
goto T45; |
goto T45; |
130 |
T45:; |
T45:; |
131 |
base[3]= (V9); |
base[1]= (V10); |
132 |
base[4]= CMPcar((V10)); |
base[2]= CMPcar((V11)); |
133 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+1)+2; |
134 |
{object _funobj = (V8);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V9);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
135 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
136 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
137 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
138 |
return; |
return; |
139 |
goto T44; |
goto T44; |
140 |
T44:; |
T44:; |
141 |
base[3]= (V8); |
base[1]= (V9); |
142 |
base[4]= (V9); |
base[2]= (V10); |
143 |
{object V11; |
{object V12; |
144 |
V11= (V10); |
V12= (V11); |
145 |
vs_top=base+5; |
vs_top=base+3; |
146 |
while(V11!=Cnil) |
while(V12!=Cnil) |
147 |
{vs_push((V11)->c.c_car);V11=(V11)->c.c_cdr;} |
{vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;} |
148 |
vs_base=base+4;} |
vs_base=base+2;} |
149 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
150 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
151 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
152 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
153 |
return;} |
return;} |
154 |
goto T36; |
goto T36; |
155 |
T36:; |
T36:; |
156 |
base[3]= (V7); |
base[1]= (V8); |
157 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+1)+1; |
158 |
Lfunctionp(); |
Lfunctionp(); |
159 |
vs_top=sup; |
vs_top=sup; |
160 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
161 |
goto T55;} |
goto T55;} |
162 |
base[3]= (V1); |
base[1]= (V1); |
163 |
base[4]= (V2); |
vs_top=(vs_base=base+1)+1; |
164 |
base[5]= (V3); |
{object _funobj = (V2);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
vs_top=(vs_base=base+3)+3; |
|
|
{object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
165 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
166 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
167 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
168 |
return; |
return; |
169 |
goto T55; |
goto T55; |
170 |
T55:; |
T55:; |
171 |
base[4]= VV[3]; |
base[2]= VV[6]; |
172 |
base[5]= (V7); |
base[3]= (V8); |
173 |
base[6]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
174 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+2)+3; |
175 |
(void) (*Lnk6)(); |
(void) (*Lnk11)(); |
176 |
vs_top=sup; |
vs_top=sup; |
177 |
base[3]= vs_base[0]; |
base[1]= vs_base[0]; |
178 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+1)+1; |
179 |
Lerror(); |
Lerror(); |
180 |
return;}} |
return;}} |
181 |
} |
} |
182 |
} |
} |
183 |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* TYPECASE-ERROR-STRING */ |
static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* TYPECASE-ERROR-STRING */ |
184 |
static void LnkT5(){ call_or_link(VV[5],(void **)(void *)&Lnk5);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT10(){ call_or_link(VV[10],(void **)(void *)&Lnk10);} /* SLOT-UNBOUND-INTERNAL */ |
185 |
static void LnkT4(){ call_or_link(VV[4],(void **)(void *)&Lnk4);} /* TYPEP */ |
static object LnkTLI9(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[9],(void **)(void *)&LnkLI9,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
186 |
|
static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* CCLOSURE-ENV-NTHCDR */ |
187 |
|
static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */ |
188 |
|
|
189 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
190 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |