# 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