[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-sprof.el 
Log Message:
* slime.el (slime-with-popup-buffer): Correct the docstring.

* contrib/slime-sprof.el (slime-sprof-browser): Rename to
`slime-sprof-report', leave `slime-sprof-browser' as an alias.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/09 19:55:57	1.426
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/10 15:05:06	1.427
@@ -1,3 +1,8 @@
+2010-12-10  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-sprof.el (slime-sprof-browser): Rename to
+	`slime-sprof-report', leave `slime-sprof-browser' as an alias.
+
 2010-12-09  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/07/27 05:10:03	1.13
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/12/10 15:05:06	1.14
@@ -12,7 +12,7 @@
            `("--"
              [ "Start sb-sprof"  slime-sprof-start ,C ]
              [ "Stop sb-sprof"   slime-sprof-stop ,C ]
-             [ "Report sb-sprof" slime-sprof-browser ,C ])))))
+             [ "Report sb-sprof" slime-sprof-report ,C ])))))
 
 (defvar slime-sprof-exclude-swank nil
   "*Display swank functions in the report.")
@@ -74,7 +74,9 @@
                       :exclude-swank ,exclude-swank)
                     'slime-sprof-format))
 
-(defun slime-sprof-browser ()
+(defalias 'slime-sprof-browser 'slime-sprof-report)
+
+(defun slime-sprof-report ()
   (interactive)
   (slime-with-popup-buffer ((slime-buffer-name :sprof)
                             :connection t