From 3da73847970923880e5cfce85098610f69d64484 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 28 Feb 2009 13:41:35 +0100
Subject: [PATCH] The call to ecl_endp() ensures that the argument is a list.

---
 src/c/multival.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/multival.d b/src/c/multival.d
index bf6d5f64c..249797c41 100644
--- a/src/c/multival.d
+++ b/src/c/multival.d
@@ -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));
 }