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

Diff of /gcl/o/error.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.8 by camm, Tue Oct 1 04:37:33 2002 UTC
# Line 172  va_dcl Line 172  va_dcl
172  /*                     &ap)); */  /*                     &ap)); */
173  }  }
174    
175    DEFUNO("SPECIFIC-ERROR",object,fLspecific_error,LISP
176       ,1,F_ARG_LIMIT,NONE,OO,OO,OO,OO,Lspecific_error,"")(error_name,fmt_string,va_alist)
177    object error_name,fmt_string;
178    va_dcl
179    { int n = VFUN_NARGS,i=0;
180      object b[F_ARG_LIMIT];
181      va_list ap;
182    
183      b[0]=error_name;
184      b[1]=Cnil;
185      b[2]=ihs_top_function_name(ihs_top-1);
186      b[3]=null_string;
187      b[4]=fmt_string;
188      i=4;
189      va_start(ap);
190      while (--n)
191        b[++i]=va_arg(ap,object);
192      va_end(ap);
193      RETURN1(IapplyVector(sSuniversal_error_handler,++i,b));
194    }
195    
196    
197  DEFUNO("CERROR",object,fLcerror,LISP  DEFUNO("CERROR",object,fLcerror,LISP
198     ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,Lcerror,"")     ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,Lcerror,"")

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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