Function Compute-Discriminator

Part of:

package closer-mop
( compute-discriminator < gf > < compute-native-discriminator > )