Changeset 7889

Timestamp:

Dec 12, 2007, 2:11:27 AM (17 years ago)

Author:

Gary Byers

Message:

Try to avoide a GF call in %SHARED-INITIALIZE.

Look at %CLASS.CPL (which is inlined) first before calling %INITED-CLASS-CPL
in optimized reader dcode functions that need the CPL.

File:

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

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

@@ -1693 +1693 @@
   ;; obsolete instances.  This'll eventually call
   ;; UPDATE-INSTANCE-FOR-REDEFINED-CLASS if it needs to.
-  (let* ((wrapper (instance-class-wrapper instance))
+  (let* ((wrapper (if (eq (typecode instance) target::subtag-instance)
+                    (instance.class-wrapper instance)
+                    (instance-class-wrapper instance)))
          (class (%wrapper-class wrapper)))
     (when (eql 0 (%wrapper-hash-index wrapper)) ; obsolete
@@ -1796 +1798 @@
          (class (if (eq (typecode instance) target::subtag-instance)
                   (%class-of-instance instance))))
-    (if (and class (memq defining-class (%inited-class-cpl class)))
+    (if (and class (memq defining-class (or (%class.cpl class)
+                                            (%inited-class-cpl class))))
       (%slot-ref (instance.slots instance) location)
       (no-applicable-method (%gf-dispatch-table-gf dt) instance))))
@@ -1810 +1813 @@
          (class (if (eq (typecode instance) target::subtag-instance)
                   (%class-of-instance instance)))
-         (cpl (if class (%inited-class-cpl class))))
+         (cpl (if class (or (%class.cpl class) (%inited-class-cpl class)))))
     (if (dolist (defining-class (%svref dt %gf-dispatch-table-first-data))
           (when (memq defining-class cpl) (return t)))