# Pastebin EjuEjgks
(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))
      do (unless index
           (return-from inlined-at nil))
      do (when (location-inlined-at dilocation)
           (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)))
      do (if (gethash index analysis)
             (incf (gethash index analysis))
           (setf (gethash index analysis) 1)))