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

Replace ecl_endp() by a single list check and Null check.

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

3
src/c/multival.d
View file

@ -34,7 +34,8 @@ cl_object
cl_values_list(cl_object list)
{
VALUES(0) = Cnil;
for (NVALUES=0; !ecl_endp(list); list=ECL_CONS_CDR(list)) {
for (NVALUES=0; !Null(list); list=ECL_CONS_CDR(list)) {
if (!LISTP(list)) FEtype_error_list(list);
if (NVALUES == ECL_MULTIPLE_VALUES_LIMIT)
FEerror("Too many values in VALUES-LIST",0);
VALUES(NVALUES++) = ECL_CONS_CAR(list);