Obtaining a Lisp form from a file

Obtaining a Lisp form from a file

[Udyant Wig]

Is there a better way to write this?

(let ((foo-buffer (get-buffer-create "*foo*"))
      foo-form)
  (with-current-buffer foo-buffer
    (insert-file-contents foo-file))
  (setq foo-form (read foo-buffer))
  (kill-buffer foo-buffer)
  foo-form)

-- 
... while the ways of art are hard at the best, they will break you if
you go unsustained by belief in what you are trying to do.
                                -- Arthur Quiller-Couch

Re: Obtaining a Lisp form from a file

[John Mastro]

Udyant Wig <udyant.wig@gmail.com> wrote:
> Is there a better way to write this?
>
> (let ((foo-buffer (get-buffer-create "*foo*"))
>       foo-form)
>   (with-current-buffer foo-buffer
>     (insert-file-contents foo-file))
>   (setq foo-form (read foo-buffer))
>   (kill-buffer foo-buffer)
>   foo-form)

(with-temp-buffer
  (insert-file-contents file)
  (read (current-buffer)))

Hope that helps

        John

Re: Obtaining a Lisp form from a file

[Udyant Wig]

On 07/25/2017 11:01 PM, John Mastro wrote:
> (with-temp-buffer
>   (insert-file-contents file)
>   (read (current-buffer)))
> 
> Hope that helps
> 
>         John

That is much better.  Thanks a lot.

-- 
... while the ways of art are hard at the best, they will break you if
you go unsustained by belief in what you are trying to do.
                                -- Arthur Quiller-Couch

Re: Obtaining a Lisp form from a file

[Emanuel Berg]

Udyant Wig wrote:

> Is there a better way to write this?
>
> (let ((foo-buffer (get-buffer-create "*foo*"))
> foo-form) (with-current-buffer foo-buffer
> (insert-file-contents foo-file)) (setq foo-form
> (read foo-buffer)) (kill-buffer foo-buffer)
> foo-form)

If nothing else, stop using the foobar stuff.
Always give proper names. I understand it is
just for testing but 1) it tends to make
testing worse as it decreases the mental
discipline, and 2) often enough such supposedly
testing code makes it into the real thing (or
bugs occur at the point when "OK, now it works,
let's just rename it right").

-- 
underground experts united
http://user.it.uu.se/~embe8573