anchor.diff:    "These files are loaded into the compiler environment so other source
   files will be compiled correctly.")
   
  -(defun set-up-cross-compiler ()
  +(defun set-up-cross-compiler (&key (architecture :x86-64))
  +  (when (and *architecture*
  +             (not (eql *architecture* architecture)))
  +    (error "Cold-generator already configured for architecture ~S, not ~S"
  +           *architecture* architecture))
  +  (setf *architecture* architecture)
     (with-compilation-unit ()
       (flet ((load-files (file-list)
                (dolist (f file-list)
                  (cond ((consp f)
  -                      (mezzano.compiler::load-for-cross-compiler (first f)))
  +                      (when (member architecture (rest f))
  +                        (mezzano.compiler::load-for-cross-compiler (first f))))
                        (t
                         (mezzano.compiler::load-for-cross-compiler f))))))
         (load-files *cross-source-files*)
  
positive.code:     "system/numbers/bignum.lisp"
      "system/numbers/float.lisp"
      ("system/numbers/bignum-x86-64.lisp" :x86-64)
      ;;("system/numbers/bignum-arm64.lisp" :arm64)
      "system/numbers/numbers.lisp"
      "system/gc.lisp"
      "system/weak-objects.lisp"
  
negative.code:     "supervisor/acpi.lisp"
      "supervisor/efi.lisp"
      ("supervisor/x86-64/platform.lisp" :x86-64)
      ("supervisor/arm64/platform.lisp" :arm64)
      "runtime/runtime.lisp"
      ("runtime/runtime-x86-64.lisp" :x86-64)
      ("runtime/runtime-arm64.lisp" :arm64)
      "system/data-types.lisp"
      "runtime/allocate.lisp"
      "runtime/cons.lisp"
      "runtime/numbers.lisp"
      ("runtime/float-x86-64.lisp" :x86-64)
      ("runtime/float-arm64.lisp" :arm64)
      "runtime/string.lisp"
      "runtime/array.lisp"
      "runtime/struct.lisp"
  