anchor.diff:                                         ;; The function itself, used for invalid args handling.
                                          (push (format nil "'~S" (context-function context)) annotations)))
                                   (format t "(:RIP #x~X)" (+ address target))))))
  +                          ((and (eql (ea-base operand) :rbp)
  +                                (eql (logand (ea-disp operand) 7) 0)
  +                                (< (ea-disp operand) 0)
  +                                (not (ea-index operand)))
  +                           (format t "(:STACK ~D)" (1- (/ (- (ea-disp operand)) 8))))
                             (t
                              (when (eql (logand (ea-disp operand) 7) 7)
                                (if (ea-index operand)
  
positive.code:         (offset 16)
          (context (make-disassembler-context function architecture))
          (gc-md (sys.int::decode-function-gc-info function))
          (true-end (sys.int::function-code-size function)))
      (loop
         for decoded across (context-instructions context)
  
negative.code:            (when *print-gc-metadata*
               (format t "~7T~8,'0X:~50T~S~%" (+ base-address offset) `(:gc ,@(rest (first gc-md)))))
             (pop gc-md))
           (when (and debug-md
                      (>= offset (first (first debug-md))))
             (when *print-debug-metadata*
               (format t "~7T~8,'0X:~50T~S~%" (+ base-address offset) `(:debug ,@(rest (first debug-md)))))
             (pop debug-md))
           (let ((label (label context offset)))
             (when label
               (format t " L~D" label)))
  