From df51d3c0ece353e8cab74ab09511f3ee62474e79 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sun, 29 Jul 2001 11:08:58 +0000
Subject: [PATCH] Remove siLuniversal_error_handler from C library.

---
 src/c/all_functions.d | 1 -
 src/c/error.d         | 1 +
 src/h/lisp_external.h | 1 -
 3 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/c/all_functions.d b/src/c/all_functions.d
index cec246f3a..7fc487a98 100644
--- a/src/c/all_functions.d
+++ b/src/c/all_functions.d
@@ -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 */
 
diff --git a/src/c/error.d b/src/c/error.d
index 761f226f1..ea0605fcd 100644
--- a/src/c/error.d
+++ b/src/c/error.d
@@ -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");
diff --git a/src/h/lisp_external.h b/src/h/lisp_external.h
index 0c9dd9b50..6e69fe996 100644
--- a/src/h/lisp_external.h
+++ b/src/h/lisp_external.h
@@ -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