mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 17:30:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

The call to ecl_endp() ensures that the argument is a list.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-28 13:41:35 +01:00
parent e758c7591a
commit 3da7384797
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/multival.d
View file

@ -34,10 +34,10 @@ cl_object
cl_values_list(cl_object list)
{
VALUES(0) = Cnil;
for (NVALUES=0; !ecl_endp(list); list=CDR(list)) {
for (NVALUES=0; !ecl_endp(list); list=ECL_CONS_CDR(list)) {
if (NVALUES == ECL_MULTIPLE_VALUES_LIMIT)
FEerror("Too many values in VALUES-LIST",0);
VALUES(NVALUES++) = CAR(list);
VALUES(NVALUES++) = ECL_CONS_CAR(list);
}
returnn(VALUES(0));
}