source: trunk/abcl/test/lisp/cl-bench/wrapper.lisp @ 12618

Last change on this file since 12618 was 12618, checked in by Mark Evenson, 12 years ago

Incorporate an ASDF2 snapshot as the base ASDF.

File size: 1.4 KB
Line 
1(defpackage :abcl.test.cl-bench
2  (:use :cl :asdf)
3  (:nicknames "cl-bench")
4  (:export run))
5
6(in-package :abcl.test.cl-bench)
7
8(defparameter *cl-bench-master-source-location*
9  "<http://www.chez.com/emarsden/downloads/cl-bench.tar.gz>")
10
11(defparameter *cl-bench-directory*
12  (if (find :asdf2 *features*)
13      (asdf:system-relative-pathname 
14       :cl-bench "../cl-bench/")
15      (merge-pathnames #p"../cl-bench/"
16                       (component-pathname (find-system :abcl)))))
17 
18;;; cl-bench defines BENCH-GC and WITH-SPAWNED-THREAD in
19;;; '*cl-bench-directory*/sysdep/setup-ablisp.lisp'. 
20(defun cl-bench::bench-gc () (ext:gc))
21(defmacro cl-bench::with-spawned-thread (&body body)
22  `(progn ,@body))
23
24(defun run ()
25  (unless (probe-file *cl-bench-directory*)
26    (error "Failed to find the cl-bench test suite in '~A'.~%
27Please manually download and extract the cl-bench tool suite~%
28from ~A to run the tests."
29           *cl-bench-directory*
30           *cl-bench-master-source-location*))
31  (let ((*default-pathname-defaults* *cl-bench-directory*))
32    (if (find :unix *features*)
33        (run-shell-command 
34         (format nil "cd ~A; make clean optimize-files" *cl-bench-directory*))
35        (run-shell-command "cd ~A && make clean optimize-files" *cl-bench-directory*))
36    (load "generate.lisp")
37    (load "do-compilation-script.lisp")
38    (load "do-execute-script.lisp")))
39 
Note: See TracBrowser for help on using the repository browser.