Fix folder naming
This commit is contained in:
parent
d102e35cdb
commit
58dbd229b9
2 changed files with 2 additions and 2 deletions
|
@ -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"
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue