Function Greaterp

Part of:

package cl-perec
( greaterp < obj1 > < obj2 > )