# 1999/7/28 # check unique names and other names !clock "read family history" !read family.ku #Dr. Richard H. McCullough isa person #!psize person echo=off !clock "check MISSING unique names" every unique isa person do if $unique has uniquename else !print "# MISSING uniquename: $unique"; fi; done !clock "check CONFLICT with other names" every unique isa person do if ? has othername +=$unique then !print "# CONFLICT with othername: $unique"; fi; done !clock "done" echo=on !exit