[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-sprof.el 
Log Message:
* slime-sprof.el(abbreviate-name): Rename to
slime-sprof-abbreviate-name (no package system, oh well...).


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/03/09 20:30:37	1.432
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/03/13 21:33:54	1.433
@@ -1,3 +1,8 @@
+2011-03-13  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-sprof.el(abbreviate-name): Rename to
+	slime-sprof-abbreviate-name (no package system, oh well...).
+
 2011-03-09  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-editing-commands.el (slime-beginning-of-defun): Call
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/12/10 15:05:06	1.14
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2011/03/13 21:33:54	1.15
@@ -99,7 +99,7 @@
     (slime-insert-propertized
      (slime-sprof-browser-name-properties)
      (format (format "%%-%ds " name-length)
-             (abbreviate-name name name-length)))
+             (slime-sprof-abbreviate-name name name-length)))
     (insert (format "%6.2f " self))
     (when cumul
       (insert (format "%6.2f " cumul))
@@ -110,7 +110,7 @@
        `(profile-index ,index expanded nil)))
     (insert "\n")))
 
-(defun abbreviate-name (name max-length)
+(defun slime-sprof-abbreviate-name (name max-length)
   (lexical-let ((length (min (length name) max-length)))
     (subseq name 0 length)))
 
@@ -166,7 +166,7 @@
            (slime-sprof-browser-name-properties)
            (let ((len (- 59 (* 2 nesting))))
              (format (format "%%-%ds " len)
-                     (abbreviate-name name len))))
+                     (slime-sprof-abbreviate-name name len))))
           (slime-sprof-browser-add-line-text-properties
            `(profile-sub-index ,index))
           (insert (format "%6.2f" cumul)))))))