1 files changed, 4 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index d40f4176..2482fdf6 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -118,4 +118,7 @@
       (if ':key '.foo 'a))
 
 (defn fql ()
-      '(1 2 3 (4 5)))
-\ No newline at end of file
+      '(1 2 3 (4 5)))
+
+(defn fcast ()
+      (if (int 7) (char 17) (long 29999)))
+\ No newline at end of file