read lisp objects from buffer

[yuwen]

Dear all,

I have a file that contains lisp objects printed by function print:

((16746 13842 393000) "README.txt")

((16746 16787 969000) "/home/yuwen/.emacs")


I tried to read them back into lisp objects:

    (let ((buffer (find-file-noselect "~/src/el/tmp.txt")))
      (set-buffer buffer)
      (goto-char (point-min))
      (while (setq obj (read buffer))
         ;;; do something ))

but there's an error message :
  setq: End of file during parsing

So, what's the right way to read lisp objects from a file/buffer?

Best regards,
Dai Yuwen