Dumb

Shinmera · Aug 31, 2024 · f75abc1 · f75abc1
1 parent 4d4436b
commit f75abc1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -268,9 +268,9 @@
           (error "The file does not exist or is not accessible:~%  ~a" path)
           (opendir fd))))
   #-(and cffi (or unix windows))
-  (dolist (entry (if recursive
-                     (merge-pathnames pathname-utils:*wild-inferiors* path)
-                     (merge-pathnames pathname-utils:*wild-file* path)))
+  (dolist (entry (directory (if recursive
+                                (merge-pathnames pathname-utils:*wild-inferiors* path)
+                                (merge-pathnames pathname-utils:*wild-file* path))))
     (when (or (eql T type)
               (and (eql :directory type) (directory-p entry))
               (and (eql :file type) (file-p entry)))