;-*-Scheme-*-


(test-setup 16 #f)

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