From 7f080fcbbac3b78198cbacd28dbe9d8a0a5d45dc Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 23 Dec 2007 09:30:37 +0000
Subject: [PATCH] The only time we insert a spurious element is when
 initializing a stack.

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

diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index 6ac0e23fe..047cd59b1 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -54,7 +54,8 @@ cl_stack_set_size(cl_index new_size)
 	/* A stack always has at least one element. This is assumed by cl__va_start
 	 * and friends, which take a sp=0 to have no arguments.
 	 */
-	cl_stack_push(MAKE_FIXNUM(0));
+	if (top == 0)
+		cl_stack_push(MAKE_FIXNUM(0));
 
 	end_critical_section();
 }