oops;
preparing to merge (equal? ...) into "common.scheme" so it can be called by (eqlist? ...);