diff --git a/lisp/unit-test.lisp b/lisp/unit-test.lisp
new file mode 100644
index 0000000..7e2e40d
--- /dev/null
+++ b/lisp/unit-test.lisp
@@ -0,0 +1,16 @@
+(defun run-unit-test (unit-test)
+  (cond
+    ((funcall unit-test) (print (cons (symbol-function unit-test) T)))
+    (T (print (cons (symbol-function unit-test) 'F)))
+  )
+)
+
+(defun run-test-suite (test-suite)
+  (cond
+    (test-suite (cons (run-unit-test (car test-suite)) (run-test-suite (cdr test-suite))))
+  )
+)
+
+(defun unit (test-suite)
+  (cond ((run-test-suite test-suite) T))
+)