# 1999/7/5 # check unique names and other names # fast version using # a_value (set of all values of an attribute) # product := question !read family.ku #Dr. Richard H. McCullough isa person #!psize person echo=off $PERSON := ? isa person $UNIQUE := uniquename has a_value=? $OTHER := othername has a_value=? #debug = ASSIGN $MISSING = $PERSON; $MISSING -= $UNIQUE $CONFLICT = $OTHER; $CONFLICT *= $PERSON every p in $MISSING do !print "# MISSING uniquename: $p"; done every p in $CONFLICT do !print "# CONFLICT othername: $p"; done echo=on !exit