Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/ChangeLog,v
retrieving revision 1.184
diff -u -r1.184 ChangeLog
--- ChangeLog	27 Feb 2009 21:39:32 -0000	1.184
+++ ChangeLog	1 Mar 2009 15:54:29 -0000
@@ -1,3 +1,10 @@
+2009-03-01  Stas Boukarev  <stassats@gmail.com>
+
+	* slime-asdf.el (slime-read-system-name): Provide default value
+	instead of inserting initial value into prompt input.
+
+	Couple of other small changes.
+
 2009-02-27  Tobias C. Rittweiler  <tcr@freebits.de>
 
 	* swank-arglists.lisp (read-conversatively-for-autodoc): Make it
Index: slime-asdf.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-asdf.el,v
retrieving revision 1.7
diff -u -r1.7 slime-asdf.el
--- slime-asdf.el	27 Dec 2008 13:21:43 -0000	1.7
+++ slime-asdf.el	1 Mar 2009 15:54:30 -0000
@@ -10,8 +10,8 @@
 ;;
 ;; Add something like this to your .emacs: 
 ;;
-;;   (add-to-list 'load-path ".../slime/contrib")
-;;   (add-hook 'slime-load-hook (lambda () (require 'slime-asdf)))
+;;   (add-to-list 'load-path "<directory-of-this-file>")
+;;   (slime-setup '(slime-asdf ... possibly other packages ...))
 ;;
 
 ;; NOTE: `system-name' is a predefined variable in Emacs.  Try to
@@ -31,26 +31,28 @@
 (defvar slime-system-history nil
   "History list for ASDF system names.")
 
-(defun slime-read-system-name (&optional prompt initial-value)
+(defun slime-read-system-name (&optional prompt default-value)
   "Read a system name from the minibuffer, prompting with PROMPT."
-  (setq prompt (or prompt "System: "))
   (let* ((completion-ignore-case nil)
+         (prompt (or prompt "System"))
          (system-names (slime-eval `(swank:list-asdf-systems)))
-         (alist (slime-bogus-completion-alist system-names)))
-    (completing-read prompt alist nil nil
-                     (or initial-value (slime-find-asd system-names) "")
-                     'slime-system-history)))
+         (default-value (or default-value (slime-find-asd system-names)))
+         (prompt (concat prompt (if default-value
+                                    (format " (default %s): " default-value)
+                                    ": "))))
+    (completing-read prompt (slime-bogus-completion-alist system-names)
+                     nil nil nil
+                     'slime-system-history default-value)))
 
 (defun slime-find-asd (system-names)
   "Tries to find an ASDF system definition in the default
 directory or in the directory belonging to the current buffer and
 returns it if it's in `system-names'."
-  (let* ((asdf-systems-in-directory
-           (mapcar #'file-name-sans-extension
-                   (directory-files
-                    (file-name-directory (or default-directory
-                                             (buffer-file-name)))
-                    nil "\.asd$"))))
+  (let ((asdf-systems-in-directory
+         (directory-files
+          (file-name-directory (or default-directory
+                                   (buffer-file-name)))
+          nil "\.asd$")))
     (loop for system in asdf-systems-in-directory
           for candidate = (file-name-sans-extension system)
           when (find candidate system-names :test #'string-equal)