revision 356: | aac665e2f5bf |
---|---|
parent 258: | 11ef863e0ac0 |
child 419: | 0f0e5f9b5c55 |
1.1--- a/lisp/lib/rt/bench.lisp Tue May 14 18:33:03 2024 -0400 1.2+++ b/lisp/lib/rt/bench.lisp Tue May 21 17:13:34 2024 -0400 1.3@@ -18,7 +18,7 @@ 1.4 (flet ((%do () 1.5 (if-let ((opt *compile-tests*)) 1.6 (progn 1.7- (when (eq opt t) (setq opt *default-test-opts*)) 1.8+ (when (eq opt t) (setq opt *test-opts*)) 1.9 ;; TODO 2023-09-21: handle failures here 1.10 (let ((fn (compile-test self :declare opt))) 1.11 (bench *bench-count* (funcall fn)))