Plaster

common-lisp
(loop for index = (or (code-metadata code) (loop-finish)) for dilocation = (or (gethash index (module-metadata module)) (error "Could not find index ~a in module-metadata~%" index)) for function-scope = (gethash (location-scope dilocation) (module-metadata module)) when (location-inlined-at dilocation) do (incf (gethash (subprogram-function-name function-scope) function-count 0)) do (incf (gethash index analysis 0)))