(let* ((base (the int integer))
       (field (the int (-> integer method-table)))
       (offset (- field base)))
  ;;(format #t "offset of methods table is ~d~%" offset)
  offset
  )