/[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.15 by camm, Thu Feb 27 15:50:59 2003 UTC revision 1.15.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC
# Line 120  ihs_top_function_name(ihs_ptr h) Line 120  ihs_top_function_name(ihs_ptr h)
120    
121    
122    
123  static object  object
124  Icall_error_handler(object error_name,object error_format_string,int nfmt_args,...)  Icall_error_handler(object error_name,object error_format_string,int nfmt_args,...)
125  { object b[20];  { object b[20];
126    b[0]= error_name;    b[0]= error_name;
# Line 238  DEFUNO_NEW("CERROR",object,fLcerror,LISP Line 238  DEFUNO_NEW("CERROR",object,fLcerror,LISP
238    b[3]=null_string;    b[3]=null_string;
239    b[4]=fmt_string;    b[4]=fmt_string;
240    i=4;    i=4;
241      n--;
242    va_start(ap,fmt_string);    va_start(ap,fmt_string);
243    while (--n)    while (--n)
244      b[++i]=va_arg(ap,object);      b[++i]=va_arg(ap,object);

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

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