lime-redirect-inferior-output in slime-repl.el

(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!")))))