From 828b431e25ea3c9a1afeadecdc50cc188b23bc77 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 27 Oct 2006 20:08:01 +0000
Subject: [PATCH] Removed unused function si_set_compiled_function_name()

---
 msvc/ecl-threads.def  |  1 -
 msvc/ecl.def          |  1 -
 src/CHANGELOG         | 14 +++++++++-----
 src/c/gfun.d          | 12 ------------
 src/c/symbols_list.h  |  1 -
 src/c/symbols_list2.h |  1 -
 src/h/external.h      |  1 -
 7 files changed, 9 insertions(+), 22 deletions(-)

diff --git a/msvc/ecl-threads.def b/msvc/ecl-threads.def
index bd67f3dd3..64e570082 100755
--- a/msvc/ecl-threads.def
+++ b/msvc/ecl-threads.def
@@ -355,7 +355,6 @@ EXPORTS
 
 	;si_set_funcallable
 	si_generic_function_p
-	si_set_compiled_function_name
 
 	compute_method
 
diff --git a/msvc/ecl.def b/msvc/ecl.def
index f98a5a37e..2265c2cd3 100644
--- a/msvc/ecl.def
+++ b/msvc/ecl.def
@@ -361,7 +361,6 @@ EXPORTS
 
 	;si_set_funcallable
 	si_generic_function_p
-	si_set_compiled_function_name
 
 	compute_method
 
diff --git a/src/CHANGELOG b/src/CHANGELOG
index 916a2f745..f69051439 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -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 ***
diff --git a/src/c/gfun.d b/src/c/gfun.d
index c6c7451d1..19635fbbe 100644
--- a/src/c/gfun.d
+++ b/src/c/gfun.d
@@ -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);
-}
diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 5bca05336..9884b7517 100644
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -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},
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 61455d89f..fcefb7ae8 100644
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -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},
diff --git a/src/h/external.h b/src/h/external.h
index 537841ace..83b6b0a76 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -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 */