mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -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/c/printer/write_array.d
View file

@ -60,7 +60,7 @@ write_array_inner(bool vector, cl_object x, cl_object stream)
if (n > 0) {
ecl_write_char('(', stream);
for (j=0; j<n; j++) {
si_write_object(MAKE_FIXNUM(adims[j]), stream);
si_write_object(ecl_make_fixnum(adims[j]), stream);
if (j < n-1)
ecl_write_char(' ', stream);
}
@ -76,7 +76,7 @@ write_array_inner(bool vector, cl_object x, cl_object stream)
if (print_level >= n) {
/* We can write the elements of the array */
print_level -= n;
ecl_bds_bind(env, @'*print-level*', MAKE_FIXNUM(print_level));
ecl_bds_bind(env, @'*print-level*', ecl_make_fixnum(print_level));
} else {
/* The elements of the array are not printed */
n = print_level;