mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove siLuniversal_error_handler from C library.

Browse source
This commit is contained in:
jjgarcia 2001-07-29 11:08:58 +00:00
parent 126c99b6fb
commit df51d3c0ec
3 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/all_functions.d
View file

@ -149,7 +149,6 @@ const struct function_info all_functions[] = {
#endif
{"ERROR", clLerror, cl},
{"CERROR", clLcerror, cl},
{"UNIVERSAL-ERROR-HANDLER", siLuniversal_error_handler, si},
/* eval.c */

1
src/c/error.d
View file

@ -254,6 +254,7 @@ FEinvalid_function(cl_object obj)
}
/* bootstrap version */
static
@(defun si::universal_error_handler (c err args)
@
printf("\nLisp initialization error.\n");

1
src/h/lisp_external.h
View file

@ -183,7 +183,6 @@ extern cl_object Kformat_control, Kformat_arguments;
extern cl_object siSuniversal_error_handler;
extern cl_object siSterminal_interrupt;
extern cl_object siLuniversal_error_handler _ARGS((int narg, cl_object c, cl_object d, cl_object args));
#if defined(FRAME_CHAIN) && !defined(RUNTIME)
extern cl_object siLbacktrace _ARGS((int narg));
#endif