be clearer about an okay test result

      (a b c 133 e f g h))

;; End Of Tests ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(format t "\ndone testing\n\n")

(format t "\ndone testing")

(if fails

    (progn

      (format t "\n\n")

      (let ((list (reverse fails)))

        (format t "{} FAILS:\n" (length fails))

        (while list

          (format t "  {}\n" (pop list)))))

  (format t ", all ok\n\n"))

(when dup-test-names

    (dolist (testname dup-test-names)

      (format t "WARN: duplicate test name {}\n" testname))