Compilation fails on M1 / Monterey

[Didier Verna]

Latest trunk (747744a84cf09c828af81f22334ac1f11d71a740) fails to compile due to:

While evaluating the form starting at line 171, column 0
  of #P"/usr/local/src/common-lisp/sbcl/make-host-1.lisp":

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {7005270213}>:
  make-host-1 stopped due to unexpected STYLE-WARNING.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE ] Proceed anyway
  1: [RETRY ] Retry EVAL of current toplevel form.
  2: Ignore error and continue loading file "/usr/local/src/common-lisp/sbcl/make-host-1.lisp".
  3: [ABORT ] Abort loading file "/usr/local/src/common-lisp/sbcl/make-host-1.lisp".
  4: [ABORT-BUILD] Abort building SBCL.
  5: Exit debugger, returning to top level.

(HOST-SB-INT:SIMPLE-EVAL-IN-LEXENV (MAYBE-WITH-COMPILATION-UNIT (LOAD-OR-CLOAD-XCOMPILER (FUNCTION HOST-CLOAD-STEM)) (LOAD "tools-for-build/corefile.lisp" :VERBOSE NIL) (HOST-CLOAD-STEM "src/compiler/generic/genesis" NIL)) #<NULL-LEXENV>)
0]

I beleive the style warnings in question are:

; file: /usr/local/src/common-lisp/sbcl/src/code/cross-float.lisp
; in:
; MACROLET ((INTERCEPT (SYMBOLS LAMBDA-LIST BODY-FORM)
; (QUASIQUOTE (PROGN #S(COMMA :EXPR # :KIND 2))))
; (DISPATCH (F IRRATIONAL)
; (QUASIQUOTE
; (IF (EVERY #'RATIONALP ARGS)
; (APPLY #'# ARGS)
; (WITH-MEMOIZED-MATH-OP # #))))
; (FLONUMS-EQL-P NIL
; (QUASIQUOTE
; (LET (# #)
; (AND # # #))))
; (TWO-ZEROS-P NIL
; (QUASIQUOTE (AND (EQL NARGS 2) (ZEROP #) (ZEROP #))))
; (SAME-SIGN-INFINITIES-P NIL
; (QUASIQUOTE
; (AND (EQL NARGS 2) (FLOATP #) (FLOATP #) (MEMBER # '#) (EQ # #)))))
; (COUNT #.(MAKE-DOUBLE-FLOAT #x-80000000 #x0) SB-IMPL::ARGS)
;
; caught STYLE-WARNING:
; A literal #.(MAKE-DOUBLE-FLOAT #x-80000000 #x0) is unlikely to be found with :test 'EQL

; (COUNT #.(MAKE-SINGLE-FLOAT #x-80000000) SB-IMPL::ARGS)
;
; caught STYLE-WARNING:
; A literal #.(MAKE-SINGLE-FLOAT #x-80000000) is unlikely to be found with :test 'EQL

; (COUNT #.(MAKE-DOUBLE-FLOAT #x-80000000 #x0) SB-IMPL::ARGS)
;
; caught STYLE-WARNING:
; A literal #.(MAKE-DOUBLE-FLOAT #x-80000000 #x0) is unlikely to be found with :test 'EQL

; (COUNT #.(MAKE-SINGLE-FLOAT #x-80000000) SB-IMPL::ARGS)
;
; caught STYLE-WARNING:
; A literal #.(MAKE-SINGLE-FLOAT #x-80000000) is unlikely to be found with :test 'EQL

[Stas Boukarev (stassats)]

Try building either with a released version or with the current HEAD as a host.

[Didier Verna (s0-adm-ph)]

That did it, thanks.