    :ret   0x06    ; return
    :misc  0x07})  ; miscellaneous
 
-(def size-table
+(def ^:private ^:const size-table
   "Data size variants."
   {:w     0x00    ; word
    :h     0x08    ; halfword
    :b     0x10})  ; byte
 
-(def mode-table
+(def ^:private ^:const mode-table
   "Addressing modes."
   {:imm   0x00    ; constant
    :abs   0x20    ; data at fixed-offset

   :len   0x80    ; packet length
   :msh   0xa0})  ; IP header length

(def op-table
  "Arithmetic and jump instructions."
  {:add   0x00    ; acc <- acc + k 
   :sub   0x10    ; acc <- acc - k 

(ns clojure-pf.bpf.instruction
  "BPF instruction constants categorized by usage.")

(def ^:private ^:const kind-table
  "Instruction kinds"
  {:ld    0x00    ; load to acc
   :ldx   0x01    ; load to idx
   :st    0x02    ; store acc
