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
|
Rev | Line | |
---|
[12335] | 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 | |
---|
[12337] | 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 | |
---|
[12335] | 21 | (defun run () |
---|
| 22 | (unless (probe-file *cl-bench-directory*) |
---|
[12337] | 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*)) |
---|
[12335] | 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.