anchor.diff:      (setf (cold-symbol-value 'sys.int::*structure-slot-type*) (make-value *structure-slot-definition-definition* sys.int::+tag-object+))
       (apply-fixups *pending-fixups*)
       (write-map-file (or map-file-name (format nil "~A.map" image-name)) *function-map*)
  +    (format t "UUID ~/cold-generator::format-uuid/~%" uuid)
       (if (streamp image-name)
           (write-image image-name
                        (make-value (function-reference 'sys.int::bootloader-entry-point)
                                    sys.int::+tag-object+)
                        initial-thread
                        image-size
  -                     header-path)
  +                     header-path
  +                     uuid)
           (with-open-file (s (make-pathname :type "image" :defaults image-name)
                              :direction :output
                              :element-type '(unsigned-byte 8)
  
positive.code:       (replace header #(#x00 #x4D #x65 #x7A #x7A #x61 #x6E #x69 #x6E #x65 #x49 #x6D #x61 #x67 #x65 #x00)
                 :start1 0)
        ;; UUID.
        (dotimes (i 16)
          (setf (aref header (+ 16 i)) (case i
                                         (9 (logior #x40 (random 16)))
                                         (7 (logior (random 64) #x80))
                                         (t (random 256)))))
        ;; Major version.
        (setf (ub16ref/le header 32) 0)
        ;; Minor version.
  
negative.code:                                    sys.int::+tag-object+)
                         initial-thread
                         image-size
                         header-path
                         uuid)))))
  
  (defun load-source-files (files set-fdefinitions &optional wired)
    (dolist (f files)
  