(bind-func EQ (lambda (a:double) (let ((obj:EQ{double}* (alloc))) (tfill! obj eq_double_equal) obj)))