All pastes #403488 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-03-20 12:40 UTC
rendered paste body
(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.