[slime-cvs] CVS slime

[CVS User gcarncross]

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

Modified Files:
	swank-ecl.lisp ChangeLog 
Log Message:
swank-ecl.lisp: Package profiling support


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/06/25 04:04:45	1.42
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/07/01 03:38:54	1.43
@@ -496,6 +496,11 @@
 (defimplementation profiled-functions ()
   (profile:profile))
 
+(defimplementation profile-package (package callers methods)
+  (declare (ignore callers methods))
+  (eval `(profile:profile ,(package-name (find-package package)))))
+
+
 ;;;; Threads
 
 #+threads
--- /project/slime/cvsroot/slime/ChangeLog	2009/06/30 02:50:25	1.1800
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/01 03:38:54	1.1801
@@ -1,3 +1,7 @@
+2009-06-30  Geo Carncross  <geocar at gmail.com>
+
+	* swank-ecl.lisp: Package profiling support
+
 2009-06-30  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-openmcl.lisp (arglist): Return :not-available if the arglist