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

Call upgraded-array-element-type directly instead of using cl_funcall.

Browse source
This commit is contained in:
jjgarcia 2008-05-29 06:45:53 +00:00
parent 5c387aa367
commit 83d3be00ea
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/array.d
View file

@ -540,7 +540,7 @@ ecl_symbol_to_elttype(cl_object x)
else if (x == Cnil) {
FEerror("ECL does not support arrays with element type NIL", 0);
}
x = cl_funcall(2, @'upgraded-array-element-type', x);
x = cl_upgraded_array_element_type(1, x);
goto BEGIN;
}

6
src/c/cinit.d
View file

@ -28,6 +28,12 @@
* called instead.
*/
extern cl_object
cl_upgraded_array_element_type(cl_narg narg, cl_object type, ...)
{
return cl_funcall(2, @'upgraded-array-element-type', type);
}
extern cl_object
si_safe_eval(cl_narg arg, cl_object form, cl_object env, cl_object error_value, ...)
{