(loop named inlined-at
       for index = (let ((idx (code-metadata code)))
                     (unless idx (return-from inlined-at nil))
                     idx)
         then (let ((idx (gethash index (module-inlined-at module))))
                (unless idx (return-from inlined-at nil))
                idx)
       for dilocation = (let ((loc (gethash index (module-metadata module))))
                          (unless loc (error "Could not find index ~a in module-metadata~%" index))
                          loc)
       for function-scope = (gethash (location-scope dilocation)
                                     (module-metadata module))
       unless index
         do (return-from inlined-at nil)
       when (location-inlined-at dilocation)
         do (incf (gethash (subprogram-function-name function-scope)
                           function-count 0))
       do (incf (gethash index analysis 0)))