239 |
|
|
240 |
{ |
{ |
241 |
|
|
242 |
if(type_of(sym) != t_symbol && !setf_fn_form(sym)) { |
if(type_of(sym) != t_symbol && !setf_fn_form(sym)) |
243 |
/* stack_string(s,"Function Identifier"); */ |
TYPE_ERROR(sym,sLfunction_identifier); |
|
/* TYPE_ERROR(sym,s); */ |
|
|
FEwrong_type_argument(sLfunction_identifier,sym); |
|
|
} |
|
244 |
|
|
245 |
/*FIXME -- store a symbol in plist for setf functions as opposed to |
/*FIXME -- store a symbol in plist for setf functions as opposed to |
246 |
the function itself, and centralize function name resolution. |
the function itself, and centralize function name resolution. |