anchor.diff:                                               :area :wired
                                                :position-independent nil
                                                :extra-symbols (list (cons 'interrupt-common (+ (* common-code 8) 16))
  -                                                                  (cons 'user-interrupt-common (+ (* common-user-code 8) 16))))))
  +                                                                  (cons 'user-interrupt-common (+ (* common-user-code 8) 16)))
  +                                             :name (intern (format nil "%%ISR-THUNK-~D" i) "SYS.INT"))))
                (setf (word (+ isr-table 1 i)) (make-value addr sys.int::+tag-object+)))
            else do
              (setf (word (+ isr-table 1 i)) (make-value (symbol-address "NIL" "COMMON-LISP") sys.int::+tag-object+))))))
  
positive.code:             sys.int::*stack-area-bump*
              :wired :pinned :general :cons :nursery :stack
              ))
      (setf (cold-symbol-value 'sys.int::*bsp-idle-thread*)
            (create-thread "BSP idle thread"
                           :stack-size (* 16 1024)))
  
negative.code:             :base-address base-address
              :initial-symbols (list* '(nil . :fixup)
                                      '(t . :fixup)
                                      extra-symbols)
              ;; Name & debug info.
              :info (list name nil)))
        (declare (ignore symbols))
        (setf mc (adjust-array mc (* (ceiling (length mc) 16) 16) :fill-pointer t))
        (let ((total-size (+ (* (truncate (length mc) 16) 2)
  