X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=bf9bfbb125a32631d2f2ba67e176833d045631b5;hb=b7192afcef9bbfd3fe1a4e2bfe3c73f853d164d1;hp=19f6a0f74bfd8e4a8c5252ee8900890bd3629654;hpb=2cdebd8e23e447431e5b48371f0ff1225ee29cd7;p=sbcl.git

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 19f6a0f..bf9bfbb 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -303,6 +303,8 @@
 	;; SIGNED-BYTE arrays, so better make it break now if it ever
 	;; will:
 	#+sb-xc-host
+	;; not SB!XC:UPGRADED-ARRAY-ELEMENT-TYPE, because we are
+	;; worried about whether the host's implementation of arrays.
 	(aver (subtypep (upgraded-array-element-type specializer) 
 			'unsigned-byte))
 	(coerce seq `(simple-array ,specializer (*)))))))