/[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.15 by camm, Wed Jun 29 21:20:09 2005 UTC revision 1.16 by camm, Fri Jul 8 06:12:26 2005 UTC
# Line 239  DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun Line 239  DEFUNO_NEW("FMAKUNBOUND",object,fLfmakun
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.

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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