(global-set-key (kbd "C-c k") (lambda ()
				(interactive)
				(let ((command (format "%s"
						       (with-current-buffer (slime-output-buffer)
							 (car slime-repl-input-history)))))
				  (insert command))))