Someone

(defun load-info-list (file)
  (with-open-file (stream file)
    (loop for l = (read stream)
	 until (eq l eof)
	 do (append stream))))

i have an error with the end-of-file, i want to read all a file and return a list with with all it countains...