X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=479b426c90ce4870f377745555c101ee76c670fb;hb=25c1769e30ff7404b52a9be663626d87f8ff75bc;hp=6553dfa05ceb6776faad66067828c53b8c03e6d0;hpb=1d06300e09f767a38bbe6d5b38232ca334ab1913;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 6553dfa..479b426 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -157,6 +157,16 @@
           ":GENCGC not supported on selected architecture")
          ("(not (or gencgc cheneygc))"
           "One of :GENCGC or :CHENEYGC must be enabled")
+         ("(and win32 (not (and sb-thread
+                                sb-safepoint sb-thruption sb-wtimer
+                                sb-dynamic-core)))"
+          ":SB-WIN32 requires :SB-THREAD and related features")
+         ("(and sb-dynamic-core (not (and linkage-table sb-thread)))"
+          ;; Subtle memory corruption follows when sb-dynamic-core is
+          ;; active, and non-threaded allocation routines have not been
+          ;; updated to take the additional indirection into account.
+          ;; Let's avoid this unusual combination.
+          ":SB-DYNAMIC-CORE requires :LINKAGE-TABLE and :SB-THREAD")
          ("(or (and alpha (or hppa mips ppc sparc x86 x86-64))
                (and hppa (or mips ppc sparc x86 x86-64))
                (and mips (or ppc sparc x86 x86-64))
@@ -170,7 +180,7 @@
       (when (read-from-string (concatenate 'string "#+" (first test) "T NIL"))
         (push (second test) failed-test-descriptions))))
   (when failed-test-descriptions
-    (error "Feature compatability check failed, ~S"
+    (error "Feature compatibility check failed, ~S"
            failed-test-descriptions)))
 
 ;;;; cold-init-related PACKAGE and SYMBOL tools