(defun lire-en-liste (x &aux liste)
   (setq alphabet_code (open "alphabet_code" :direction :input :if-does-not-exist :error))
   (setq alphabet_char (open "alphabet_char" :direction :input :if-does-not-exist :error))
   (loop
    (cond
     ((equal x 'code) (setq ligne (read-line alphabet_code nil nil)))
     ((equal x 'char) (setq ligne (read-line alphabet_char nil nil))))
    (cond
     ((equal ligne nil) (close alphabet_code) (close alphabet_char) (return liste))
     ((setq liste (append liste (list (read-from-string ligne))))) ) ) )


(setq ALPHABET (lire-en-liste 'char))

(defun member-listchar (variable liste)
  (cond
    ((not liste) nil)
    ((equal variable (car liste)) liste)
    ((member-listchar variable (cdr liste))) ) )


 (defun french-char>= (char1 char2)
   (cond
     ((and (not (member-listchar char1 ALPHABET)) (not (member-listchar char2 ALPHABET))) (char>= char1 char2))
     ((not (member-listchar char1 ALPHABET)) nil)
     ((not (member-listchar char2 ALPHABET)) t)
     ((member-listchar char1 (member-listchar char2 ALPHABET)) t)
     ((not (member-listchar char1 (member-listchar char2 ALPHABET))) nil) ) )

(setq TEST ALPHABET)
(load "benchmark.lisp")