marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Type check for string

Browse source
This commit is contained in:
Marcus Kammer 2024-05-27 19:12:30 +02:00
parent 54af774f0e
commit 5a1b90f9ab
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main.lisp
View file

@ -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))