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

fix new packages and disabled-for

parent 38add412
Pipeline #95 skipped
......@@ -7,6 +7,7 @@
;;;; (c) copyright 1997,1998 by Gilbert Baumann
(defpackage :cl-bench.deflate
(:use :common-lisp)
(:import-from cl-bench #:*misc-dir*)
(:export #:run-deflate-file))
(in-package :cl-bench.deflate)
......
;;; misc.lisp
;;;
;;; Time-stamp: <2016-05-16 11:31:42 jack>
;;; Time-stamp: <2016-05-16 15:39:28 jack>
(defpackage :cl-bench.misc
(:use :common-lisp)
(:import-from cl-bench #:*misc-dir*)
(:export #:run-compiler
#:run-fasload
#:run-permutations
......
......@@ -3,7 +3,7 @@
;; Author: Eric Marsden <emarsden@laas.fr>
;; 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
......@@ -108,11 +108,12 @@
(*compile-print* nil))
(bench-report-header)
(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)
(progn
(bench-gc)
(with-slots (disabled-for setup function short runs) b
(with-slots (setup function short runs) b
(when setup (funcall setup))
(format t "~&=== running ~a~%" b)
(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