From 8613aac968cd3e9b514b495fa46a28dc1fd1e9c8 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 15 Jun 2024 21:18:25 +0200
Subject: [PATCH] Add type checking

---
 src/views/sus.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/views/sus.lisp b/src/views/sus.lisp
index 244334e..b6c7d2b 100644
--- a/src/views/sus.lisp
+++ b/src/views/sus.lisp
@@ -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)))