From 0b9fe00e9f15b2aefd3f2c83616db20bff10a567 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 20 Sep 2023 11:02:54 +0200 Subject: [PATCH] Add compile time optimization for function --- src/pattern/questionnaire.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp index 4a868a7..cb32f2f 100644 --- a/src/pattern/questionnaire.lisp +++ b/src/pattern/questionnaire.lisp @@ -132,14 +132,14 @@ an error if an unknown type is passed." ((string= type "text") #'ctrl) (t (error "Unknown type ~A" type)))) +(declaim (ftype (function (string string string) function) apply-input-form)) (defun apply-input-form (type group item) - "Apply the chosen input form function to generate HTML for a single form - element. + "Apply the chosen input form function to generate HTML for a single form element. TYPE: A string specifying the HTML input type like 'radio', 'checkbox', 'text', etc. -GROUP: Specifies the name attribute for the input elements. +GROUP: A string specifying the name attribute for the input elements. ITEM: The particular choice item that this form element represents.