31 lines
836 B
Common Lisp
31 lines
836 B
Common Lisp
;;; setup file for running cl-bench in ArmedBear Lisp
|
|
|
|
(load "defpackage")
|
|
(in-package :cl-bench)
|
|
|
|
|
|
(defun bench-gc () (ext:gc))
|
|
|
|
(defmacro with-spawned-thread (&body body)
|
|
`(progn ,@body))
|
|
|
|
|
|
;; as of 2003-12-05, this is not quite ready yet. In support.lisp we compile
|
|
;; various ABL internal packages and the cl-bench packages using
|
|
;; JVM::JVM-COMPILE-PACKAGE
|
|
#+nil (setq jvm:*auto-compile* t)
|
|
|
|
|
|
(eval-when (:load-toplevel :execute)
|
|
(format *debug-io* "Loading JVM compiler ...~%")
|
|
(load "/opt/src/cvs-armedbear/j/src/org/armedbear/lisp/jvm.lisp")
|
|
(dolist (p '("CL" "SYS" "EXT" "PRECOMPILER"))
|
|
(jvm::jvm-compile-package p))
|
|
(format *debug-io* "Compiling all cl-bench packages ...~%")
|
|
(dolist (p (list-all-packages))
|
|
(when (eql 0 (search "CL-BENCH" (package-name p)))
|
|
(jvm::jvm-compile-package p))))
|
|
|
|
|
|
;; EOF
|