Fix function name

This commit is contained in:
Marcus Kammer 2025-02-19 17:57:22 +01:00
parent da6da629ed
commit 19d19d1090
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 2 additions and 2 deletions

View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey" (defsystem "dev.metalisp.survey"
:description "Create questionnaires and analyze the results." :description "Create questionnaires and analyze the results."
:version "0.5.26" :version "0.5.27"
:author "Marcus Kammer <marcus.kammer@mailbox.org>" :author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git") :source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT" :licence "MIT"

View file

@ -20,7 +20,7 @@
(defun process-questionnaire-post (post-params q) (defun process-questionnaire-post (post-params q)
(declare (type questionnaire q)) (declare (type questionnaire q))
(setf (questionnaire-post-params q) post-params) (setf (questionnaire-post-params q) post-params)
(questionnaire-write-to-file q) (questionnaire-write-file q)
(view-submit q)) (view-submit q))
(defun extract-uri-param (param) (defun extract-uri-param (param)