mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Replaced FEtype_error_symbol with FEwrong_type_*_arg

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 16:46:40 +01:00
parent f7f823f505
commit 2c2c329b09
4 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/error.d
View file

@ -344,12 +344,6 @@ FEillegal_index(cl_object x, cl_object i)
FEerror("~S is an illegal index to ~S.", 2, i, x);
}
void
FEtype_error_symbol(cl_object obj)
{
FEwrong_type_argument(@'symbol', obj);
}
void
FEdivision_by_zero(cl_object x, cl_object y)
{

4
src/c/reference.d
View file

@ -132,7 +132,7 @@ cl_symbol_value(cl_object sym)
value = sym;
} else {
if (!SYMBOLP(sym)) {
FEtype_error_symbol(sym);
FEwrong_type_only_arg(@'symbol-value', sym, @'symbol');
}
value = ECL_SYM_VAL(the_env, sym);
if (value == OBJNULL)
@ -148,7 +148,7 @@ ecl_boundp(cl_env_ptr env, cl_object sym)
return 1;
} else {
if (!SYMBOLP(sym))
FEtype_error_symbol(sym);
FEwrong_type_only_arg(@'boundp', sym, @'symbol');
return ECL_SYM_VAL(env, sym) != OBJNULL;
}
}

2
src/h/eval.h
View file

@ -14,8 +14,6 @@
See file '../Copyright' for full details.
*/
#define check_symbol(x) if (!SYMBOLP(x)) FEtype_error_symbol(x);
#define CONS(a,d) ecl_cons((a),(d))
#define ACONS(a,b,c) ecl_cons(ecl_cons((a),(b)),(c))
#define CAR(x) (Null(x)? (x) : ECL_CONS_CAR(x))

1
src/h/external.h
View file

@ -565,7 +565,6 @@ extern ECL_API void FEinvalid_function(cl_object obj) ecl_attr_noreturn;
extern ECL_API void FEinvalid_function_name(cl_object obj) ecl_attr_noreturn;
extern ECL_API cl_object CEerror(cl_object c, const char *err_str, int narg, ...);
extern ECL_API void FEillegal_index(cl_object x, cl_object i) ecl_attr_noreturn;
extern ECL_API void FEtype_error_symbol(cl_object obj) ecl_attr_noreturn;
extern ECL_API void FElibc_error(const char *msg, int narg, ...) ecl_attr_noreturn;
#if defined(mingw32) || defined(_MSC_VER) || defined(cygwin)
extern ECL_API void FEwin32_error(const char *msg, int narg, ...) ecl_attr_noreturn;