From 64ca376393abf33922b53aef196cb00be8863774 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 19 Jun 2008 15:00:50 +0000
Subject: [PATCH] Given that reg0 contains always VALUES(0), we can simplify
 OP_JT and OP_JNIL.

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

diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index bef47c055..e3c4c7af0 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -807,14 +807,14 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
 	CASE(OP_JNIL); {
 		cl_oparg jump = GET_OPARG(vector);
 		NVALUES = 1;
-		if (Null(VALUES(0)))
+		if (Null(reg0))
 			vector += jump - OPARG_SIZE;
 		THREAD_NEXT;
 	}
 	CASE(OP_JT); {
 		cl_oparg jump = GET_OPARG(vector);
 		NVALUES = 1;
-		if (!Null(VALUES(0)))
+		if (!Null(reg0))
 			vector += jump - OPARG_SIZE;
 		THREAD_NEXT;
 	}