author | Alan Dipert
<alan@dipert.org> 2020-06-19 17:03:03 UTC |
committer | Alan Dipert
<alan@dipert.org> 2020-06-19 17:03:03 UTC |
parent | e7b1898f42350e87f78ae1430418a63260b26561 |
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);