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

FEwrong_dimensions() did not invoke cl_make_list() with enough arguments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-05 23:01:12 +02:00
parent 6a91d3b45a
commit 557474044f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/array.d
View file

@ -98,7 +98,8 @@ out_of_bounds_error(cl_index ndx, cl_object x)
void
FEwrong_dimensions(cl_object a, cl_index rank)
{
cl_object list = cl_make_list(rank, @':initial-element', @'*');
cl_object list = cl_make_list(3, MAKE_FIXNUM(rank),
@':initial-element', @'*');
cl_object type = cl_list(3, @'array', @'*', list);
FEwrong_type_argument(type, a);
}