Changeset 12432

Timestamp:

02/08/10 08:13:42 (11 years ago)

Author:

Mark Evenson

Message:

Revert to r12425 for clos.lisp (which is broken under ANSI tests).

Undo inadvertent fix in last commit.

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 &allow-other-keys)
+(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)
+
   ;; Check for duplicate slots.
   (let ((slots (getf all-keys :direct-slots)))
@@ -583 +590 @@
                   old-class)))
           (t
-           (let ((class (apply #'make-instance-standard-class
-                               (find-class 'standard-class)
+           (let ((class (apply (if (eq metaclass 'standard-class)
+                                   #'make-instance-standard-class
+                                   #'make-instance)
+                               (or (when (symbolp metaclass)
+                                     (find-class metaclass))
+                                   metaclass)
                                :name name all-keys)))
              (%set-find-class name class)