Function: LONGER

Documentation

returns t if length of 1st list is longer than length of the 2nd one

Source

(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)))))