From d8b007ee51073ea11a6c21d4742d036df4935902 Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Fri, 23 Nov 2012 12:06:59 -0600
Subject: [PATCH] Update %run-thunks to make a test-results-db instance.

---
 lisp-unit.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 2819d58..58b8162 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -660,7 +660,7 @@ assertion.")
   "Run the list of test thunks in the package."
   (loop
    with table = (package-table package)
-   and results = (make-instance 'test-results)
+   and results = (make-instance 'test-results-db)
    for test-name in test-names
    as unit-test = (gethash test-name table)
    if unit-test do
-- 
2.11.4.GIT