Function Generate-Comparator

Part of:

package cl-perec
( generate-comparator < sort-spec-1 > < sort-spec-2 > )