le-lisp.el (lispy--eval-lisp): Don't use with-current-buffer for SLIME

The old code was messing up in case of `coalton-toplevel'.

Author: abo-abo

le-lisp.el

@@ -47,10 +47,10 @@
 (defun lispy--eval-lisp (str)
   "Eval STR as Common Lisp code."
   (let* ((deactivate-mark nil)
-         (result (with-current-buffer (process-buffer (lispy--cl-process))
-                   (if (lispy--use-sly-p)
-                       (sly-eval `(slynk:eval-and-grab-output ,str))
-                     (slime-eval `(swank:eval-and-grab-output ,str))))))
+         (result (if (lispy--use-sly-p)
+                     (with-current-buffer (process-buffer (lispy--cl-process))
+                       (sly-eval `(slynk:eval-and-grab-output ,str)))
+                   (slime-eval `(swank:eval-and-grab-output ,str)))))
     (if (equal (car result) "")
         (cadr result)
       (concat (propertize (car result)