From 7b6f07105031ed15c65eac8f122abb3396c93419 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 9 Sep 2022 08:31:39 -0500 Subject: Modify: Only call :program type tests when function is bound This allows for a separation of long test functions into a separate system that need not be shipped with the code being tested. That is, the compiled tests can be separated from the compiled code that they are testing. With other sorts of testiere test forms, this is already the case since they run during compilation. --- testiere.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/testiere.lisp b/testiere.lisp index 3963351..8e1d40f 100644 --- a/testiere.lisp +++ b/testiere.lisp @@ -16,7 +16,8 @@ (condition (c) (declare (ignore c)) nil)))) ((list* :program function-name args) - `(funcall ',function-name ,@args)) + `(when (fboundp ',function-name) + (funcall ',function-name ,@args))) ((list* :with-stubs redefs more-specs) (let* ((assoc-vars -- cgit v1.2.3