From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 18 Nov 2012 04:38:54 +0000 (+0100)
Subject: Remove redundant lambda
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7d4e022893800af3a0b3818b7da807907e94a830;p=fiveam.git

Remove redundant lambda
---

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)))))))