Replaced COMPUTE-DISCRIMINATING-FUNCTION by the version using the compiler.
Shadowed COMPILE and defined it to call CL:COMPILE in phase 2.