Changeset 12337 for trunk/abcl/test/lisp/cl-bench/wrapper.lisp

Timestamp:

01/05/10 22:27:13 (12 years ago)

Author:

Mark Evenson

Message:

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:

• trunk/abcl/test/lisp/cl-bench/wrapper.lisp (modified) (1 diff)

trunk/abcl/test/lisp/cl-bench/wrapper.lisp

@@ -13 +13 @@
                    (component-pathname (find-system :abcl))))
 
+;;; cl-bench defines BENCH-GC and WITH-SPAWNED-THREAD in
+;;; '*cl-bench-directory*/sysdep/setup-ablisp.lisp'.  
+(defun cl-bench::bench-gc () (ext:gc))
+(defmacro cl-bench::with-spawned-thread (&body body)
+  `(progn ,@body))
+
 (defun run ()
   (unless (probe-file *cl-bench-directory*)
-    (format t "Failed to find the cl-bench test suite in '~A'. ~
-Please manually download and extract the cl-bench tool suite from ~A to run the tests."
-            *cl-bench-directory*
-            *cl-bench-master-source-location*))
+    (error "Failed to find the cl-bench test suite in '~A'.~%
+Please manually download and extract the cl-bench tool suite~%
+from ~A to run the tests."
+           *cl-bench-directory*
+           *cl-bench-master-source-location*))
   (let ((*default-pathname-defaults* *cl-bench-directory*))
     (if (find :unix *features*)