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 |
check_arg(1); |
register object V2; |
31 |
|
object V3; |
32 |
|
check_arg(3); |
33 |
V1=(base[0]); |
V1=(base[0]); |
34 |
|
V2=(base[1]); |
35 |
|
V3=(base[2]); |
36 |
vs_top=sup; |
vs_top=sup; |
37 |
{register object V2; |
{register object V4; |
38 |
V2= (base0[1]->c.c_car); |
base[3]= (V1); |
39 |
base[1]= (V2); |
base[4]= VV[0]; |
40 |
base[2]= VV[0]; |
vs_top=(vs_base=base+3)+2; |
41 |
vs_top=(vs_base=base+1)+2; |
(void) (*Lnk4)(); |
|
(void) (*Lnk7)(); |
|
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[1]= STREF(object,(V2),0); |
if(!(((V2))==(CMPcar((base0[3]->c.c_car))))){ |
46 |
base[2]= STREF(object,(V2),4); |
goto T8;} |
47 |
base[3]= STREF(object,(V2),8); |
V4= CMPcdr((base0[3]->c.c_car)); |
48 |
base[4]= (V1); |
goto T1; |
49 |
vs_top=(vs_base=base+2)+3; |
goto T8; |
50 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
T8:; |
51 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
V4= (base0[2]->c.c_car); |
52 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
goto T1; |
|
else super_funcall_no_event(_funobj);} |
|
|
return; |
|
53 |
goto T3; |
goto T3; |
54 |
T3:; |
T3:; |
55 |
if(!(type_of((V2))==t_fixnum)){ |
V4= (base0[1]->c.c_car); |
56 |
goto T12;} |
goto T1; |
57 |
{object V3; |
T1:; |
58 |
object V4; |
base[3]= (V4); |
59 |
if(type_of(V1)==t_structure){ |
base[4]= VV[1]; |
|
goto T18;} |
|
|
goto T16; |
|
|
goto T18; |
|
|
T18:; |
|
|
if(!(((V1)->str.str_def)==(VV[1]))){ |
|
|
goto T16;} |
|
|
V3= STREF(object,(V1),4); |
|
|
goto T14; |
|
|
goto T16; |
|
|
T16:;{object V6; |
|
|
V6= (VV[3]->s.s_dbind); |
|
|
base[3]= small_fixnum(14); |
|
|
base[4]= (V1); |
|
60 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
61 |
(void) (*Lnk8)(); |
(void) (*Lnk5)(); |
62 |
vs_top=sup; |
vs_top=sup; |
63 |
V7= vs_base[0]; |
if((vs_base[0])==Cnil){ |
64 |
if(!((V6)==(CMPcar(V7)))){ |
goto T12;} |
65 |
goto T21;}} |
base[3]= STREF(object,(V4),0); |
66 |
V3= CMPcar(((V1))->cc.cc_turbo[12]); |
base[4]= STREF(object,(V4),4); |
67 |
goto T14; |
base[5]= STREF(object,(V4),8); |
68 |
goto T21; |
base[6]= (V1); |
69 |
T21:; |
base[7]= (V2); |
70 |
V3= Cnil; |
base[8]= (V3); |
71 |
goto T14; |
vs_top=(vs_base=base+4)+5; |
72 |
T14:; |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
73 |
if(((V3))==Cnil){ |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
74 |
goto T28;} |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
75 |
V4= ((V3))->v.v_self[fix((V2))]; |
else super_funcall_no_event(_funobj);} |
|
goto T26; |
|
|
goto T28; |
|
|
T28:; |
|
|
V4= Cnil; |
|
|
goto T26; |
|
|
T26:; |
|
|
if(!(((V4))==(VV[4]))){ |
|
|
goto T31;} |
|
|
base[3]= (V1); |
|
|
base[4]= (V2); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk10)(); |
|
76 |
return; |
return; |
|
goto T31; |
|
|
T31:; |
|
|
base[3]= (V4); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return;} |
|
77 |
goto T12; |
goto T12; |
78 |
T12:; |
T12:; |
79 |
{register object V8; |
{register object V5; |
80 |
V8= (V2); |
V5= (V4); |
81 |
base[1]= (V8); |
base[3]= (V5); |
82 |
base[2]= VV[5]; |
base[4]= VV[2]; |
83 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
84 |
(void) (*Lnk7)(); |
(void) (*Lnk5)(); |
85 |
vs_top=sup; |
vs_top=sup; |
86 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
87 |
goto T36;} |
goto T23;} |
88 |
{object V9; |
{object V6; |
89 |
object V10; |
object V7; |
90 |
register object V11; |
register object V8; |
91 |
V9= STREF(object,(V2),0); |
V6= STREF(object,(V4),0); |
92 |
V10= make_cons((V1),Cnil); |
V7= list(3,(V1),(V2),(V3)); |
93 |
V11= STREF(object,(V2),4); |
V8= STREF(object,(V4),4); |
94 |
if(((V11))==Cnil){ |
if(((V8))==Cnil){ |
95 |
goto T47;} |
goto T34;} |
96 |
if(!((CMPcdr((V11)))==Cnil)){ |
if(!((CMPcdr((V8)))==Cnil)){ |
97 |
goto T44;} |
goto T31;} |
98 |
goto T45; |
goto T32; |
99 |
goto T47; |
goto T34; |
100 |
T47:; |
T34:; |
101 |
goto T44; |
goto T31; |
102 |
goto T45; |
goto T32; |
103 |
T45:; |
T32:; |
104 |
base[1]= (V10); |
base[3]= (V7); |
105 |
base[2]= CMPcar((V11)); |
base[4]= CMPcar((V8)); |
106 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
107 |
{object _funobj = (V9);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V6);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
108 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
109 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
110 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
111 |
return; |
return; |
112 |
goto T44; |
goto T31; |
113 |
T44:; |
T31:; |
114 |
base[1]= (V9); |
base[3]= (V6); |
115 |
base[2]= (V10); |
base[4]= (V7); |
116 |
{object V12; |
{object V9; |
117 |
V12= (V11); |
V9= (V8); |
118 |
vs_top=base+3; |
vs_top=base+5; |
119 |
while(V12!=Cnil) |
while(V9!=Cnil) |
120 |
{vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;} |
{vs_push((V9)->c.c_car);V9=(V9)->c.c_cdr;} |
121 |
vs_base=base+2;} |
vs_base=base+4;} |
122 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
123 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
124 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
125 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
126 |
return;} |
return;} |
127 |
goto T36; |
goto T23; |
128 |
T36:; |
T23:; |
129 |
base[1]= (V8); |
base[3]= (V5); |
130 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+3)+1; |
131 |
Lfunctionp(); |
Lfunctionp(); |
132 |
vs_top=sup; |
vs_top=sup; |
133 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
134 |
goto T55;} |
goto T42;} |
135 |
base[1]= (V1); |
base[3]= (V1); |
136 |
vs_top=(vs_base=base+1)+1; |
base[4]= (V2); |
137 |
{object _funobj = (V2);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
base[5]= (V3); |
138 |
|
vs_top=(vs_base=base+3)+3; |
139 |
|
{object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
140 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
141 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
142 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
143 |
return; |
return; |
144 |
goto T55; |
goto T42; |
145 |
T55:; |
T42:; |
146 |
base[2]= VV[6]; |
base[4]= VV[3]; |
147 |
base[3]= (V8); |
base[5]= (V5); |
148 |
base[4]= (base0[0]->c.c_car); |
base[6]= (base0[0]->c.c_car); |
149 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+4)+3; |
150 |
(void) (*Lnk11)(); |
(void) (*Lnk6)(); |
151 |
vs_top=sup; |
vs_top=sup; |
152 |
base[1]= vs_base[0]; |
base[3]= vs_base[0]; |
153 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+3)+1; |
154 |
Lerror(); |
Lerror(); |
155 |
return;}} |
return;}} |
156 |
} |
} |
157 |
} |
} |
158 |
static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* TYPECASE-ERROR-STRING */ |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* TYPECASE-ERROR-STRING */ |
159 |
static void LnkT10(){ call_or_link(VV[10],(void **)(void *)&Lnk10);} /* SLOT-UNBOUND-INTERNAL */ |
static void LnkT5(){ call_or_link(VV[5],(void **)(void *)&Lnk5);} /* STRUCTURE-SUBTYPE-P */ |
160 |
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 */ |
static void LnkT4(){ call_or_link(VV[4],(void **)(void *)&Lnk4);} /* TYPEP */ |
|
static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* CCLOSURE-ENV-NTHCDR */ |
|
|
static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */ |
|
161 |
|
|
162 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
163 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |