X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=579064e88e77db57fc7dfe63dc4e1a8982afff2a;hb=09d7974601df2aaaa820ca576026b9b4f03e6ab1;hp=7eabbc1c93460adbdba3aa2b56a4f3e59c841e4b;hpb=a23903deaf6348cc088eb0f992a99cdba0a37d66;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 7eabbc1..579064e 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -304,9 +304,9 @@
 	     ;; elements before he reads elements (or to read manuals
 	     ;; before he writes code:-), we'll signal a STYLE-WARNING
 	     ;; in case he didn't realize this.
-	     (compiler-note "The default initial element ~S is not a ~S."
-			    (saetp-initial-element-default saetp)
-			    eltype))
+	     (compiler-style-warn "The default initial element ~S is not a ~S."
+				  (saetp-initial-element-default saetp)
+				  eltype))
 	   creation-form)
 	  (t
 	   `(let ((array ,creation-form))