mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused function ihs_top_function_name()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-05 22:30:41 +02:00
parent b26f818736
commit 85597eb2f2
2 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/stacks.d
View file

@ -418,13 +418,6 @@ get_ihs_ptr(cl_index n)
return p;
}
cl_object
ihs_top_function_name(void)
{
cl_env_ptr env = ecl_process_env();
return ihs_function_name(env->ihs_top->function);
}
cl_object
si_ihs_top(void)
{

2
src/h/stacks.h
View file

@ -203,8 +203,6 @@ typedef struct ecl_ihs_frame {
if (r) __the_env->ihs_top = r->next; \
} while(0)
extern ECL_API cl_object ihs_top_function_name(void);
/***************
* FRAME STACK
***************/