X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=31a3f02bf831087ec4b34e26fbb5aec11b4b02af;hb=7d4e022893800af3a0b3818b7da807907e94a830;hp=417acd8ce44ae93f155fb868d9f1b7e61e786a11;hpb=b76fc6a27dc451c7f2f88eb9a1f028228530af6c;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index 417acd8..31a3f02 100644
--- 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)))))))