Bug fixes.
Basic version of COMPUTE-DISCRIMINATING-FUNCTION.