From 2727de03bc3c79ff0a461cb486fe0e007daa2855 Mon Sep 17 00:00:00 2001 From: digikar Date: Tue, 21 Jan 2025 21:34:58 +0100 Subject: [PATCH] In entry-point: process inline and monomorphize in the same loop --- src/entry.lisp | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/src/entry.lisp b/src/entry.lisp index 1a1221a6..33ea5eec 100644 --- a/src/entry.lisp +++ b/src/entry.lisp @@ -78,21 +78,17 @@ :when (parser:toplevel-define-monomorphize define) :do (setf (gethash (parser:node-variable-name (parser:toplevel-define-name define)) monomorphize-table) - t)) - - (loop :for declare :in (parser:program-declares program) - :when (parser:toplevel-declare-monomorphize declare) - :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare)) - monomorphize-table) - t)) - - (loop :for define :in (parser:program-defines program) + t) :when (parser:toplevel-define-inline define) :do (setf (gethash (parser:node-variable-name (parser:toplevel-define-name define)) inline-p-table) t)) (loop :for declare :in (parser:program-declares program) + :when (parser:toplevel-declare-monomorphize declare) + :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare)) + monomorphize-table) + t) :when (parser:toplevel-declare-inline declare) :do (setf (gethash (parser:identifier-src-name (parser:toplevel-declare-name declare)) inline-p-table)