(bind-func cons:[List{!a}*,!a,List{!a}*]* (lambda (x y) (let ((obj (alloc))) (tset! obj 0 x) (tset! obj 1 y) obj)))