Remove redundant lambda

diff --git a/src/run.lisp b/src/run.lisp
index 417acd8..31a3f02 100644 (file)
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -202,9 +202,7 @@ run."))
                       (run-tests)
                       (run-tests)))
              (setf suite-results result-list
-                   (status suite) (every (lambda (res)
-                                           (typep res 'test-passed))
-                                         suite-results)))
+                   (status suite) (every #'test-passed-p suite-results)))
         (with-run-state (result-list)
           (setf result-list (nconc result-list suite-results)))))))