How to evaluating expressions in *inferior-lisp* buffer programatically?

[budu]

Hi, I've been using Emacs for a few year, but I'm just starting to
customize it more deeply. I wonder what is the recommended way of
evaluating expressions in the current *inferior-lisp* buffer
programatically? I know macros would certainly be OK for such a simple
task, yet I tried with elisp and come up with this:

    (save-current-buffer
      (set-buffer "*inferior-lisp*")
      (insert "(use '(foo [bar]))")
      (lisp-eval-last-sexp)
      (let ((s (point)))
        (backward-sexp)
        (delete-region s (point))))

Do you know of a more straightforward way of doing this? And do you
know of any good tutorial on basic elisp? Thanks

- budu