Changeset 14016


Ignore:
Timestamp:
07/25/12 13:33:29 (8 years ago)
Author:
rschlatte
Message:

slightly more helpful error message

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14014 r14016  
    44174417  (unless (classp method-class) (setf method-class (find-class method-class)))
    44184418  (unless (eq generic-function-class (class-of generic-function))
    4419     (error "The class ~S is incompatible with the existing class of ~S."
    4420            generic-function-class generic-function))
     4419    (error "The class ~S is incompatible with the existing class (~S) of ~S."
     4420           generic-function-class (class-of generic-function) generic-function))
    44214421  (unless (or (null (generic-function-methods generic-function))
    44224422              (lambda-lists-congruent-p lambda-list (generic-function-lambda-list generic-function)))
Note: See TracChangeset for help on using the changeset viewer.