anchor.diff:  	 (special-stack (make-array 2048))
            (*function-preloads* '())
   	 (entry-function (make-toplevel-function "../test.lisp"))
  +         (*symbol-preloads* '())
   	 ;; FIXME: Unhardcode this, the physical address of the PML4.
   	 (setup-code (make-setup-function gdt idt special-stack (- #x200000 #x1000) entry-function))
   	 (undefined-function-thunk (make-undefined-function-thunk)))
       (multiple-value-bind (static-objects static-size dynamic-objects dynamic-size function-map)
   	(generate-dump-layout undefined-function-thunk (list* multiboot-header setup-code gdt idt
                                                                 special-stack entry-function
  -                                                              (mapcar 'cdr *function-preloads*)))
  +                                                              (mapcar 'cdr *function-preloads*)
  +                                                              (mapcar 'cdr *symbol-preloads*)))
         (multiple-value-bind (load-base phys-static-base phys-dynamic-base dynamic-end image-end initial-cr3 page-tables)
   	  (generate-physical-dump-layout (+ static-size #x40000) dynamic-size)
   	(let ((image (make-array (+ (- image-end load-base) #x1000) :element-type '(unsigned-byte 8)))
  
positive.code:   environment)
  
  (defvar *function-preloads* nil)
  
  (defvar *crunched-symbol-names* (make-hash-table :weakness :key))
  
  
negative.code:                                                (nreverse toplevel-forms)))
  			   :source-environment nil)))
  
  ;;; Build a (u-b 8) array holding a bootable image.
  (defun generate-dump ()
    (let* ((multiboot-header (make-array 8 :element-type '(unsigned-byte 32)))
  	 (gdt (make-array 256 :element-type '(unsigned-byte 64)))
  