added some string escape chars and include path

test/tests.lisp

@@ -35,7 +35,7 @@
                       path
                       (from-root path)))
         (successful nil))
-    (with-open-file (str abs-path)
+    (with-open-file (str abs-path :external-format :utf-8)
       (unless (string-equal "test" (second (uiop:split-string
                                             (read-line str)
                                             :separator '(#\Space))))
@@ -74,8 +74,11 @@
                                     (run-test file :target target))))
                      (remove-if-not (lambda (file)
                                       (string= "kurt" (pathname-type file))) 
-                                    (cl-fad:list-directory
-                                     (from-root "test"))))
+                                    (append
+                                     (cl-fad:list-directory
+                                      (from-root "test"))
+                                     (cl-fad:list-directory
+                                      (from-root "examples/euler")))))
         counting (eq t success?) into succs
         counting (null success?) into fails
         finally (format t "~a success, ~a fail~%" succs fails)))