fixed "|" :string and | :identifier confusion

2024-08-03 20:18:21 +03:00
parent 2cbb10fc6b
commit d989745845
2 changed files with 20 additions and 10 deletions
--- 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