diff --git a/compiler/main.lisp b/compiler/main.lisp index 3a808eba5970da1cda40b86ca2e749aca65f3212..c31c33c2d69ee15cd741b79a2cd5e2d2bf2fc5c8 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -322,6 +322,9 @@ (when *compiler-trace-output* (describe-component component *compiler-trace-output*)) + (when *collect-dynamic-statistics* + (setup-dynamic-count-info component)) + (maybe-mumble "Code ") (let ((length (generate-code component)))