--- opaque.c~	Tue Aug 31 18:40:58 1999
+++ opaque.c	Tue Aug 31 22:36:56 1999
@@ -124,9 +124,21 @@
   write_c_string (buf, printcharfun);
 }
 
+static int
+equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int depth)
+{
+  return ((long)(XOPAQUE_PTR (obj1)->ptr) == (long)(XOPAQUE_PTR (obj2)->ptr));
+}
+
+static unsigned long
+hash_opaque_ptr (Lisp_Object obj, int depth)
+{
+  return (unsigned long) XOPAQUE_PTR (obj)->ptr;
+}
+
 DEFINE_LRECORD_IMPLEMENTATION ("opaque_ptr", opaque_ptr,
 			       0, print_opaque_ptr, 0,
-			       0, 0, 0,
+			       equal_opaque_ptr, hash_opaque_ptr, 0,
 			       Lisp_Opaque_Ptr);
 
 Lisp_Object