anchor.diff:  (defvar *undefined-function-address*)
   (defvar *load-time-evals*)
   
  +(defvar *function-map*)
   (defvar *pending-fixups*)
   
   (defun allocate (word-count &optional (area 'runtime-allocation-area))
  
positive.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-image image-name description)))
  
  (defun load-source-files (files)
  
negative.code:           (setf (word (+ obarray 1 i)) (make-value address +tag-symbol+)))
      (setf (cold-symbol-value target-symbol) (make-value obarray +tag-array-like+))))
  
  (defun write-map-file (image-name map)
    (with-open-file (s (format nil "~A.map" image-name)
                       :direction :output
                       :if-exists :supersede)
      (iter (for (addr name) in (sort (copy-list map) '< :key 'first))
            (format s "~X ~A~%" (make-value addr +tag-function+) name))))
  
  (defun make-image (image-name &optional description extra-source-files)
    (let ((*area-info* (create-area-info *initial-areas*))
          (*pending-fixups* '())
  