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

I have a problem with END-OF-FILE, i don't how i can use it.