[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-sprof.el swank-sprof.lisp 
Log Message:
* slime-sprof.el (slime-sprof-start-alloc)
(slime-sprof-start-time): New functions to start profiling in
:alloc and :time mode. The default slime-sprof-start is :cpu.
* swank-sprof.lisp (swank-sprof-start): Accept :mode keyword.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/24 12:15:13	1.399
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/24 20:40:55	1.400
@@ -1,5 +1,12 @@
 2010-07-24  Stas Boukarev  <stassats at gmail.com>
 
+	* slime-sprof.el (slime-sprof-start-alloc)
+	(slime-sprof-start-time): New functions to start profiling in
+	:alloc and :time mode. The default slime-sprof-start is :cpu.
+	* swank-sprof.lisp (swank-sprof-start): Accept :mode keyword.
+
+2010-07-24  Stas Boukarev  <stassats at gmail.com>
+
 	* slime-package-fu.el (slime-export-structure): New function,
 	export all constructors, accessors, etc.
 	* swank-package-fu.lisp (export-structure): Lisp side of the above
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/05/28 19:13:17	1.11
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/07/24 20:40:55	1.12
@@ -37,9 +37,17 @@
 
 ;; Start / stop profiling
 
-(defun slime-sprof-start ()
+(defun slime-sprof-start (&optional (mode :cpu))
   (interactive)
-  (slime-eval `(swank:swank-sprof-start)))
+  (slime-eval `(swank:swank-sprof-start :mode ,mode)))
+
+(defun slime-sprof-start-alloc ()
+  (interactive)
+  (slime-sprof-start :alloc))
+
+(defun slime-sprof-start-time ()
+  (interactive)
+  (slime-sprof-start :time))
 
 (defun slime-sprof-stop ()
   (interactive)
--- /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2009/10/09 14:57:45	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2010/07/24 20:40:55	1.4
@@ -130,12 +130,12 @@
               (find-source-location function))))
         `(:error "No source location available"))))
 
-(defslimefun swank-sprof-start ()
-  (sb-sprof:start-profiling))
+(defslimefun swank-sprof-start (&key (mode :cpu))
+  (sb-sprof:start-profiling :mode mode))
 
 (defslimefun swank-sprof-stop ()
   (sb-sprof:stop-profiling))
 
 )
 
-(provide :swank-sprof)
\ No newline at end of file
+(provide :swank-sprof)