fixed "|" :string and | :identifier confusion

1 files changed, 4 insertions, 2 deletions

diff --git a/test/tests.lisp b/test/tests.lisp
index c36a5f2..2dfb4cb 100644
--- a/test/tests.lisp
+++ b/test/tests.lisp
@@ -68,9 +68,11 @@
         (delete-file (probe-file (drop-file-type abs-path)))))
     successful))
 
-(defun run-tests ()
+(defun run-tests (&optional (ignore-err nil))
   (loop for success?
-          in (mapcar #'run-test
+          in (mapcar (lambda (file) (if (not ignore-err)
+                                   (run-test file)
+                                   (ignore-errors (run-test file))))
                      (remove-if-not (lambda (file)
                                       (string= "lorth" (pathname-type file))) 
                                     (cl-fad:list-directory