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,"") |