28 |
|
|
29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
void |
LFD(Lfboundp)(void) |
|
Lfboundp(void) |
|
32 |
{ |
{ |
33 |
object sym; |
object sym; |
34 |
|
|
64 |
(macro . function-closure) for macros |
(macro . function-closure) for macros |
65 |
(special . address) for special forms. |
(special . address) for special forms. |
66 |
*/ |
*/ |
67 |
void |
LFD(Lsymbol_function)(void) |
|
Lsymbol_function(void) |
|
68 |
{ |
{ |
69 |
object sym; |
object sym; |
70 |
|
|
90 |
} |
} |
91 |
|
|
92 |
static void |
static void |
93 |
Fquote(object form) |
FFN(Fquote)(object form) |
94 |
{ |
{ |
95 |
|
|
96 |
if (endp(form)) |
if (endp(form)) |
102 |
} |
} |
103 |
|
|
104 |
static void |
static void |
105 |
Ffunction(object form) |
FFN(Ffunction)(object form) |
106 |
{ |
{ |
107 |
|
|
108 |
object fun; |
object fun; |
136 |
FEinvalid_function(fun); |
FEinvalid_function(fun); |
137 |
} |
} |
138 |
|
|
139 |
void |
LFD(Lsymbol_value)(void) |
|
Lsymbol_value(void) |
|
140 |
{ |
{ |
141 |
object sym; |
object sym; |
142 |
check_arg(1); |
check_arg(1); |
149 |
vs_base[0] = sym->s.s_dbind; |
vs_base[0] = sym->s.s_dbind; |
150 |
} |
} |
151 |
|
|
152 |
void |
LFD(Lboundp)(void) |
|
Lboundp(void) |
|
153 |
{ |
{ |
154 |
object sym; |
object sym; |
155 |
check_arg(1); |
check_arg(1); |
162 |
vs_base[0] = Ct; |
vs_base[0] = Ct; |
163 |
} |
} |
164 |
|
|
165 |
void |
LFD(Lmacro_function)(void) |
|
Lmacro_function(void) |
|
166 |
{ |
{ |
167 |
check_arg(1); |
check_arg(1); |
168 |
if (type_of(vs_base[0]) != t_symbol) |
if (type_of(vs_base[0]) != t_symbol) |
173 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
174 |
} |
} |
175 |
|
|
176 |
void |
LFD(Lspecial_form_p)(void) |
|
Lspecial_form_p(void) |
|
177 |
{ |
{ |
178 |
check_arg(1); |
check_arg(1); |
179 |
if (type_of(vs_base[0]) != t_symbol) |
if (type_of(vs_base[0]) != t_symbol) |
189 |
{ |
{ |
190 |
make_function("SYMBOL-FUNCTION", Lsymbol_function); |
make_function("SYMBOL-FUNCTION", Lsymbol_function); |
191 |
make_function("FBOUNDP", Lfboundp); |
make_function("FBOUNDP", Lfboundp); |
192 |
make_special_form("QUOTE", Fquote); |
sLquote=make_special_form("QUOTE", Fquote); |
193 |
sLfunction = make_special_form("FUNCTION", Ffunction); |
sLfunction = make_special_form("FUNCTION", Ffunction); |
194 |
make_function("SYMBOL-VALUE", Lsymbol_value); |
make_function("SYMBOL-VALUE", Lsymbol_value); |
195 |
make_function("BOUNDP", Lboundp); |
make_function("BOUNDP", Lboundp); |