(bind-func match_aiString:[i1,aiString*,aiString*]*
(lambda (s1 s2)
;; (println 'matchstrings: s1 s2)
(if (<> (tref s1 0)
(tref s2 0))
#f
(if (= (strcmp (cast (tref-ptr s1 1) i8*)
(cast (tref-ptr s2 1) i8*))
0)
#t
#f))))