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

Avoid recreating symbols when assigning value to constants.

Browse source
This commit is contained in:
jjgarcia 2002-09-22 12:08:05 +00:00
parent 8016d4822f
commit 7ce6a0d4c2
12 changed files with 137 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/array.d
View file

@ -770,7 +770,7 @@ ILLEGAL: FEerror("~S is an illegal axis-number to the array ~S.",
void
init_array(void)
{
make_constant("ARRAY-RANK-LIMIT", MAKE_FIXNUM(ARANKLIM));
make_constant("ARRAY-DIMENSION-LIMIT", MAKE_FIXNUM(ADIMLIM));
make_constant("ARRAY-TOTAL-SIZE-LIMIT", MAKE_FIXNUM(ATOTLIM));
SYM_VAL(@'array-rank-limit') = MAKE_FIXNUM(ARANKLIM);
SYM_VAL(@'array-dimension-limit') = MAKE_FIXNUM(ADIMLIM);
SYM_VAL(@'array-total-size-limit') = MAKE_FIXNUM(ATOTLIM);
}