sort-ip.el

(defun sort-ip (ip-list)
  (sort ip-list #'>ip))

(defun >ip (a b)
  (if (and (null a) (null b))
      nil
    (let ((x (car a))
          (y (car b)))
      (cond ((> x y) t)
            ((< x y) nil)
            (t (>ip (cdr a) (cdr b)))
            ))))

(sort-ip '((192 168 1 20) (1 1 1 1) (255 0 0 0) (192 168 1 1) (192 16 2 20) (192 168 1 1) (111 168 1 20)))