Changeset 12443

Timestamp:

02/10/10 22:56:56 (13 years ago)

Author:

ehuelsmann

Message:

Revert r12425: it broke trunk in a way not quickly fixed.

Work to reinstate 12425 continues on branches/metaclass/.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

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

@@ -538 +538 @@
   (getf canonical-slot :name))
 
-(defun ensure-class (name &rest all-keys
-                     &key (metaclass 'standard-class) &allow-other-keys)
-
-  ;; Don't pass METACLASS on to the initialization routines
-  ;; This only works because we *know* ABCL conses up new &rest lists
-  ;; every time; otherwise, modifying the argument list is discouraged by the spec
-  (remf all-keys :metaclass)
-
+(defun ensure-class (name &rest all-keys &allow-other-keys)
   ;; Check for duplicate slots.
   (let ((slots (getf all-keys :direct-slots)))
@@ -590 +583 @@
                   old-class)))
           (t
-           (let ((class (apply (if (eq metaclass 'standard-class)
-                                   #'make-instance-standard-class
-                                   #'make-instance)
-                               (or (when (symbolp metaclass)
-                                     (find-class metaclass))
-                                   metaclass)
+           (let ((class (apply #'make-instance-standard-class
+                               (find-class 'standard-class)
                                :name name all-keys)))
              (%set-find-class name class)