39 |
object sLtypep; |
object sLtypep; |
40 |
|
|
41 |
static void |
static void |
42 |
Fdefun(object args) |
FFN(Fdefun)(object args) |
43 |
{ |
{ |
44 |
|
|
45 |
object name; |
object name; |
98 |
} |
} |
99 |
|
|
100 |
static void |
static void |
101 |
siLAmake_special(void) |
FFN(siLAmake_special)(void) |
102 |
{ |
{ |
103 |
check_arg(1); |
check_arg(1); |
104 |
check_type_symbol(&vs_base[0]); |
check_type_symbol(&vs_base[0]); |
108 |
} |
} |
109 |
|
|
110 |
static void |
static void |
111 |
siLAmake_constant(void) |
FFN(siLAmake_constant)(void) |
112 |
{ |
{ |
113 |
check_arg(2); |
check_arg(2); |
114 |
check_type_symbol(&vs_base[0]); |
check_type_symbol(&vs_base[0]); |
122 |
} |
} |
123 |
|
|
124 |
static void |
static void |
125 |
Feval_when(object arg) |
FFN(Feval_when)(object arg) |
126 |
{ |
{ |
127 |
|
|
128 |
object *base = vs_base; |
object *base = vs_base; |
148 |
} |
} |
149 |
|
|
150 |
static void |
static void |
151 |
Fdeclare(object arg) |
FFN(Fdeclare)(object arg) |
152 |
{ |
{ |
153 |
FEerror("DECLARE appeared in an invalid position.", 0); |
FEerror("DECLARE appeared in an invalid position.", 0); |
154 |
} |
} |
155 |
|
|
156 |
static void |
static void |
157 |
Flocally(object body) |
FFN(Flocally)(object body) |
158 |
{ |
{ |
159 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
160 |
|
|
166 |
} |
} |
167 |
|
|
168 |
static void |
static void |
169 |
Fthe(object args) |
FFN(Fthe)(object args) |
170 |
{ |
{ |
171 |
|
|
172 |
object *vs; |
object *vs; |
213 |
make_si_function("*MAKE-CONSTANT", siLAmake_constant); |
make_si_function("*MAKE-CONSTANT", siLAmake_constant); |
214 |
make_special_form("EVAL-WHEN", Feval_when); |
make_special_form("EVAL-WHEN", Feval_when); |
215 |
make_special_form("THE", Fthe); |
make_special_form("THE", Fthe); |
216 |
make_special_form("DECLARE",Fdeclare); |
sLdeclare=make_special_form("DECLARE",Fdeclare); |
217 |
make_special_form("LOCALLY",Flocally); |
make_special_form("LOCALLY",Flocally); |
218 |
|
|
219 |
|
|