(defun lire-en-chaine (&aux chaine)
   (setq alphabet_char (open "alphabet_char" :direction :input :if-does-not-exist :error))
   (setq chaine "")
   (loop
     (setq ligne (read-line alphabet_char nil nil))
     (cond
       ((equal ligne nil) (close alphabet_char) (return chaine)) )
       (setq chaine (string-concat chaine (string (read-from-string ligne))))))




 (defun lire-en-vecteur (x)
  (setq x (lire-en-liste))
  ((make-array (length x) :element-type 'integer :initial-contents liste)) )