Create a gist now

Instantly share code, notes, and snippets.

(defun slime-redirect-inferior-output (&optional noerror)
"Redirect output of the inferior-process to the REPL buffer."
(interactive)
(let ((proc (slime-inferior-process)))
(cond (proc
(let ((filter (slime-rcurry #'slime-inferior-output-filter
(slime-current-connection))))
(set-process-filter proc filter)))
(noerror)
(t ;; (error "No inferior lisp process")
(message "No inferior lisp process - proceeding, anyway: be happy, clojurer!")))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment