le-lisp.el (lispy--eval-lisp): In case both out and val are empty, print ok

Author: abo-abo

le-lisp.el

@@ -51,12 +51,11 @@
                      (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)
-                          'face 'font-lock-string-face)
-              "\n\n"
-              (cadr result)))))
+    (pcase result
+      (`("" "") "(ok)")
+      (`("" ,val) val)
+      (`(,out ,val)
+       (concat (propertize (string-trim-left out) 'face 'font-lock-string-face) "\n\n" val)))))
 
 (defun lispy--cl-process ()
   (unless (lispy--use-sly-p)