anchor.diff:          (*keyword-table* (make-hash-table :test 'equal))
           (*undefined-function-address* nil)
           (*load-time-evals* '())
  +        (*function-map* '())
           (setup-fn nil)
           (gdt nil)
           (idt nil)
  
positive.code: (defvar *undefined-function-address*)
  (defvar *load-time-evals*)
  
  (defvar *pending-fixups*)
  
  (defun allocate (word-count &optional (area 'runtime-allocation-area))
  
negative.code:     (setf (cold-symbol-value '*multiboot-header*) multiboot)
      (format t "Entry point at ~X~%" (make-value setup-fn +tag-function+))
      (apply-fixups *pending-fixups*)
      (write-map-file image-name *function-map*)
      (write-image image-name description)))
  
  (defun load-source-files (files)
  