[armedbear-cvs] r14016 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Wed Jul 25 06:33:29 2012
New Revision: 14016

Log:
slightly more helpful error message

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Jul 23 04:58:34 2012	(r14015)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Jul 25 06:33:29 2012	(r14016)
@@ -4416,8 +4416,8 @@
     (setf generic-function-class (find-class generic-function-class)))
   (unless (classp method-class) (setf method-class (find-class method-class)))
   (unless (eq generic-function-class (class-of generic-function))
-    (error "The class ~S is incompatible with the existing class of ~S."
-           generic-function-class generic-function))
+    (error "The class ~S is incompatible with the existing class (~S) of ~S."
+           generic-function-class (class-of generic-function) generic-function))
   (unless (or (null (generic-function-methods generic-function))
               (lambda-lists-congruent-p lambda-list (generic-function-lambda-list generic-function)))
     (error "The lambda list ~S is incompatible with the existing methods of ~S."