Changeset 7789

Timestamp:

Nov 30, 2007, 10:31:17 AM (17 years ago)

Author:

Gary Byers

Message:

Hook up the make-instance optimization stuff.

File:

• branches/working-0711/ccl/level-1/l1-clos.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/l1-clos.lisp

@@ -1869 +1869 @@
 ;;; Return a lambda form or NIL.
 (defun make-instantiate-lambda-for-class-cell (cell)
-  (let* ((class (class-cell-class cell)))
+  (let* ((class (class-cell-class cell)))   
     (when (and (typep class 'standard-class)
+               (progn (unless (class-finalized-p class)
+                        (finalize-inheritance class))
+                      t)
                (null (cdr (compute-applicable-methods #'allocate-instance (list class))))
                (let* ((proto (class-prototype class)))
@@ -1946 +1949 @@
 ;;; involving reader methods.
 
-(defun snap-reader-methods (&key known-sealed-world (check-conflicts t))
+(defun snap-reader-methods (&key known-sealed-world
+                                 (check-conflicts t)
+                                 (optimize-make-instance t))
   (declare (ignore check-conflicts))
   (unless known-sealed-world
     (cerror "Proceed, if it's known that no new classes or methods will be defined."
             "Optimizing reader methods in this way is only safe if it's known that no new classes or methods will be defined."))
+  (when optimize-make-instance
+    (optimize-named-class-make-instance-methods))
   (let* ((ngf 0)
          (nwin 0))