RosettaCodeData/Task/Order-two-numerical-lists/Common-Lisp/order-two-numerical-lists-2.lisp

(defun list< (a b)
  (let ((x (find-if-not #'zerop (mapcar #'- a b))))
    (if x (minusp x) (< (length a) (length b)))))