Fix the trivial-gray-streams-test::failed-p function logic

test/test-framework.lisp

@@ -31,7 +31,7 @@
           :accessor cause)))
 
 (defun failed-p (test-result)
-  (eq (status test-result) :ok))
+  (eq (status test-result) :fail))
 
 (defmethod print-object ((r test-result) stream)
   (print-unreadable-object (r stream :type t)

test/test.lisp

@@ -197,7 +197,7 @@ hasn't been invoked, signals an ERROR."
          (file-position s 9))))))
 
 (defun failed-tests (results)
-  (remove-if-not (complement #'failed-p) results))
+  (remove-if-not #'failed-p results))
 
 (defun failed-test-names (results)
   (mapcar (lambda (result)