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

Implemented C function for inlining ARRAY-DIMENSION

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-04 19:54:23 +02:00
parent 06c3b848d9
commit 39d9ee467d
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/h/external.h
View file

@ -318,6 +318,7 @@ extern ECL_API cl_object si_fill_array_with_elt(cl_object array, cl_object elt,
extern ECL_API void FEwrong_dimensions(cl_object a, cl_index rank);
extern ECL_API void FEwrong_index(cl_object a, cl_index ndx, cl_index upper);
extern ECL_API cl_index ecl_to_index(cl_object n);
extern ECL_API cl_index ecl_array_dimension(cl_object x, cl_index n);
extern ECL_API cl_object ecl_aref_unsafe(cl_object x, cl_index index);
extern ECL_API cl_object ecl_aset_unsafe(cl_object x, cl_index index, cl_object value);
extern ECL_API cl_object ecl_aref(cl_object x, cl_index index);