39 |
|
|
40 |
(defvar *maximum-random-int-bits* 45) |
(defvar *maximum-random-int-bits* 45) |
41 |
|
|
42 |
|
(defvar *compile-unoptimized-form* #-clisp t #+clisp nil) |
43 |
|
|
44 |
(declaim (special *vars*)) |
(declaim (special *vars*)) |
45 |
|
|
46 |
(defstruct var-desc |
(defstruct var-desc |
473 |
#+:ecl (si:gc t) |
#+:ecl (si:gc t) |
474 |
)))) |
)))) |
475 |
(let ((optimized-compiled-fn (%compile optimized-fn-src)) |
(let ((optimized-compiled-fn (%compile optimized-fn-src)) |
476 |
(unoptimized-compiled-fn (%compile unoptimized-fn-src))) |
(unoptimized-compiled-fn |
477 |
|
(if *compile-unoptimized-form* |
478 |
|
(%compile unoptimized-fn-src) |
479 |
|
(eval `(function ,unoptimized-fn-src))))) |
480 |
(declare (type function optimized-compiled-fn unoptimized-compiled-fn)) |
(declare (type function optimized-compiled-fn unoptimized-compiled-fn)) |
481 |
(dolist (vals vals-list) |
(dolist (vals vals-list) |
482 |
(setq *int-form-vals* vals) |
(setq *int-form-vals* vals) |