From 6be426978c86bc7a061cc66c8fda738be2e59a16 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 10 Sep 2023 07:24:34 -0700 Subject: Added :do --- examples/examples.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples') diff --git a/examples/examples.lisp b/examples/examples.lisp index d437826..99ad26e 100644 --- a/examples/examples.lisp +++ b/examples/examples.lisp @@ -46,9 +46,9 @@ tests that aren't part of the package you're testing." #+testiere (:tests (:let ((*count* 5)) - (:funcall #'increment-count) + (:do (increment-count)) (= *count* 6) - (:funcall #'increment-count 4) + (:do (increment-count 4)) (= *count* 10)) (:let ((*count* -10)) (= (increment-count) -9))) -- cgit v1.2.3