anchor.diff:                                 (t
                                   (cond ((and (not (logtest target #b111))
                                               (<= 0 pool-index)
  +                                            (not (sys.int::function-reference-p (context-function context)))
                                               (< pool-index (sys.int::function-pool-size (context-function context))))
                                          (let ((pool-object (sys.int::function-pool-object (context-function context) pool-index)))
                                            (push
  
positive.code: 
  (defclass disassembler-context ()
    ((%function :initarg :function :reader context-function :reader disassembler-context-function)
     (%offset :initform 16 :accessor context-code-offset)
     (%decoding-jump-table-p :initform nil :accessor decoding-jump-table-p)
     (%label-table :initform (make-hash-table) :reader context-label-table)
     (%instructions :initform (make-array 0 :adjustable t :fill-pointer 0) :reader context-instructions)))
  
  (defun instruction-at (context offset)
    (loop
  
negative.code:                                   (target (+ (inst-offset instruction)
                                               (inst-size instruction)
                                               (ea-disp operand)))
                                    (pool-index (truncate (- target (code-end (context-function context))) 8))
                                    (label (label context target)))
                               (cond
                                 ((and print-labels label)
  