mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-05 03:50:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

Signal a PROGRAM-ERROR when number of arguments is wrong.

Browse source
This commit is contained in:
jjgarcia 2003-04-10 20:38:33 +00:00
parent 0d7b6e58c1
commit 07b7411a0b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/mapfun.d
View file

@ -23,7 +23,7 @@ prepare_map(cl_va_list lists, cl_index *cdrs_sp)
*cdrs_sp = cl_stack_index();
if (nlist == 0)
FEerror("MAP*: Too few arguments.", 0);
FEprogram_error("MAP*: Too few arguments.", 0);
cl_stack_push_va_list(lists);
for (i = 0; i<nlist; i++)
cl_stack_push(Cnil);