Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

swank-ecl.lisp: Package profiling support

  • Loading branch information...
commit 07666629df86ac5da11d72bf04d22cc6ff97f46b 1 parent abffb7c
Geo Carncross authored
Showing with 9 additions and 0 deletions.
  1. +4 −0 ChangeLog
  2. +5 −0 swank-ecl.lisp
View
4 ChangeLog
@@ -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
5 swank-ecl.lisp
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.