Emacs Lisp bytecode disassembly for keyboard bindings

test-bytecode.lap

byte code:
  args: nil
0	constant  global-set-key
1	constant  ""
2	constant  backward-delete-char-untabify
3	call	  2
4	discard	  
5	constant  local-set-key
6	constant  "m"
7	constant  vm-mail
8	call	  2
9	discard	  
10	constant  global-set-key
11	constant  [134217747]
12	constant  isearch-forward
13	call	  2
14	discard	  
15	constant  local-set-key
16	constant  [134217746]
17	constant  isearch-backward
18	call	  2
19	return	  

test-keybinding-deparsed.el

(global-set-key "C-h" 'backward-delete-char-untabify)
(local-set-key "C-xm" 'vm-mail)
(global-set-key '[134217747] 'isearch-forward)
(local-set-key '[134217746] 'isearch-backward))

test-keybinding.parse

 # eldecompile of LAP
 0. body
    exprs (4)
      0. expr_stmt (2)
        0. expr
          call_exprn (4)
            0. expr
              name_expr
                    0 CONSTANT   global-set-key
            1. expr
              name_expr
                    1 CONSTANT   "
            2. expr
              name_expr
                    2 CONSTANT   backward-delete-char-untabify
            3.    3 CALL_3     3
        1. opt_discard
              4 DISCARD   
      1. expr_stmt (2)
        0. expr
          call_exprn (4)
            0. expr
              name_expr
                    5 CONSTANT   local-set-key
            1. expr
              name_expr
                    6 CONSTANT   "m"
            2. expr
              name_expr
                    7 CONSTANT   vm-mail
            3.    8 CALL_3     3
        1. opt_discard
              9 DISCARD   
      2. expr_stmt (2)
        0. expr
          call_exprn (4)
            0. expr
              name_expr
                   10 CONSTANT   global-set-key
            1. expr
              name_expr
                   11 CONSTANT   [134217747]
            2. expr
              name_expr
                   12 CONSTANT   isearch-forward
            3.   13 CALL_3     3
        1. opt_discard
             14 DISCARD   
      3. expr_stmt (2)
        0. expr
          call_exprn (4)
            0. expr
              name_expr
                   15 CONSTANT   local-set-key
            1. expr
              name_expr
                   16 CONSTANT   [134217746]
            2. expr
              name_expr
                   17 CONSTANT   isearch-backward
            3.   18 CALL_3     3
        1. opt_discard
  1. opt_return
       19 RETURN    
(defun unknown()

test-keybindings.el

(global-set-key "\C-h" 'backward-delete-char-untabify)
(local-set-key "\C-xm" 'vm-mail)
(global-set-key (kbd "C-M-s") 'isearch-forward)
(local-set-key (kbd "C-M-r") 'isearch-backward)