{"body":"(loop named inlined-at\n      for index = (let ((idx (code-metadata code)))\n                    (unless idx (return-from inlined-at nil))\n                    idx)\n      then (let ((idx (gethash index (module-inlined-at module))))\n             (unless idx (return-from inlined-at nil))\n             idx)\n      for dilocation = (let ((loc (gethash index (module-metadata module))))\n                         (unless loc (error \"Could not find index ~a in module-metadata~%\" index))\n                         loc)\n      for function-scope = (gethash (location-scope dilocation)\n                                    (module-metadata module))\n      do (unless index\n           (return-from inlined-at nil))\n      do (when (location-inlined-at dilocation)\n           (if (gethash (subprogram-function-name function-scope)\n                        function-count)\n               (incf (gethash (subprogram-function-name function-scope)\n                              function-count))\n             (setf (gethash (subprogram-function-name function-scope)\n                            function-count) 1)))\n      do (if (gethash index analysis)\n             (incf (gethash index analysis))\n           (setf (gethash index analysis) 1)))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/EjuEjgks","modified":1566863249,"id":"EjuEjgks","size":1219,"lines":24,"own_paste":false,"theme":"","date":1566863249}