anchor.diff:  (defvar *area-info*)
   (defvar *symbol-table*)
   (defvar *keyword-table*)
  +(defvar *setf-table*)
  +(defvar *struct-table*)
   (defvar *undefined-function-address*)
   (defvar *load-time-evals*)
   
  
positive.code:        (let* ((fn-value (load-object stream omap))
                (base-name (load-object stream omap))
                (name (resolve-function-name base-name)))
           (format t "Setting (fdefinition ~X) to ~X~%" name fn-value)
           (setf (word (+ (pointer-part name) 3)) fn-value)))
        (#.+llf-unbound+ (error "Should not seen UNBOUND here."))
        (t (let ((id (hash-table-count omap)))
  
negative.code:                name))
        (let ((address (allocate 6)))
          (setf (word address) (make-value (store-string name)
                                           +tag-array-like+)
                (word (+ address 1)) (make-value (gethash "T" *symbol-table*) +tag-symbol+)
                (word (+ address 2)) (if keywordp
                                         (make-value address +tag-symbol+)
  