From 4d2af3a55cd8d0ddbe3ae8042d92a0aae93cfbc5 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 10 Apr 2003 19:15:24 +0000
Subject: [PATCH] Fix typo.

---
 src/c/interpreter.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index f9e095a1d..c66018e93 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -546,7 +546,7 @@ interpret_dotimes(cl_object *vector) {
 		vector = interpret(vector);
 		output = packed_label(vector-1);
 
-		if (FIXNUMP(VALUES(0))) {
+		if (FIXNUMP(length)) {
 		    cl_fixnum i, l = fix(length);
 		    /* 3) Loop while needed */
 		    for (i = 0; i < l;) {