From 2772bcbc46b5b04d9f2049d97ba89608aaa198cf Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Sun, 24 Aug 2008 12:22:50 +0200
Subject: [PATCH] Bytecode objects created inside an eval-when had an invalid
 name.

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

diff --git a/src/c/compiler.d b/src/c/compiler.d
index 7e2cd9f19..fa4f91e7a 100644
--- a/src/c/compiler.d
+++ b/src/c/compiler.d
@@ -161,6 +161,7 @@ asm_end(cl_index beginning) {
 	code_size = current_pc() - beginning;
 	data_size = ecl_length(ENV->constants);
 	bytecodes = cl_alloc_object(t_bytecodes);
+	bytecodes->bytecodes.name = @'si::bytecodes';
 	bytecodes->bytecodes.code_size = code_size;
 	bytecodes->bytecodes.data_size = data_size;
 	bytecodes->bytecodes.code = cl_alloc_atomic(code_size * sizeof(cl_opcode));
@@ -2741,7 +2742,6 @@ si_make_lambda(cl_object name, cl_object rest)
 		compile_form(form, FLAG_VALUES);
 		asm_op(OP_EXIT);
 		bytecodes = asm_end(handle);
-		bytecodes->bytecodes.name = @'si::bytecodes';
 		bytecodes->bytecodes.definition = form;
 	} CL_UNWIND_PROTECT_EXIT {
 		/* Clear up */