[slime-cvs] CVS slime

[CVS User gcarncross]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
Profiling support by Marko Kocić


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/06/21 07:22:56	1.41
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/06/25 04:04:45	1.42
@@ -471,6 +471,31 @@
                                  (read-snippet s))))))))
    `(:error (format nil "Source definition of ~S not found" obj))))
 
+;;;; Profiling
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require 'profile))
+
+(defimplementation profile (fname)
+  (when fname (eval `(profile:profile ,fname))))
+
+(defimplementation unprofile (fname)
+  (when fname (eval `(profile:unprofile ,fname))))
+
+(defimplementation unprofile-all ()
+  (profile:unprofile-all)
+  "All functions unprofiled.")
+
+(defimplementation profile-report ()
+  (profile:report))
+
+(defimplementation profile-reset ()
+  (profile:reset)
+  "Reset profiling counters.")
+
+(defimplementation profiled-functions ()
+  (profile:profile))
+
 ;;;; Threads
 
 #+threads