(defun comparaisons (TEST &aux compteur1 compteur2)
  (setq compteur1 1)
  (setq compteur2 1)
  (loop
    (cond
      ((equal (length TEST) compteur1) (return 'fin))
      ((equal (length TEST) compteur2) (incf compteur1) (setq compteur2 1)) )
    (french-char>= (car (subseq TEST (- compteur1 1) compteur1)) (car (subseq TEST (- compteur2 1) compteur2)))
    (incf compteur2) ) )

 (defun ncomparaisons (nfois TEST &aux inc)
   (setq inc 0)
   (loop
     (cond
       ((equal nfois inc) (return 'end))
       ((comparaisons TEST) (incf inc)) ) ) )