(defun asf-slime-copy-defun-to-repl ()
  ;; ripped off from slime.el
  (interactive)
  (let ((defun (slime-defun-at-point)))
    (unless (eql major-mode 'slime-repl-mode)
      (slime-switch-to-output-buffer))
    (flet ((do-insertion ()
             (when (not (string-match "\\s-"
                                      (buffer-substring (1- (point)) (point))))
               (insert " "))
             (insert defun)
             (when (and (not (eolp)) (not (looking-at "\\s-")))
               (insert " "))))
      (if (>= (point) slime-repl-prompt-start-mark)
          (do-insertion)
          (save-excursion
            (goto-char (point-max))
            (do-insertion))))))