method_and_type_cache_and_compose_logging.patch

diff --git a/src/Perl6/Metamodel/ClassHOW.nqp b/src/Perl6/Metamodel/ClassHOW.nqp
index 3aeff5368..515537d7e 100644
--- a/src/Perl6/Metamodel/ClassHOW.nqp
+++ b/src/Perl6/Metamodel/ClassHOW.nqp
@@ -94,6 +94,7 @@ class Perl6::Metamodel::ClassHOW
 
     method compose($the-obj, :$compiler_services) {
         my $obj := nqp::decont($the-obj);
+        note("composing " ~ $obj.HOW.name($obj));
 
         self.set_language_version($obj);
 
diff --git a/src/Perl6/Metamodel/MROBasedMethodDispatch.nqp b/src/Perl6/Metamodel/MROBasedMethodDispatch.nqp
index 06bc2531d..6548328c0 100644
--- a/src/Perl6/Metamodel/MROBasedMethodDispatch.nqp
+++ b/src/Perl6/Metamodel/MROBasedMethodDispatch.nqp
@@ -4,7 +4,7 @@ role Perl6::Metamodel::MROBasedMethodDispatch {
     method find_method($obj, $name, :$no_fallback, *%adverbs) {
 
 # uncomment line below for verbose information about uncached method lookups
-#nqp::say( "looking for " ~ $name ~ " in " ~ $obj.HOW.name($obj) );
+nqp::say( "looking for " ~ $name ~ " in " ~ $obj.HOW.name($obj) );
 #
         if nqp::can($obj.HOW, 'submethod_table') {
             my %submethods := nqp::hllize($obj.HOW.submethod_table($obj));
diff --git a/src/Perl6/Metamodel/MROBasedTypeChecking.nqp b/src/Perl6/Metamodel/MROBasedTypeChecking.nqp
index 1b5461abe..477b6c792 100644
--- a/src/Perl6/Metamodel/MROBasedTypeChecking.nqp
+++ b/src/Perl6/Metamodel/MROBasedTypeChecking.nqp
@@ -15,6 +15,7 @@ role Perl6::Metamodel::MROBasedTypeChecking {
         # The only time we end up in here is if the type check cache was
         # not yet published, which means the class isn't yet fully composed.
         # Just hunt through MRO.
+nqp::say( "looking for type " ~ $obj.HOW.name($obj) );
         for self.mro($obj) {
             if $_ =:= $checkee {
                 return 1;

shaped_array.log

      1 8.2001288
      1 999999
      1 composing array[int]+{array::shaped1intarray}
      1 looking for AT-POS in array[int]
      1 looking for BUILD in array[int]+{array::shaped1intarray}
      1 looking for CALL-ME in array[int]+{array::shaped1intarray}
      1 looking for DESTROY in Any
      1 looking for DESTROY in array
      1 looking for DESTROY in array[int]
      1 looking for DESTROY in array[int]+{array::shaped1intarray}
      1 looking for DESTROY in Mu
      1 looking for FALLBACK in array[int]+{array::shaped1intarray}
      1 looking for TWEAK in array[int]+{array::shaped1intarray}
      2 looking for Bool in array[int]+{array::shaped1intarray}
1000000 looking for ASSIGN-POS in array[int]
2000062 looking for type array[int]