From 8c4c191552faa2fc2a1c3076a9ec5850555cdb80 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Mon, 12 May 2008 15:59:23 +0000 Subject: [PATCH] Remove unused statements --- src/c/instance.d | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/src/c/instance.d b/src/c/instance.d index 491aa387d..7b8c38141 100644 --- a/src/c/instance.d +++ b/src/c/instance.d @@ -354,22 +354,7 @@ cl_class_of(cl_object x) default: ecl_internal_error("not a lisp data object"); } - if (0) { - cl_object y = old_cl_class_of(x); - cl_object output; - x = SYM_VAL(@'clos::*builtin-classes*'); - /* We have to be careful because *builtin-classes* might be empty! */ - if (Null(x)) { - output = cl_find_class(1,@'t'); - } else { - output = ecl_aref(x, index); - } - if (output != y) { - cl_print(1,CLASS_NAME(output)); - ecl_internal_error("BOO"); - } - @(return output) - } else { + { cl_object output; x = SYM_VAL(@'clos::*builtin-classes*'); /* We have to be careful because *builtin-classes* might be empty! */