From c1b8bfa8888c8edbbbf4be315a8f9186a8d8a14b Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sat, 15 Dec 2012 22:18:39 +0100
Subject: [PATCH] Added CCASE-ERROR and CTYPECASE-ERROR to cl_symbols.

---
 src/c/symbols_list.h      | 2 ++
 src/c/symbols_list2.h     | 2 ++
 src/cmp/proclamations.lsp | 2 ++
 src/cmp/sysfun.lsp        | 4 ++--
 src/h/external.h          | 2 ++
 5 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index d8d0d8219..8e41d57af 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -2016,8 +2016,10 @@ cl_symbols[] = {
 {EXT_ "COMPILER-TYPECASE", EXT_ORDINARY, NULL, -1, OBJNULL},
 
 {SYS_ "ASSERT-FAILURE", SI_ORDINARY, ECL_NAME(si_assert_failure), -1, OBJNULL},
+{SYS_ "CCASE-ERROR", SI_ORDINARY, ECL_NAME(si_ccase_error), 3, OBJNULL},
 {SYS_ "ECASE-ERROR", SI_ORDINARY, ECL_NAME(si_ecase_error), 2, OBJNULL},
 {SYS_ "ETYPECASE-ERROR", SI_ORDINARY, ECL_NAME(si_etypecase_error), 2, OBJNULL},
+{SYS_ "CTYPECASE-ERROR", SI_ORDINARY, ECL_NAME(si_ctypecase_error), 3, OBJNULL},
 {SYS_ "DO-CHECK-TYPE", SI_ORDINARY, ECL_NAME(si_do_check_type), 4, OBJNULL},
 
 {SYS_ "SERIALIZE", SI_ORDINARY, si_serialize, 1, OBJNULL},
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 0f1618396..1e01fd824 100644
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -2016,8 +2016,10 @@ cl_symbols[] = {
 {EXT_ "COMPILER-TYPECASE",NULL},
 
 {SYS_ "ASSERT-FAILURE","ECL_NAME(si_assert_failure)"},
+{SYS_ "CCASE-ERROR","ECL_NAME(si_ccase_error)"},
 {SYS_ "ECASE-ERROR","ECL_NAME(si_ecase_error)"},
 {SYS_ "ETYPECASE-ERROR","ECL_NAME(si_etypecase_error)"},
+{SYS_ "CTYPECASE-ERROR","ECL_NAME(si_ctypecase_error)"},
 {SYS_ "DO-CHECK-TYPE","ECL_NAME(si_do_check_type)"},
 
 {SYS_ "SERIALIZE","si_serialize"},
diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp
index 5ad3b2fa0..39933685a 100644
--- a/src/cmp/proclamations.lsp
+++ b/src/cmp/proclamations.lsp
@@ -256,8 +256,10 @@
 (proclamation si:bds-val (si::index) t)
 (proclamation si:sch-frs-base (si::index si::index) (or null si::index))
 
+(proclamation si::ccase-error (t t t) t)
 (proclamation si::ecase-error (t t) t)
 (proclamation si::etypecase-error (t t) t)
+(proclamation si::ctypecase-error (t t t) t)
 (proclamation si::do-check-type (t t t t) t)
 
 (proclamation si::dm-too-many-arguments (t) t)
diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp
index eab3891f9..ad5378156 100644
--- a/src/cmp/sysfun.lsp
+++ b/src/cmp/sysfun.lsp
@@ -880,7 +880,7 @@
     vector-pop adjust-array
     ;; assert.lsp
     si::do-check-type si::ecase-error si::etypecase-error
-    si::wrong-type-argument
+    si::wrong-type-argument si::ccase-error si::ctypecase-error
     ;; assignment.lsp
     si::setf-definition
     ;; conditions.lsp
@@ -977,7 +977,7 @@
 
 (proclaim
   `(si::c-export-fname #+ecl-min ,@c::*in-all-symbols-functions*
-    ccase-error typecase-error-string find-documentation find-declarations
+    typecase-error-string find-documentation find-declarations
     si::search-keyword si::check-keyword
     si::dm-too-many-arguments si::dm-too-few-arguments
     remove-documentation si::get-documentation
diff --git a/src/h/external.h b/src/h/external.h
index 29b36729d..9368b3ab8 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -2170,8 +2170,10 @@ extern ECL_API cl_object si_assert_failure _ECL_ARGS((cl_narg narg, cl_object V1
 
 /* assert.lsp */
 extern ECL_API cl_object si_wrong_type_argument _ECL_ARGS((cl_narg narg, cl_object value, cl_object type, ...));
+extern ECL_API cl_object si_ccase_error(cl_object keyform, cl_object key, cl_object values);
 extern ECL_API cl_object si_ecase_error(cl_object value, cl_object values);
 extern ECL_API cl_object si_etypecase_error(cl_object value, cl_object type);
+extern ECL_API cl_object si_ctypecase_error(cl_object keyplace, cl_object value, cl_object type);
 extern ECL_API cl_object si_do_check_type(cl_object value, cl_object type, cl_object type_string, cl_object place);
 
 /*