[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-pretty-package-name): Signalled an error on
	simple symbols; fix that!

	Reported by Geoff Wozniak.


--- /project/slime/cvsroot/slime/ChangeLog	2009/02/26 18:37:21	1.1689
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/26 18:41:23	1.1690
@@ -1,5 +1,12 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-pretty-package-name): Signalled an error on
+	simple symbols; fix that!
+
+	Reported by Geoff Wozniak.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-current-form-path): Use
 	`slime-current-parser-state'.
 
--- /project/slime/cvsroot/slime/slime.el	2009/02/26 18:37:21	1.1129
+++ /project/slime/cvsroot/slime/slime.el	2009/02/26 18:41:23	1.1130
@@ -411,9 +411,10 @@
                        (goto-char (point-min))
                        (slime-forward-cruft)
                        (if (eobp)       ; Skipped all reader conditionals?
-                           name         ; If so, do nothing.
+                           name         ; If so, return the garbage!
                            (slime-pretty-package-name (slime-sexp-at-point)))))
-                    (t (error "FALL THROUGH")))))
+                    (t ; Normal symbol, or some garbage.
+                     name))))
     (format "%s" name)))
 
 (defun slime-compute-modeline-connection ()