anchor.diff:      "file/fs.lisp"
       "file/remote.lisp"
       "ipl.lisp"))
  +
  +(defparameter *cl-symbol-list-file* "tools/cl-symbols.lisp-expr")
  +(defparameter *8x8-debug-font* "tools/font8x8")
  +(defparameter *unifont* "tools/unifont-5.1.20080820.hex")
  +(defparameter *unicode-data* "tools/UnicodeData.txt")
  +(defparameter *pci-ids* "tools/pci.ids")
   
   (defun compile-warm-source (&optional force)
     (dolist (file *warm-source-files*)
  
positive.code:               (vector-push-extend (cons (pathname-name llf-path) vec) warm-files)))))
        (setf (cold-symbol-value 'sys.int::*warm-llf-files*) (save-object warm-files :pinned)))
      #+nil(format t "Saving PCI IDs...~%")
      #+nil(let* ((pci-ids (build-pci-ids:build-pci-ids "tools/pci.ids"))
             (object (save-object pci-ids :static)))
        (setf (cold-symbol-value 'sys.int::*pci-ids*) object))
      ;; Poke a few symbols to ensure they exist. This avoids memory allocation after finalize-areas runs.
  
negative.code:          (*function-map* '())
           (*string-dedup-table* (make-hash-table :test 'equal))
           (initial-thread)
           (cl-symbol-names (with-open-file (s *cl-symbol-list-file*) (read s)))
           (system-symbol-names (remove-duplicates
                                 (iter (for sym in-package :system external-only t)
                                       (collect (symbol-name sym)))
  