Minor whitespace/documentation fixes

[fiveam.git] / src / run.lisp

diff --git a/src/run.lisp b/src/run.lisp
index 286a7c4..1f0ed33 100644 (file)
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -110,8 +110,7 @@ run."))
           (or  (satisfies-depends-p #'some))
           (not (satisfies-depends-p #'notany))
           (:before (every #'(lambda (dep)
-                              (let ((status (status (get-test dep))))
-                                (eql :unknown status)))
+                              (eql :unknown (status (get-test dep))))
                           (cdr depends-on)))))))
 
 (defun results-status (result-list)