/[gcl]/gcl/o/assignment.c
ViewVC logotype

Diff of /gcl/o/assignment.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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) {

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26