[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv20231

Modified Files:
	ChangeLog slime.el 
Log Message:
fix slime-qualify-cl-symbol-name for packages named by strings in IN-PACKAGE


--- /project/slime/cvsroot/slime/ChangeLog	2008/12/05 20:01:54	1.1592
+++ /project/slime/cvsroot/slime/ChangeLog	2008/12/07 12:25:38	1.1593
@@ -1,3 +1,9 @@
+2008-12-07  Nikodemus Siivola <nikodemus at random-state.net>
+
+	* slime.el (slime-qualify-cl-symbol-name): Clean up the package
+	name using `slime-pretty-package-name', so that packages named with
+	strings are not left with the extra doublequotes.
+	
 2008-12-05  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-macroexpansion-minor-mode-map): Bind keybindings
--- /project/slime/cvsroot/slime/slime.el	2008/12/05 20:01:54	1.1070
+++ /project/slime/cvsroot/slime/slime.el	2008/12/07 12:25:38	1.1071
@@ -9732,10 +9732,10 @@
         s
       (format "%s::%s"
               (let* ((package (or (slime-current-package) (slime-lisp-package))))
-                ;; package is a string like ":cl-user" or "CL-USER".
-                (if (and package (string-match "^:" package))
-                    (substring package 1)
-                  package))
+                ;; package is a string like ":cl-user" or "CL-USER", or "\"CL-USER\"".
+                (if package
+                    (slime-pretty-package-name package)
+                  "CL-USER"))
               (slime-cl-symbol-name s)))))
 
 ;;;;; Moving, CL idiosyncracies aware (reader conditionals &c.)