anchor.diff:          (cl-keyword (allocate 6 :wired))
           (unbound-val (allocate 2 :wired))
           (unbound-tls-val (allocate 2 :wired))
  -        (undef-fn (compile-lap-function *undefined-function-thunk* :area :wired))
  -        (closure-tramp (compile-lap-function *closure-trampoline* :area :wired))
  +        (undef-fn (compile-lap-function *undefined-function-thunk* :area :wired :name 'sys.int::%%undefined-function-trampoline))
  +        (closure-tramp (compile-lap-function *closure-trampoline* :area :wired :name 'sys.int::%%closure-trampoline))
           (struct-def-def (allocate 7 :wired)))
       (format t "NIL at word ~X~%" nil-value)
       (format t "  T at word ~X~%" t-value)
  
positive.code:             :base-address base-address
              :initial-symbols (list* '(nil . :fixup)
                                      '(t . :fixup)
                                      extra-symbols)))
        (declare (ignore symbols))
        (setf mc (adjust-array mc (* (ceiling (length mc) 16) 16) :fill-pointer t))
        (let ((total-size (+ (* (truncate (length mc) 16) 2)
  
negative.code:                                    collect (create-user-interrupt-isr i)))
             (common-code (compile-lap-function *common-interrupt-code*
                                                :area :wired
                                                :position-independent nil
                                                :name 'sys.int::%%common-isr-thunk))
             (common-user-code (compile-lap-function *common-user-interrupt-code*
                                                     :area :wired
                                                     :position-independent nil
                                                     :extra-symbols (list (cons 'interrupt-common (+ (* common-code 8) 16)))
                                                     :name 'sys.int::%%common-user-isr-thunk)))
        (let ((fref (function-reference 'sys.int::%%common-isr-thunk)))
          (setf (word (+ fref 1 sys.int::+fref-function+)) (make-value common-code sys.int::+tag-object+)
                (word (+ fref 1 sys.int::+fref-entry-point+)) (+ (* common-code 8) 16)))
  