Changeset 7750 for branches

Timestamp:

Nov 25, 2007, 8:12:29 PM (17 years ago)

Author:

Gary Byers

Message:

Do MAKE-INSTANCE of named class via a funcall to the class-cell's initializer.

File:

• branches/working-0711/ccl/compiler/optimizers.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/optimizers.lisp

@@ -781 +781 @@
            (symbolp (cadr class))
            (null (cddr class)))
-    `(%make-instance (load-time-value (find-class-cell ,class t))
-                     ,@initargs)
+    (let* ((cell (gensym)))
+      `(let* ((,cell (load-time-value (find-class-cell ,class t))))
+        (funcall (class-cell-instantiate ,cell) ,cell ,@initargs)))
     call))