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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Fri Jul 13 07:15:58 2012
New Revision: 14005

Log:
Repair class hierarchy (fixes previous commit)

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	Fri Jul 13 07:07:31 2012	(r14004)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Jul 13 07:15:58 2012	(r14005)
@@ -197,6 +197,7 @@
     (add-subclasses 'metaobject
                     '(generic-function method method-combination
                       slot-definition specializer))
+    (add-subclasses 'specializer '(class))
     (add-subclasses 'method-combination
                     '(long-method-combination short-method-combination))
     (add-subclasses 'funcallable-standard-object 'generic-function)