Last change
on this file since 12337 was
12337,
checked in by Mark Evenson, 12 years ago
|
cl-bench now runs correctly from UNIX systems.
Increment the abcl.asd version to note the inclusion of cl-bench.
The absence of the cl-build source is not as well reported, but we now
load the cl-bench/defpackage code to define the cl-bench packages as
part of the ASDF step.
|
File size:
1.3 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 | (merge-pathnames #p"../cl-bench/" |
---|
13 | (component-pathname (find-system :abcl)))) |
---|
14 | |
---|
15 | ;;; cl-bench defines BENCH-GC and WITH-SPAWNED-THREAD in |
---|
16 | ;;; '*cl-bench-directory*/sysdep/setup-ablisp.lisp'. |
---|
17 | (defun cl-bench::bench-gc () (ext:gc)) |
---|
18 | (defmacro cl-bench::with-spawned-thread (&body body) |
---|
19 | `(progn ,@body)) |
---|
20 | |
---|
21 | (defun run () |
---|
22 | (unless (probe-file *cl-bench-directory*) |
---|
23 | (error "Failed to find the cl-bench test suite in '~A'.~% |
---|
24 | Please manually download and extract the cl-bench tool suite~% |
---|
25 | from ~A to run the tests." |
---|
26 | *cl-bench-directory* |
---|
27 | *cl-bench-master-source-location*)) |
---|
28 | (let ((*default-pathname-defaults* *cl-bench-directory*)) |
---|
29 | (if (find :unix *features*) |
---|
30 | (run-shell-command |
---|
31 | (format nil "cd ~A; make clean optimize-files" *cl-bench-directory*)) |
---|
32 | (run-shell-command "cd ~A && make clean optimize-files" *cl-bench-directory*)) |
---|
33 | (load "generate.lisp") |
---|
34 | (load "do-compilation-script.lisp") |
---|
35 | (load "do-execute-script.lisp"))) |
---|
36 | |
---|
Note: See
TracBrowser
for help on using the repository browser.