X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=b46b1ff371842a682a2fd6b7602c82606b2cc387;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=4a9e054db00eb35ff33957f712a71739be626ba1;hpb=2e33f2df9a6eb5a84d71726b88f06d92241e44da;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 4a9e054..b46b1ff 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -96,6 +96,8 @@
      (values #.sb!vm:simple-bit-vector-widetag 1))
     ;; OK, we have to wade into SUBTYPEPing after all.
     (t
+     (unless *type-system-initialized*
+       (bug "SUBTYPEP dispatch for MAKE-ARRAY before the type system is ready"))
      #.`(pick-vector-type type
          ,@(map 'list
                 (lambda (saetp)