master: Heed the optional+key style warning

The branch "master" has been updated in SBCL:
       via  81c43250dc0934d286a98c157c3ab1efeb918de1 (commit)
      from  573b76f06944bac4527b76c13cb8081b3762e6e4 (commit)

- Log -----------------------------------------------------------------
commit 81c43250dc0934d286a98c157c3ab1efeb918de1
Author: Douglas Katzman <[email protected]>
Date:   Fri Jul 17 20:58:00 2026 +0000

    Heed the optional+key style warning
---
 src/compiler/node.lisp   | 2 +-
 src/interpreter/env.lisp | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 989993e8a..b1a45cb92 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -927,7 +927,7 @@
                          (where-from :defined)
                          (kind :global-function))
                (:constructor make-defined-fun
-                   (%source-name type &optional where-from
+                   (%source-name type where-from
                     &key kind
                          inline-expansion inlinep
                          same-block-p functional))
diff --git a/src/interpreter/env.lisp b/src/interpreter/env.lisp
index d81773736..200f33216 100644
--- a/src/interpreter/env.lisp
+++ b/src/interpreter/env.lisp
@@ -1146,7 +1146,8 @@
                       (let ((defined-fun
                              (sb-c::make-defined-fun
                               fname
-                              (sb-int:global-ftype fname))))
+                              (sb-int:global-ftype fname)
+                              :defined)))
                         (setf (sb-c::defined-fun-inlinep defined-fun) inlinep)
                         (push (cons fname defined-fun) funs))))))))
             (ftype

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL