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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Mon Jul 16 07:04:07 2012
New Revision: 14010

Log:
Revert previous commit.

- hacking clos is hard, let's go shopping!

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 16 06:30:26 2012	(r14009)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Jul 16 07:04:07 2012	(r14010)
@@ -888,12 +888,11 @@
 non-existent superclasses, default initargs, or other complicated stuff.
 Handle with care."
   (let ((class (gensym)))
-    `(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)))))
+    `(let ((,class (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)))