From 58dbd229b9fd9e2241f37b66990dab2aa83272aa Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 7 Jul 2024 13:47:23 +0200
Subject: [PATCH] Fix folder naming

---
 dev.metalisp.survey.asd | 2 +-
 src/questionnaire.lisp  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd
index 341f013..c94cc8e 100644
--- a/dev.metalisp.survey.asd
+++ b/dev.metalisp.survey.asd
@@ -2,7 +2,7 @@
 
 (defsystem "dev.metalisp.survey"
   :description "A simple survey"
-  :version "0.1.9"
+  :version "0.1.10"
   :author "Marcus Kammer <marcus.kammer@metalisp.dev"
   :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
   :licence "MIT"
diff --git a/src/questionnaire.lisp b/src/questionnaire.lisp
index 30c3162..c927f18 100644
--- a/src/questionnaire.lisp
+++ b/src/questionnaire.lisp
@@ -7,7 +7,7 @@
     (when index
       (nth (1+ index) dir-list))))
 
-(defun extract-lang-and-filename (path &optional (target-dir "forms"))
+(defun extract-lang-and-filename (path &optional (target-dir "questionnaires"))
   (let* ((directory (pathname-directory path))
          (name (pathname-name path))
          (lang (find-next-directory directory target-dir)))