[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-pretty-package-name): Simplify.

--- /project/slime/cvsroot/slime/ChangeLog	2009/03/03 10:03:59	1.1705
+++ /project/slime/cvsroot/slime/ChangeLog	2009/03/03 10:04:09	1.1706
@@ -1,5 +1,9 @@
 2009-03-03  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-pretty-package-name): Simplify.
+
+2009-03-03  Helmut Eller  <heller at common-lisp.net>
+
 	Use a separate key, C-c C-d #, to lookup reader-macros.
 
 	* hyperspec.el (common-lisp-hyperspec-lookup-reader-macro): New
--- /project/slime/cvsroot/slime/slime.el	2009/03/03 10:03:59	1.1139
+++ /project/slime/cvsroot/slime/slime.el	2009/03/03 10:04:09	1.1140
@@ -399,23 +399,11 @@
 
 (defun slime-pretty-package-name (name)
   "Return a pretty version of a package name NAME."
-  (let ((name (cond ((string-match "^#?:\\(.*\\)$" name)    
-                     (match-string 1 name))
-                    ((string-match "^\"\\(.*\\)\"$" name) 
-                     (match-string 1 name))
-                    ((string-match slime-reader-conditionals-regexp name)
-                     ;; This is kind of a sledge hammer, but as it's a rare
-                     ;; case we don't care.
-                     (with-temp-buffer
-                       (insert name)
-                       (goto-char (point-min))
-                       (slime-forward-cruft)
-                       (if (eobp)       ; Skipped all reader conditionals?
-                           name         ; If so, return the garbage!
-                           (slime-pretty-package-name (slime-sexp-at-point)))))
-                    (t ; Normal symbol, or some garbage.
-                     name))))
-    (format "%s" name)))
+  (cond ((string-match "^#?:\\(.*\\)$" name)    
+         (match-string 1 name))
+        ((string-match "^\"\\(.*\\)\"$" name) 
+         (match-string 1 name))
+        (t name)))
 
 (defun slime-compute-modeline-connection ()
   (let ((conn (slime-current-connection)))