* goops.scm (equal?): Provide default method for `equal?'.

(compute-getters-n-setters): Check for bad init-thunks.

* eq.c (scm_eqv_p, scm_equal_p): Turned into a primitive generics.

* goops.texi (Object Comparisons): Removed object-eqv? and
object-equal? and added eqv?, equal? and =.

oop/goops.scm

@@ -658,7 +658,8 @@
 ;;; Methods to compare objects
 ;;;
 
-(define-method (equal? x y) #f)
+(define-method (eqv? x y)   #f)
+(define-method (equal? x y) (eqv? x y))
 
 ;;; These following two methods are for backward compatibility only.
 ;;; They are not called by the Guile interpreter.