Commit 39829f8a authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

sysdep: refine setup-ecl.lisp

parent 8c3e6fec
......@@ -7,13 +7,18 @@
(load "defpackage")
(in-package :cl-bench)
(ext:set-limit 'ext:c-stack (* 8 1024 1024))
(defun bench-gc ()
(si:gc t))
#+threads
(defmacro with-spawned-thread (&body body)
`(progn ,@body))
`(mp:process-run-function nil #'(lambda () ,@body)))
#-threads
(defmacro with-spawned-thread (&body body)
`(progn ,@body))
;; to autoload the compiler
(compile 'bench-gc)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment