diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
new file mode 100644
index 0000000000..a3db32c915
--- /dev/null
+++ b/extra/lisp/lisp-tests.factor
@@ -0,0 +1,4 @@
+[ [ T{ lisp-symbol f "foo" } [ 2 T{ lisp-symbol f "bar" } ] [ 3 4 T{ lisp-symbol f "baz" } ] if ] ]
+  [ "(if foo (bar 2) (baz 3 4))" lisp-expr parse-result-ast convert-if ] unit-test
+  
+  
\ No newline at end of file