From 7d4e022893800af3a0b3818b7da807907e94a830 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 18 Nov 2012 05:38:54 +0100 Subject: [PATCH] Remove redundant lambda --- src/run.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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))))))) -- 1.7.10.4