mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused statements

Browse source
This commit is contained in:
jgarcia 2008-05-12 15:59:23 +00:00
parent 62afc11775
commit 8c4c191552
1 changed files with 1 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/c/instance.d
View file

@ -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! */