anchor.diff:      "supervisor/interrupts.lisp"
       "supervisor/entry.lisp"
       "supervisor/physical.lisp"
  -    "supervisor/x86-64/cpu.lisp"
  +    ("supervisor/x86-64/cpu.lisp" :x86-64)
       ;;"supervisor/arm64/cpu.lisp" fixme
       "supervisor/support.lisp"
       "runtime/struct.lisp"
  
positive.code:   (save-tables environment)
    (values))
  
  (defun make-image (image-name &key header-path image-size map-file (architecture :x86-64) uuid)
    (let ((environment (env:make-standard-environment :target architecture)))
      (configure-system environment)
      (finalize-system environment)
      (format t ";; Serializing image. This may take a while...")
  
negative.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"
  