Change template search order

Give priority to template store search paths over current path See Github issue #89
mmontone · Jan 2, 2024 · 61e828f · 61e828f
1 parent a56d0a4
commit 61e828f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/template-store.lisp b/src/template-store.lisp
@@ -41,10 +41,10 @@
          (loop
            for dir in search-path
              thereis (uiop:file-exists-p (merge-pathnames (subseq (string name) 1) dir)))))
-       ;; Otherwise, search relative to either current path or search paths
+       ;; Otherwise, search in search paths or relative to current path
        (t (loop
             with path = (if current-path
-                            (cons (directory-namestring current-path) search-path)
+                            (append search-path (list (directory-namestring current-path)))
                             search-path)
             for dir in path
               thereis (uiop:file-exists-p (merge-pathnames name dir)))))