anchor.diff:              :base-address base-address
               :initial-symbols (list* '(nil . :fixup)
                                       '(t . :fixup)
  -                                    extra-symbols)))
  +                                    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)
  
positive.code:                                    collect (create-user-interrupt-isr i)))
             (common-code (compile-lap-function *common-interrupt-code*
                                                :area :wired
                                                :position-independent nil))
             (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))))))
        (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)))
  
negative.code:         (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 :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)
  