anchor.diff:                          (loop
                              repeat (inst-size decoded)
                              for i from offset
  -                           collect (sys.int::function-code-byte function i)))
  +                           collect (code-byte function i)))
                   (print-instruction context decoded)
                   (terpri)
                   (incf offset (inst-size decoded)))
                  (t
                   (format t "<bad ~2,'0X>~%"
  -                        (sys.int::function-code-byte function offset))
  +                        (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)
  
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:         (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)
  