mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Added CCASE-ERROR and CTYPECASE-ERROR to cl_symbols.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-15 22:18:39 +01:00
parent 161a613c07
commit c1b8bfa888
5 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbols_list.h
View file

@ -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},

2
src/c/symbols_list2.h
View file

@ -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"},

2
src/cmp/proclamations.lsp
View file

@ -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)

4
src/cmp/sysfun.lsp
View file

@ -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

2
src/h/external.h
View file

@ -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);
/*