Changeset 9346 for release/1.2/source

Timestamp:

May 2, 2008, 4:50:04 PM (12 years ago)

Author:

gz

Message:

Propagate r9345

File:

• release/1.2/source/level-1/l1-clos-boot.lisp (modified) (1 diff)

release/1.2/source/level-1/l1-clos-boot.lisp

@@ -3028 +3028 @@
                                                *standard-class-class*)))
          (meta-spec (if (quoted-form-p meta-arg) (%cadr meta-arg) meta-arg))
-         (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec))))
-    (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)))
+         (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec nil))))
+    (if (and meta (not (typep meta 'forward-referenced-class)))
+      (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)
+      t)))
 
 (defun compute-initargs-vector (instance class functions &optional require-rest)