4 |
;;;; Contains: Aux. functions for CL-TEST |
;;;; Contains: Aux. functions for CL-TEST |
5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
|
(use-package :rt) |
|
7 |
|
|
8 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
9 |
|
|
286 |
(muffle-warning)))) |
(muffle-warning)))) |
287 |
(proclaim '(optimize (safety 3))) |
(proclaim '(optimize (safety 3))) |
288 |
(classify-error* |
(classify-error* |
289 |
(if rt::*compile-tests* |
(if regression-test::*compile-tests* |
290 |
(funcall (compile nil `(lambda () |
(funcall (compile nil `(lambda () |
291 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
292 |
,form))) |
,form))) |