Fixed typo in COMPILED-FUNCTION-NAME.

This commit is contained in:
jjgarcia 2008-06-19 15:04:54 +00:00
parent 9a5f1a7751
commit 90370c96d0

View file

@ -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: