anchor.diff:      (iter (for (addr name) in (sort (copy-list map) '< :key 'first))
             (format s "~X ~A~%" (make-value addr +tag-function+) name))))
   
  +;; Ugh.
  +(defun load-compiler-builtins ()
  +  (genesis::genesis-eval (list (genesis::genesis-intern "SAVE-COMPILER-BUILTINS") "%%compiler-builtins.llf"))
  +  (load-source-file "%%compiler-builtins.llf"))
  +
   (defun make-image (image-name &optional description extra-source-files)
     (let ((*area-info* (create-area-info *initial-areas*))
           (*pending-fixups* '())
  
positive.code:         (initial-pml4))
      (create-support-objects)
      (create-initial-stack-group)
      (load-source-files *source-files*)
      (load-source-files extra-source-files)
      (generate-toplevel-form-array (reverse *load-time-evals*) '*cold-toplevel-forms*)
  
negative.code: (defun load-source-file (file)
    (let ((llf-path (merge-pathnames (make-pathname :type "llf" :defaults file)))
          (omap (make-hash-table)))
      (when (and (not (string-equal (pathname-type (pathname file)) "llf"))
                 (or (not (probe-file llf-path))
                     (<= (file-write-date llf-path) (file-write-date file))))
        (format t "~A is out of date will be recompiled.~%" llf-path)
        (genesis::genesis-eval (list (genesis::genesis-intern "COMPILE-FILE") file)))
      (format t ";; Loading ~S.~%" llf-path)
  