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

Removed unused function si_set_compiled_function_name()

Browse source
This commit is contained in:
jgarcia 2006-10-27 20:08:01 +00:00
parent baa9407388
commit 828b431e25
7 changed files with 9 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

1
msvc/ecl-threads.def
View file

@ -355,7 +355,6 @@ EXPORTS
;si_set_funcallable
si_generic_function_p
si_set_compiled_function_name
compute_method

1
msvc/ecl.def
View file

@ -361,7 +361,6 @@ EXPORTS
;si_set_funcallable
si_generic_function_p
si_set_compiled_function_name
compute_method

14
src/CHANGELOG
View file

@ -116,10 +116,6 @@ ECL 1.0:
(ffi:clines "#include <math.h>")
(ffi:c-inline (x) (:double) :double "sin(#0)" :one-liner t))
- Function ecl_stream_to_handle() now exported.
- Function backup_fopen() renamed to ecl_backup_fopen().
- Minimized the number of headers included by ecl/ecl.h. In particular,
stdio.h, inittypes.h and pthread.h are no longer used.
@ -130,9 +126,17 @@ ECL 1.0:
- Support for hierarchical package names, as in Allegro Common-Lisp.
- C functions which disappear: si_set_compiled_function_name()
- Lisp functions which disappear: si-set-compiled-function-name.
- New C functions: ecl_stream_to_handle()
- Functions renamed: backup_fopen() -> ecl_backup_fopen()
* Contributed code:
- New examples: cmdline/ls.lsp, ffi/uffi.lsp
- New examples: cmdline/ls.lsp, ffi/uffi.lsp, ffi/cffi.lsp
;;; Local Variables: ***
;;; mode:text ***

12
src/c/gfun.d
View file

@ -213,15 +213,3 @@ compute_method(cl_narg narg, cl_object gf, cl_object *args)
FEinvalid_function(gf);
}
}
cl_object
si_set_compiled_function_name(cl_object fn, cl_object new_name)
{
cl_type t = type_of(fn);
if (t == t_cfun)
@(return (fn->cfun.name = new_name))
if (t == t_bytecodes)
@(return (fn->bytecodes.name = new_name))
FEerror("~S is not a compiled-function.", 1, fn);
}

1
src/c/symbols_list.h
View file

@ -1219,7 +1219,6 @@ cl_symbols[] = {
{SYS_ "INSTANCE-CLASS", SI_ORDINARY, si_instance_class, 1, OBJNULL},
{SYS_ "INSTANCE-CLASS-SET", SI_ORDINARY, si_instance_class_set, 2, OBJNULL},
{SYS_ "INSTANCEP", SI_ORDINARY, si_instancep, 1, OBJNULL},
{SYS_ "SET-COMPILED-FUNCTION-NAME", SI_ORDINARY, si_set_compiled_function_name, 2, OBJNULL},
{SYS_ "SL-BOUNDP", SI_ORDINARY, si_sl_boundp, 1, OBJNULL},
{SYS_ "SL-MAKUNBOUND", SI_ORDINARY, si_sl_makunbound, 2, OBJNULL},
{SYS_ "SUBCLASSP", SI_ORDINARY, NULL, -1, OBJNULL},

1
src/c/symbols_list2.h
View file

@ -1219,7 +1219,6 @@ cl_symbols[] = {
{SYS_ "INSTANCE-CLASS","si_instance_class"},
{SYS_ "INSTANCE-CLASS-SET","si_instance_class_set"},
{SYS_ "INSTANCEP","si_instancep"},
{SYS_ "SET-COMPILED-FUNCTION-NAME","si_set_compiled_function_name"},
{SYS_ "SL-BOUNDP","si_sl_boundp"},
{SYS_ "SL-MAKUNBOUND","si_sl_makunbound"},
{SYS_ "SUBCLASSP",NULL},

1
src/h/external.h
View file

@ -616,7 +616,6 @@ extern void ecl_register_root(cl_object *p);
#ifdef CLOS
extern cl_object clos_set_funcallable_instance_function(cl_object x, cl_object function_or_t);
extern cl_object si_generic_function_p(cl_object instance);
extern cl_object si_set_compiled_function_name(cl_object keylist, cl_object table);
extern cl_object compute_method(cl_narg narg, cl_object fun, cl_object *args);
#endif /* CLOS */