Hide host compiler notes when building the cross-compiler.

The notes emitted while building cross-compiler are not important; we
only care about efficiency notes for the built system. This keeps
make-host-1 output free.

make-host-1.lisp

@@ -11,9 +11,8 @@
 (in-package "SB-COLD")
 #+sbcl
 (declaim (sb-ext:muffle-conditions
-          (satisfies unable-to-optimize-note-p)
-          (satisfies optional+key-style-warning-p)
-          sb-ext:code-deletion-note))
+          sb-ext:compiler-note
+          (satisfies optional+key-style-warning-p)))
 (progn
   (setf *host-obj-prefix* (if (boundp 'cl-user::*sbcl-host-obj-prefix*)
                               (symbol-value 'cl-user::*sbcl-host-obj-prefix*)

src/code/early-classoid.lisp

@@ -13,8 +13,6 @@
 
 (in-package "SB-KERNEL")
 
-#+host-quirks-sbcl (cl:declaim (host-sb-ext:muffle-conditions host-sb-ext:compiler-note))
-
 ;;;; DEFSTRUCT-DESCRIPTION
 
 ;;; The DEFSTRUCT-DESCRIPTION structure holds compile-time information

src/code/type-class.lisp

@@ -16,8 +16,6 @@
 
 (in-package "SB-KERNEL")
 
-#+host-quirks-sbcl (cl:declaim (host-sb-ext:muffle-conditions host-sb-ext:compiler-note))
-
 (!begin-collecting-cold-init-forms)
 
 ;; We can't make an instance of any CTYPE descendant until its type-class

src/compiler/globaldb.lisp

@@ -34,8 +34,6 @@
 
 (in-package "SB-IMPL")
 
-#+host-quirks-sbcl (cl:declaim (host-sb-ext:muffle-conditions host-sb-ext:compiler-note))
-
 (defmethod print-object ((x meta-info) stream)
   (print-unreadable-object (x stream)
     (format stream "~S ~S, ~D" (meta-info-category x) (meta-info-kind x)