ambrevar/emacs: Fix %emacs-eval when argument contains "'".

.local/share/common-lisp/source/ambrevar/emacs.lisp

@@ -100,9 +100,10 @@ Example:
   "See `emacs-eval'."
   (let ((*package* (find-package :ambrevar/emacs)))
     (funcall caller "emacsclient" "-e"
-             (let ((*print-case* :downcase))
-               (format nil "'~s'" `(progn
-                                     ,@s-exp))))))
+             (list
+              (let ((*print-case* :downcase))
+                (format nil "~s" `(progn
+                                      ,@s-exp)))))))
 
 (export-always 'emacs-eval)
 (defun emacs-eval (&rest s-exp)