From 7a016e70ee47507d22a59a3c7da1b1d3740d215e Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Wed, 20 Dec 2006 16:10:18 +0100 Subject: [PATCH] Added :compile-at parameter for test (:run-time :definition-time) --- src/test.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/test.lisp b/src/test.lisp index 99bc8bb..b6e85db 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -46,8 +46,9 @@ If DEPENDS-ON is a symbol it is interpreted as `(AND depending on another. SUITE defaults to the current value of *SUITE*." - (destructuring-bind (name &key depends-on (suite nil suite-supplied-p)) + (destructuring-bind (name &key depends-on (suite nil suite-supplied-p) (compile-at :run-time)) (ensure-list name) + (declare (type (member :run-time :definition-time) compile-at)) (let (description) (setf description (if (stringp (car body)) (pop body) @@ -58,8 +59,10 @@ SUITE defaults to the current value of *SUITE*." :runtime-package ,*package* :test-lambda (lambda () - (funcall (let ((*package* ,*package*)) - (compile nil '(lambda () ,@body))))) + ,@(ecase compile-at + (:run-time `((funcall (let ((*package* ,*package*)) + (compile nil '(lambda () ,@body)))))) + (:definition-time body))) :description ,description :depends-on ',depends-on)) ,(if suite-supplied-p -- 1.7.10.4