git » jacl.git » commit 5eabef9

tak profile

author Alan Dipert
2020-06-19 17:03:03 UTC
committer Alan Dipert
2020-06-19 17:03:03 UTC
parent e7b1898f42350e87f78ae1430418a63260b26561

tak profile

jacl-tests.lisp +4 -1
jacl.js +1 -1

diff --git a/jacl-tests.lisp b/jacl-tests.lisp
index 5a65ff4..bc37106 100644
--- a/jacl-tests.lisp
+++ b/jacl-tests.lisp
@@ -196,8 +196,11 @@
 (defmacro time (memo &rest body)
   (let ((start (gensym))
         (ret (gensym)))
-    `(let ((,start (now))
+    `(let ((,start (progn
+                     (\. (%js "console") (|profile| ,memo))
+                     (now)))
            (,ret (progn ,@body)))
+       (\. (%js "console") (|profileEnd| ,memo))
        (log ,memo (- (now) ,start))
        ,ret)))
 
diff --git a/jacl.js b/jacl.js
index 856e7f3..292db18 100644
--- a/jacl.js
+++ b/jacl.js
@@ -792,7 +792,7 @@ const munge = s => {
 
 const mungeSym = (sym, prefix = '') => {
   prefix = prefix !== '' ? (prefix + '_') : '';
-  if (sym.packageName === undefined) {
+  if (sym.packageName === undefined || PACKAGE.val().name === sym.packageName) {
     return prefix + munge(sym.name);
   } else {
     return prefix + munge(sym.packageName) + '$' + munge(sym.name);