44 |
VS |<-------- body1 -------->| |
VS |<-------- body1 -------->| |
45 |
*/ |
*/ |
46 |
|
|
47 |
void |
FFD(Ftagbody)(object body) |
|
Ftagbody(object body) |
|
48 |
{ |
{ |
49 |
|
|
50 |
object *old_top = vs_top; |
object *old_top = vs_top; |
103 |
} |
} |
104 |
|
|
105 |
static void |
static void |
106 |
Fprog(VOL object arg) |
FFN(Fprog)(VOL object arg) |
107 |
{ |
{ |
108 |
|
|
109 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
136 |
} |
} |
137 |
|
|
138 |
static void |
static void |
139 |
FprogA(VOL object arg) |
FFN(FprogA)(VOL object arg) |
140 |
{ |
{ |
141 |
|
|
142 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
169 |
} |
} |
170 |
|
|
171 |
static void |
static void |
172 |
Fgo(object args) |
FFN(Fgo)(object args) |
173 |
{ |
{ |
174 |
|
|
175 |
object lex_tag; |
object lex_tag; |
191 |
} |
} |
192 |
|
|
193 |
static void |
static void |
194 |
Fprogv(object args) |
FFN(Fprogv)(object args) |
195 |
{ |
{ |
196 |
|
|
197 |
object *top; |
object *top; |
235 |
bds_unwind(old_bds_top); |
bds_unwind(old_bds_top); |
236 |
} |
} |
237 |
|
|
238 |
void |
FFD(Fprogn)(object body) |
|
Fprogn(object body) |
|
239 |
{ |
{ |
240 |
|
|
241 |
if(endp(body)) { |
if(endp(body)) { |
252 |
} |
} |
253 |
|
|
254 |
static void |
static void |
255 |
Fprog1(object arg) |
FFN(Fprog1)(object arg) |
256 |
{ |
{ |
257 |
|
|
258 |
object *top = vs_top; |
object *top = vs_top; |
269 |
} |
} |
270 |
|
|
271 |
static void |
static void |
272 |
Fprog2(object arg) |
FFN(Fprog2)(object arg) |
273 |
{ |
{ |
274 |
|
|
275 |
object *top = vs_top; |
object *top = vs_top; |
298 |
|
|
299 |
make_special_form("PROGV", Fprogv); |
make_special_form("PROGV", Fprogv); |
300 |
|
|
301 |
make_special_form("PROGN",Fprogn); |
sLprogn=make_special_form("PROGN",Fprogn); |
302 |
make_special_form("PROG1",Fprog1); |
make_special_form("PROG1",Fprog1); |
303 |
make_special_form("PROG2",Fprog2); |
make_special_form("PROG2",Fprog2); |
304 |
} |
} |