Changeset 14009

Timestamp:

07/16/12 13:30:26 (8 years ago)

Author:

rschlatte

Message:

Don't redefine metaclasses

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -889 +889 @@
 Handle with care."
   (let ((class (gensym)))
-    `(let ((,class (make-instance-standard-class
-                    nil
-                    :name ',name
-                    :direct-superclasses ',(mapcar #'find-class superclasses)
-                    :direct-slots ,(canonicalize-direct-slots direct-slots))))
+    `(let ((,class (or (find-class ',name nil)
+                       (make-instance-standard-class
+                        nil
+                        :name ',name
+                        :direct-superclasses ',(mapcar #'find-class superclasses)
+                        :direct-slots ,(canonicalize-direct-slots direct-slots)))))
        (%set-find-class ',name ,class)
        ,class)))