28 |
#include "include.h" |
#include "include.h" |
29 |
|
|
30 |
static void |
static void |
31 |
Floop(object form) |
FFN(Floop)(object form) |
32 |
{ |
{ |
33 |
|
|
34 |
object x; |
object x; |
121 |
} |
} |
122 |
|
|
123 |
static void |
static void |
124 |
Fdo(VOL object arg) |
FFN(Fdo)(VOL object arg) |
125 |
{ |
{ |
126 |
|
|
127 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
206 |
} |
} |
207 |
|
|
208 |
static void |
static void |
209 |
FdoA(VOL object arg) |
FFN(FdoA)(VOL object arg) |
210 |
{ |
{ |
211 |
|
|
212 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
284 |
} |
} |
285 |
|
|
286 |
static void |
static void |
287 |
Fdolist(VOL object arg) |
FFN(Fdolist)(VOL object arg) |
288 |
{ |
{ |
289 |
|
|
290 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
365 |
} |
} |
366 |
|
|
367 |
static void |
static void |
368 |
Fdotimes(VOL object arg) |
FFN(Fdotimes)(VOL object arg) |
369 |
{ |
{ |
370 |
|
|
371 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |