Update of /cvsroot/sbcl/sbcl/src/code
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv12010/src/code
18.104.22.168: defend against full MAKE-ARRAY before the type system is ready
This is basically defence against bugs of the form lp #316323, where the
wrong answer comes out of a make-array before SUBTYPEP is working
properly. We should be able to arrange the build so that we never have
to do a full MAKE-ARRAY before we're ready for it.
Slight modifications of a couple of macros: VOP-related and multibyte
encoding-related. There should be no user-visible change.
RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- array.lisp 31 Jul 2009 12:14:01 -0000 1.89
+++ array.lisp 30 Oct 2009 15:23:12 -0000 1.90
@@ -96,6 +96,8 @@
(values #.sb!vm:simple-bit-vector-widetag 1))
;; OK, we have to wade into SUBTYPEPing after all.
+ (unless *type-system-initialized*
+ (bug "SUBTYPEP dispatch for MAKE-ARRAY before the type system is ready"))