(deftype type-with-func (basic)
  ((add-func (function int int int))
   (sub-func (function int int int))
   )
  )

(define *type-with-func*
    (new 'static 'type-with-func
         :add-func (lambda ((x int) (y int))
                     (+ x y))
         :sub-func (lambda ((x int) (y int))
                     (- x y))
         )
  )


(defun this-is-a-function ()
  "blah blah")

(format #t "Add: ~d sub: ~d~%"
        ((-> *type-with-func* add-func) 10 20)
        ((-> *type-with-func* sub-func) 10 20))