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))) (prin1 responses stream)))
(defun return-sus-form (lang) (defun return-sus-form (lang)
(cond ((string= lang "en") "Based on LANG decide which sus form to show."
(sus-form-en)) (check-type lang string)
((string= lang "de") (cond ((string= lang "en") (sus-form-en))
(sus-form-de)))) ((string= lang "de") (sus-form-de))
(t (error "Unsupported language: ~A" lang))))
(define-easy-handler (index :uri "/") () (define-easy-handler (index :uri "/") ()
(home)) (home))