setup-ecl.lisp 531 Bytes
Newer Older
Eric Marsden's avatar
Eric Marsden committed
1
2
3
4
5
6
7
8
9
;;; setup file for cl-bench running in ECL
;;
;; tested with ECL 0.9
;;
;; see <URL:http://ecls.sf.net/>

(load "defpackage")
(in-package :cl-bench)

10
(ext:set-limit 'ext:c-stack (* 8 1024 1024))
Eric Marsden's avatar
Eric Marsden committed
11
12
13
14

(defun bench-gc ()
  (si:gc t))

15
#+threads
Eric Marsden's avatar
Eric Marsden committed
16
(defmacro with-spawned-thread (&body body)
17
  `(mp:process-run-function nil #'(lambda () ,@body)))
Eric Marsden's avatar
Eric Marsden committed
18

19
20
21
#-threads
(defmacro with-spawned-thread (&body body)
  `(progn ,@body))
Eric Marsden's avatar
Eric Marsden committed
22
23
24
25
26
27

;; to autoload the compiler
(compile 'bench-gc)
(setq c::*cc-flags* (concatenate 'string "-I. " c::*cc-flags*))

;; EOF