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

Add type checking

Browse source
This commit is contained in:
Marcus Kammer 2024-06-15 21:18:25 +02:00
parent 58e17823b8
commit 8613aac968
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/views/sus.lisp
View file

@ -2,6 +2,8 @@
(defun load-form (lang form-file-name)
"Load a Lisp file containing form definitions."
(check-type lang string)
(check-type form-file-name string)
(let* ((relative-path (concatenate 'string "src/views/forms/" lang "/"))
(full-path (uiop:merge-pathnames* relative-path (uiop:getcwd)))
(form-path (uiop:merge-pathnames* form-file-name full-path)))