anchor.diff:         (file-position stream constants-position)
          (dotimes (i constants-length)
            (setf (word (+ address (* (ceiling (+ mc-length 12) 16) 2) i)) (load-object stream omap)))
  +       ;; Add to the function map.
  +       (push (list address (extract-object (word (+ address (* (ceiling (+ mc-length 12) 16) 2)))))
  +             *function-map*)
          ;; Add fixups to the list.
          (dolist (fixup fixups)
            (push (list (car fixup) address (cdr fixup) :signed32)
  
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:         (*keyword-table* (make-hash-table :test 'equal))
          (*undefined-function-address* nil)
          (*load-time-evals* '())
          (*function-map* '())
          (setup-fn nil)
          (gdt nil)
          (idt nil)
  