[slime-cvs] CVS update: slime/swank.lisp

[Douglas Crosher]

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

Modified Files:
	swank.lisp 
Log Message:
* (canonical-package-nickname): always return the package name as a symbol
  if found.  This restores the printing of package names as strings.


Date: Tue Oct 18 01:26:16 2005
Author: dcrosher

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.346 slime/swank.lisp:1.347
--- slime/swank.lisp:1.346	Mon Oct 17 20:16:01 2005
+++ slime/swank.lisp	Tue Oct 18 01:26:15 2005
@@ -1905,8 +1905,9 @@
 
 (defun canonical-package-nickname (package)
   "Return the canonical package nickname, if any, of PACKAGE."
-  (cdr (assoc (package-name package) *canonical-package-nicknames* 
-              :test #'string=)))
+  (let ((name (cdr (assoc (package-name package) *canonical-package-nicknames* 
+                          :test #'string=))))
+    (and name (string name))))
 
 (defun auto-abbreviated-package-name (package)
   "Return an abbreviated 'name' for PACKAGE.