Commit forgotten fix for test-grid-reporting:select.

pnathan · Aug 15, 2012 · 75f505b · 75f505b
1 parent a764a49
commit 75f505b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/reporting/do-results.lisp b/reporting/do-results.lisp
@@ -55,7 +55,8 @@ WHERE is a predicate of one argument - test result record."
 (defmethod select (db &key where)
   (let ((results))
     (do-results (result db :where where)
-      (push result results))))
+      (push result results))
+    results))
 
 ;;; RESULT record. Implemented as a lib result with a reference to it's test run.
 (defclass joined-lib-result ()