Permalink
Browse files

swank-ecl.lisp: Package profiling support

  • Loading branch information...
1 parent abffb7c commit 07666629df86ac5da11d72bf04d22cc6ff97f46b Geo Carncross committed Jul 1, 2009
Showing with 9 additions and 0 deletions.
  1. +4 −0 ChangeLog
  2. +5 −0 swank-ecl.lisp
View
@@ -1,3 +1,7 @@
+2009-06-30 Geo Carncross <geocar@gmail.com>
+
+ * swank-ecl.lisp: Package profiling support
+
2009-06-30 Stas Boukarev <stassats@gmail.com>
* swank-openmcl.lisp (arglist): Return :not-available if the arglist
View
@@ -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

0 comments on commit 0766662

Please sign in to comment.