;; check for pointer address equality (bind-func xtm_equal (lambda (list1:list_t* list2:list_t*) (= (cast list1 i8*) (cast list2 i8*))))