anchor.diff:            (word (+ multiboot 1)) (pack-halfwords #x1BADB002 #x00010003)
             (word (+ multiboot 2)) (pack-halfwords (ldb (byte 32 0) (- (+ #x1BADB002 #x00010003)))
                                                    (* (1+ multiboot) 8))
  -          (word (+ multiboot 3)) (pack-halfwords #x200000 0)
  +          (word (+ multiboot 3)) (pack-halfwords #x200000 (+ #x200000 (* (total-image-size) 8)))
             (word (+ multiboot 4)) (pack-halfwords 0 (make-value setup-fn +tag-function+)))
  -    (setf (cold-symbol-value '*multiboot-header*) multiboot)
  +    (setf (cold-symbol-value '*multiboot-header*) (make-value multiboot +tag-array-like+))
  +    ;; Must be the last thing to allocate.
  +    (save-area-info)
       ;; Initialize GC twiddly bits.
       (flet ((set-value (symbol value)
                (format t "~A is ~X~%" symbol value)
  
positive.code:                 (file-position s))
          (write-sequence (third area) s :end (* len #x40000 8))))))
  
  (defun array-header (tag length)
    (logior (ash tag 1)
            (ash length 8)))
  
negative.code:             *initial-obarray* *initial-keyword-obarray*
              *initial-setf-obarray* *initial-structure-obarray*
              *newspace-offset* *semispace-size* *newspace*
              *static-bump-pointer* *static-area-size* *static-mark-bit*
              *area-info*))
      (mapc (lambda (area) (symbol-address (string (first area)) nil)) *initial-areas*)
      (generate-obarray *symbol-table* '*initial-obarray*)
      (generate-obarray *keyword-table* '*initial-keyword-obarray*)
      (generate-obarray *setf-table* '*initial-setf-obarray*)
  