changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/lib/rt/bench.lisp

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)))