Index: contrib/ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/ChangeLog,v
retrieving revision 1.573
diff -u -r1.573 ChangeLog
--- contrib/ChangeLog	13 Apr 2013 17:48:57 -0000	1.573
+++ contrib/ChangeLog	9 May 2013 16:22:05 -0000
@@ -1,3 +1,9 @@
+2013-05-09  Marco Baringer  <mb@bese.it>
+
+	* slime-repl.el (defadvice slime-sexp-at-point): Ignore the prompt
+	text when calling slime-sexp-at-point (fixes issue with default
+	values of slime-inspect at an empty prompt).
+
 2013-04-13  Stas Boukarev  <stassats@gmail.com>
 
 	* swank-asdf.lisp (asdf-component-output-files): Use the correct
Index: contrib/slime-repl.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-repl.el,v
retrieving revision 1.66
diff -u -r1.66 slime-repl.el
--- contrib/slime-repl.el	10 Feb 2013 19:29:30 -0000	1.66
+++ contrib/slime-repl.el	9 May 2013 16:22:05 -0000
@@ -1743,6 +1743,14 @@
   (remove-hook 'slime-cycle-connections-hook
                'slime-change-repl-to-default-connection))
 
+(defadvice slime-sexp-at-point (around slime-sexp-at-point/repl-advice first () activate)
+  (if (and (eql major-mode 'slime-repl-mode)
+           (<= slime-repl-input-start-mark (point)))
+      (save-restriction
+        (narrow-to-region slime-repl-input-start-mark (point-max))
+        ad-do-it)
+    ad-do-it))
+
 (let ((byte-compile-warnings '()))
   (mapc #'byte-compile
 	'(slime-repl-event-hook-function