--- a/src/ChangeLog	Wed Jun 01 10:53:50 2011 +0200
+++ b/src/ChangeLog	Wed Jun 01 14:53:44 2011 +0200
@@ -1,8 +1,3 @@
-2011-06-01  Didier Verna  <didier@xemacs.org>
-
-	* fns.c (Fobject_address): New function.
-	* fns.c (syms_of_fns): DEFSUBR it.
-
 2011-05-29  Didier Verna  <didier@xemacs.org>
 
 	* console-impl.h (struct console_methods): Remove device parameter

--- a/src/fns.c	Wed Jun 01 10:53:50 2011 +0200
+++ b/src/fns.c	Wed Jun 01 14:53:44 2011 +0200
@@ -6213,36 +6213,6 @@
 }
 
 
-DEFUN ("object-address", Fobject_address, 1, 1, 0, /*
-Return OBJECT's memory address as an integer.
-This may be useful for customized printing of unreadable Lisp objects.
-As this only makes sense for record type objects, this function returns nil
-for chars and integers.
-*/
-       (object))
-{
-  switch (XTYPE (object))
-    {
-    case Lisp_Type_Int_Even:
-    case Lisp_Type_Int_Odd:
-    case Lisp_Type_Char:
-      {
-	return Qnil;
-      }
-    case Lisp_Type_Record:
-      {
-	return make_integer ((EMACS_INT) GET_VOID_FROM_LISP (object));
-      }
-    default:
-      {
-	signal_error (Qinternal_error,
-		      "Internal error: illegal lisp object tag type",
-		      object);
-      }
-    }
-}
-
-
 
 static Lisp_Object
 tweaked_internal_equal (Lisp_Object obj1, Lisp_Object obj2,
@@ -11816,7 +11786,6 @@
   DEFSUBR (Fremprop);
   DEFSUBR (Fobject_plist);
   DEFSUBR (Fobject_setplist);
-  DEFSUBR (Fobject_address);
   DEFSUBR (Fequal);
   DEFSUBR (Fequalp);
   DEFSUBR (Ffill);