From 40f2552ffbb8ac7aa53810771739ae5580ed628c Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 28 Feb 2009 13:42:13 +0100
Subject: [PATCH] Replace ecl_endp() by a single list check and Null check.

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

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