From 5a1b90f9ab564c3a7e7f1844d8105e7ef853d06d Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Mon, 27 May 2024 19:12:30 +0200 Subject: [PATCH] Type check for string --- src/main.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index 489821e..f89f216 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -48,10 +48,11 @@ (prin1 responses stream))) (defun return-sus-form (lang) - (cond ((string= lang "en") - (sus-form-en)) - ((string= lang "de") - (sus-form-de)))) + "Based on LANG decide which sus form to show." + (check-type lang string) + (cond ((string= lang "en") (sus-form-en)) + ((string= lang "de") (sus-form-de)) + (t (error "Unsupported language: ~A" lang)))) (define-easy-handler (index :uri "/") () (home))