defun equal-lelt l1 l2