anchor.diff:          (if inst
               (make-instruction inst decoded-reg imm)
               nil)))))
  +
  +(defun decode-nop-ev (context info)
  +  (multiple-value-bind (reg r/m)
  +      (disassemble-modr/m context info)
  +    (declare (ignore reg))
  +    (make-instruction 'sys.lap-x86:nop (decode-gpr64-or-mem r/m (rex-b info)))))
   
   (defun decode-mov-r-c (context info)
     (multiple-value-bind (reg r/m)
  
positive.code: 
  (defun disassemble-subfunction (function architecture)
    (let ((base-address (logand (sys.int::lisp-object-address function) -16))
          (offset 16)
          (context (make-disassembler-context function architecture))
          (gc-md (sys.int::decode-function-gc-info function))
          (debug-md (sys.int::decompress-precise-debug-info
                     (sys.int::decode-precise-debug-info
                      function
                      (sys.int::debug-info-precise-variable-data
                       (sys.int::function-debug-info function))))))
      (loop
         for decoded across (context-instructions context)
         do
  
negative.code:                         (loop
                             repeat (inst-size decoded)
                             for i from offset
                             collect (code-byte function i)))
                  (print-instruction context decoded)
                  (terpri)
                  (incf offset (inst-size decoded)))
                 (t
                  (format t "<bad ~2,'0X>~%"
                          (code-byte function offset))
                  (incf offset 1))))))
  
  (defun peel-function (function)
    "Remove layers of closures and funcallable-instances from FUNCTION."
    (when (sys.int::function-reference-p function)
      (return-from peel-function function))
    (check-type function function)
    (let ((fundamental-fn function))
      (when (sys.int::funcallable-instance-p fundamental-fn)
  