diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp
index a672914..4a868a7 100644
--- a/src/pattern/questionnaire.lisp
+++ b/src/pattern/questionnaire.lisp
@@ -221,7 +221,8 @@ Returns:
     ;; Return the reversed result list
     (nreverse result)))
 
-(declaim (ftype (function (question) (values string string string)) extract-question-components))
+(declaim (ftype (function (question) (values string string string))
+                extract-question-components))
 (defun extract-question-components (question)
   "Extracts components of a question stored as a plist.