anchor.diff:          (*struct-table* (make-hash-table))
           (*undefined-function-address* nil)
           (*function-map* '())
  +        (*string-dedup-table* (make-hash-table :test 'equal))
           (setup-fn nil)
           (kboot-entry-fn nil)
           (gdt nil)
  
positive.code: (defvar *struct-table*)
  (defvar *undefined-function-address*)
  (defvar *load-time-evals*)
  
  (defvar *function-map*)
  (defvar *pending-fixups*)
  
negative.code: (defun save-object (object &optional (area :dynamic))
    (etypecase object
      ((signed-byte 61) (make-fixnum object))
      (string
       (let ((value (gethash object *string-dedup-table*)))
         (unless value
           (setf value (make-value (store-string object)
                                   +tag-array-like+))
           (setf (gethash object *string-dedup-table*) value))
         value))
      (cons (vcons (save-object (car object))
                   (save-object (cdr object))))
      (symbol (make-value (symbol-address (symbol-name object)
  