Commit b42a4435 authored by Daniel Kochmański's avatar Daniel Kochmański

fix new packages and disabled-for

parent 38add412
...@@ -7,6 +7,7 @@ ...@@ -7,6 +7,7 @@
;;;; (c) copyright 1997,1998 by Gilbert Baumann ;;;; (c) copyright 1997,1998 by Gilbert Baumann
(defpackage :cl-bench.deflate (defpackage :cl-bench.deflate
(:use :common-lisp) (:use :common-lisp)
(:import-from cl-bench #:*misc-dir*)
(:export #:run-deflate-file)) (:export #:run-deflate-file))
(in-package :cl-bench.deflate) (in-package :cl-bench.deflate)
......
;;; misc.lisp ;;; misc.lisp
;;; ;;;
;;; Time-stamp: <2016-05-16 11:31:42 jack> ;;; Time-stamp: <2016-05-16 15:39:28 jack>
(defpackage :cl-bench.misc (defpackage :cl-bench.misc
(:use :common-lisp) (:use :common-lisp)
(:import-from cl-bench #:*misc-dir*)
(:export #:run-compiler (:export #:run-compiler
#:run-fasload #:run-fasload
#:run-permutations #:run-permutations
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;; Author: Eric Marsden <emarsden@laas.fr> ;; Author: Eric Marsden <emarsden@laas.fr>
;; Maintainer: Daniel Kochmański <daniel@turtleware.eu> ;; Maintainer: Daniel Kochmański <daniel@turtleware.eu>
;; ;;
;; Time-stamp: <2016-05-16 11:38:02 jack> ;; Time-stamp: <2016-05-16 15:39:14 jack>
;; ;;
;; ;;
;; The benchmarks consist of ;; The benchmarks consist of
...@@ -108,11 +108,12 @@ ...@@ -108,11 +108,12 @@
(*compile-print* nil)) (*compile-print* nil))
(bench-report-header) (bench-report-header)
(dolist (b (reverse *benchmarks*)) (dolist (b (reverse *benchmarks*))
(if (benchmark-disabled-for b) (if (some #'(lambda (bench) (member bench *features*))
(benchmark-disabled-for b))
(format t "~&=== skipping disabled ~a~%" b) (format t "~&=== skipping disabled ~a~%" b)
(progn (progn
(bench-gc) (bench-gc)
(with-slots (disabled-for setup function short runs) b (with-slots (setup function short runs) b
(when setup (funcall setup)) (when setup (funcall setup))
(format t "~&=== running ~a~%" b) (format t "~&=== running ~a~%" b)
(bench-report function short runs))))) (bench-report function short runs)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment