slime-eval-save-output.elisp

(defun slime-eval-save-output (string)
  "Evaluate STRING in Lisp and save the result in the kill ring."
  (slime-eval-async `(swank:eval-and-grab-output ,string)
    (lambda (result)
      (cl-destructuring-bind (output value) result
          (kill-new output)
          (message "Evaluation finished; pushed output to kill ring.")))))


(defun lisp-eval-defun-in-kill-ring ()
  (interactive)
  (slime-eval-save-output (slime-defun-at-point)))

(global-set-key (kbd "C-M-z") 'lisp-eval-defun-in-kill-ring)