From 90370c96d0d7ec8ce3fc679817dcf595291bb16f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 19 Jun 2008 15:04:54 +0000
Subject: [PATCH] Fixed typo in COMPILED-FUNCTION-NAME.

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

diff --git a/src/c/cfun.d b/src/c/cfun.d
index 6c2942a2b..c111880a5 100644
--- a/src/c/cfun.d
+++ b/src/c/cfun.d
@@ -89,7 +89,7 @@ si_compiled_function_name(cl_object fun)
 
 	switch(type_of(fun)) {
 	case t_bclosure:
-		output = fun->bclosure.code;
+		fun = fun->bclosure.code;
 	case t_bytecodes:
 		output = fun->bytecodes.name; break;
 	case t_cfun: