r9154: add missing lispworks results

diff --git a/LATEST-TEST-RESULTS b/LATEST-TEST-RESULTS
index f2e3acad50507bdd57d6eb8480c2e4a19e0b0263..29a45c9ec4db5228c25dc0c9c3e7e4ce0292e39f 100644 (file)
--- a/LATEST-TEST-RESULTS
+++ b/LATEST-TEST-RESULTS
@@ -14,6 +14,12 @@ MYSQL: All 83 tests passed (X86, CMU Common Lisp).
 SQLITE: All 88 tests passed (X86, CMU Common Lisp).
 ODBC/MYSQL: All 83 tests passed (X86, CMU Common Lisp).
 ODBC/POSTGRESQL: All 95 tests passed (X86, CMU Common Lisp).
+POSTGRESQL: All 95 tests passed (NIL, LispWorks).
+POSTGRESQL-SOCKET: All 95 tests passed (NIL, LispWorks).
+MYSQL: All 83 tests passed (NIL, LispWorks).
+SQLITE: All 88 tests passed (NIL, LispWorks).
+ODBC/MYSQL: All 83 tests passed (NIL, LispWorks).
+ODBC/POSTGRESQL: All 95 tests passed (NIL, LispWorks).
 POSTGRESQL: All 95 tests passed (X86, SBCL).
 POSTGRESQL-SOCKET: All 95 tests passed (X86, SBCL).
 MYSQL: All 83 tests passed (X86, SBCL).

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index da6063337677cdb49bb2cbce91b7bdacb0a721c5..ca402ce88341e641c6a143c7c7634b9e2426f09c 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -371,15 +371,15 @@
        (dolist (test-form test-forms)
          (eval test-form))
        
-       (let ((remaining (rtest:do-tests *report-stream*)))
-         (when (rt:pending-tests)
+       (let ((remaining (regression-test:do-tests *report-stream*)))
+         (when (regression-test:pending-tests)
            (incf *error-count* (length remaining))))
        
        (let ((sexp-error (list db-type 
                                *test-database-underlying-type* 
                                (get-universal-time)
                                (length test-forms)
-                               (rt:pending-tests)
+                               (regression-test:pending-tests)
                                (lisp-implementation-type) 
                                (lisp-implementation-version)
                                (machine-type))))