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

CHARACTERP, BASE_CHAR_P, BASE_CHAR_CODE_P, CODE_CHAR, CHAR_CODE, REAL_TYPE, IMMEDIATE, IMMEDIATE_TAG, FIXNUM_TAG, FIXNUM_MINUSP, FIXNUM_PLUSP, FIXNUMP and fix get the ecl_ prefix

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-06 11:19:55 +02:00
parent 6f2fd54130
commit 64a9168434
109 changed files with 1489 additions and 1438 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/impl/math_dispatch.h
View file

@ -40,7 +40,7 @@ typedef cl_object (*math_one_arg_fn)(cl_object);
complex }; \
cl_object ecl_##name(cl_object arg) \
{ \
int t = IMMEDIATE(arg); \
int t = ECL_IMMEDIATE(arg); \
if (t == 0) { \
t = arg->d.t; \
unlikely_if (t > t_complex) return name##failed(arg); \
@ -73,7 +73,7 @@ typedef int (*math_one_arg_bool_fn)(cl_object);
complex }; \
int ecl_##name(cl_object arg) \
{ \
int t = IMMEDIATE(arg); \
int t = ECL_IMMEDIATE(arg); \
if (t == 0) { \
t = arg->d.t; \
unlikely_if (t > t_complex) return name##failed(arg); \