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