returns t if length of 1st list is longer than length of the 2nd one
(defun longer (x y) "returns t if length of 1st list is longer than length of the 2nd one" (labels ((compare (x y) (and (consp x) (or (null y) (compare (cdr x) (cdr y)))))) (if (and (listp x) (listp y)) (compare x y) (> (length x) (length y)))))Source Context