(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 (if (gethash (subprogram-function-name function-scope)
                         function-count)
                (incf (gethash (subprogram-function-name function-scope)
                               function-count))
                (setf (gethash (subprogram-function-name function-scope)
                               function-count) 1))
       if (gethash index analysis)
         do (incf (gethash index analysis))
       else (setf (gethash index analysis) 1))