(defun lire-code-en-liste (&aux liste)
  (setq alpha_code (open "alpha_code.txt" :direction :input :if-does-not-exist :error))
  (loop
    (cond
      ((not (setq ligne (read-line alpha_code nil nil))) (return)) )
    (cons '(read-from-string ligne nil nil) liste) )
  (close alpha_code)
  (print liste) )