From d98974584558ca32db04fc6a47a692dc4ba0143d Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Sat, 3 Aug 2024 20:18:21 +0300
Subject: fixed "|" :string and | :identifier confusion

---
 test/tests.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'test')

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
-- 
cgit v1.2.3