Parent Directory | Revision Log | Patch
revision 1.13 by camm, Wed Jun 22 01:38:23 2005 UTC | revision 1.14 by camm, Wed Jun 29 04:24:39 2005 UTC | |
---|---|---|
# | Line 255 DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun | Line 255 DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun |
255 | } | } |
256 | ||
257 | /* 1 args */ | /* 1 args */ |
258 | if(type_of(sym) != t_symbol) | if(type_of(sym) != t_symbol && !setf_fn_form(sym)) { |
259 | not_a_symbol(sym); | stack_string(s,"Function Identifier"); |
260 | TYPE_ERROR(sym,s); | |
261 | #ifdef ANSI_COMMON_LISP | } |
if (sym->s.s_gfdef==OBJNULL) | ||
FEundefined_function(sym); | ||
#endif | ||
262 | ||
263 | if (sym->s.s_sfdef != NOT_SPECIAL) { | if (sym->s.s_sfdef != NOT_SPECIAL) { |
264 | if (sym->s.s_mflag) { | if (sym->s.s_mflag) { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |