[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Fix cross compilation.
From:       stassats via Sbcl-commits <sbcl-commits () lists ! sourceforge ! net>
Date:       2022-11-29 17:39:16
Message-ID: 1669743556.670303.12548 () sfp-scm-3 ! v30 ! lw ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  7e45b4d3964cd6645fe26e3a6110b45bef0ec098 (commit)
      from  0d96f056ebb9847f90227d85aca9325fb5cd200a (commit)

- Log -----------------------------------------------------------------
commit 7e45b4d3964cd6645fe26e3a6110b45bef0ec098
Author: Stas Boukarev <stassats@gmail.com>
Date:   Tue Nov 29 20:39:03 2022 +0300

    Fix cross compilation.
    
    For some reason it doesn't like notinline for functions that are
    actually defined.
---
 src/compiler/parse-lambda-list.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp
index ac07e74bf..ae8b8c42b 100644
--- a/src/compiler/parse-lambda-list.lisp
+++ b/src/compiler/parse-lambda-list.lisp
@@ -1229,12 +1229,13 @@
                      '(destructuring-bind))
                ,new-ll (,accessor ,ll-whole)
                #-sb-xc-host
-               (declare (constant-value ,@variables))
-               ;; Avoid warnings about emitted full calls
-               ;; inside the body of a compiler macro itself.
-               ,@(and (eq kind 'define-compiler-macro)
-                      (not (memq (info :function :kind name) '(:macro :special-form)))
-                      `((declare (notinline ,name))))
+               (declare (constant-value ,@variables)
+                        ;; Avoid warnings about emitted full calls
+                        ;; inside the body of a compiler macro itself.
+                        ,@(and (eq kind 'define-compiler-macro)
+                               (not (memq (info :function :kind name) '(:macro :special-form)))
+                               `((notinline ,name))))
+
                ,@decls
                ,@(if wrap-block
                      `((block ,(fun-name-block-name name) ,@forms))

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


hooks/post-receive
-- 
SBCL


_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]