X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=479b426c90ce4870f377745555c101ee76c670fb;hb=1a4f36e402af22d470cf619643d2473c1dc58e12;hp=a6399fb22b69b924f97c1d1f0b87cdda56d7c2f4;hpb=14fd5afbac525e7a2e86903070afa0e94dfa14f7;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index a6399fb..479b426 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -153,10 +153,20 @@
           ":GENCGC and :CHENEYGC are incompatible")
          ("(and cheneygc (not (or alpha hppa mips ppc sparc)))"
           ":CHENEYGC not supported on selected architecture")
-         ("(and gencgc (not (or ppc x86 x86-64)))"
+         ("(and gencgc (not (or sparc ppc x86 x86-64)))"
           ":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
@@ -378,8 +388,8 @@
          (multiple-value-bind (output-truename warnings-p failure-p)
             (if trace-file
                 (funcall compile-file src :output-file tmp-obj
-                         :trace-file t)
-                (funcall compile-file src :output-file tmp-obj ))
+                         :trace-file t :allow-other-keys t)
+                (funcall compile-file src :output-file tmp-obj))
            (declare (ignore warnings-p))
            (cond ((not output-truename)
                   (error "couldn't compile ~S" src))