I took out all the "double searches" that were being performed. Also,
I added trace functionality to the algorithm. To report trace
information, turn the trace on by adding this line after loading the
algorithm:
^(setq verb_trace t)
To get the code, use this link:
fast_verb.cl