anchor.diff:    (let* ((ex-vec (env:cross-symbol-value environment 'sys.int::*arm64-exception-vector*))
            (ex-vec-val (ser:serialize-object ex-vec image environment))
            (ex-vec-addr (+ ex-vec-val (- sys.int::+tag-object+) 8)) ; slot 0
  -         ;; Base address of the exception vector must be 1024-byte aligned.
  -         (ex-vec-base (util:align-up ex-vec-addr 1024))
  +         ;; Base address of the exception vector must be properly aligned.
  +         (ex-vec-base (util:align-up ex-vec-addr +exception-vector-alignment+))
            (offset (- ex-vec-base ex-vec-addr))
            (slot-offset (/ offset 8)))
       (setf (ser::image-symbol-value image environment 'sys.int::*arm64-exception-vector-base*)
  
positive.code:     (lap:br :x9))
    "Trampoline used for calling a closure or funcallable-instance via a funcallable-instance.")
  
  (defmethod configure-system-for-target (environment (target (eql :arm64)))
    (setf (env:cross-symbol-value environment 'sys.int::*funcallable-instance-trampoline*)
          (env:compile-lap environment
  
negative.code:         (env:make-stack environment (* 128 1024)))
    (setf (env:cross-symbol-value environment 'sys.int::*arm64-exception-vector*)
          (env:compile-lap environment
                           (loop repeat (/ (* +exception-vector-alignment+ 2) 8) ; for alignment
                                 collect `(:d64/le 0))
                           :area :wired-function
                           :name 'sys.int::*arm64-exception-vector*)))
  