[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv10793/contrib

Modified Files:
	ChangeLog swank-mrepl.lisp 
Log Message:
* swank-mrepl.lisp (package-prompt): Use <= instead of < to give
package-name priority over nicknames.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/12/02 22:12:08	1.516
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/12/03 12:03:43	1.517
@@ -1,3 +1,8 @@
+2011-12-03  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-mrepl.lisp (package-prompt): Use <= instead of < to give
+	package-name priority over nicknames.
+
 2011-12-02  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-repl-send-input): Don't put `read-only'
--- /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2011/12/02 18:09:28	1.1
+++ /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2011/12/03 12:03:43	1.2
@@ -39,7 +39,7 @@
    (tag :initform nil)))
 
 (defun package-prompt (package)
-  (reduce (lambda (x y) (if (< (length x) (length y)) x y))
+  (reduce (lambda (x y) (if (<= (length x) (length y)) x y))
 	  (cons (package-name package) (package-nicknames package))))
 
 (defslimefun create-mrepl (remote)