Executing Emacs Lisp through AppleScript on Mac OS X?

[Presto W]

Has anyone investigated what would be required to add support for
executing Lisp code inside a running Emacs application using
AppleScript?

I imagine this could work much the same way as Safari can take
JavaScript to execute:

tell application "Emacs"
  do Lisp "(switch-to-buffer \"*scratch*\")"
end tell