1 files changed, 12 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index 2482fdf6..7da3e320 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -1,5 +1,8 @@
 (in-module "clojure")
 
+#+:JVM(import "java.lang" '(String Class))
+#+:CLI(import "System, mscorlib" '(String Type))
+
 (defn f0 ())
 
 (defn f1 (x) x)
@@ -121,4 +124,12 @@
       '(1 2 3 (4 5)))
 
 (defn fcast ()
-      (if (int 7) (char 17) (long 29999)))
-\ No newline at end of file
+      (if (int 7) (char 17) (long 29999)))
+
+(defn fmem ()
+      #+:JVM
+      (when (Class.forName "Object")
+        (String.valueOf 7))
+      #+:CLI
+      (when (Type.GetType "Object")
+        (String.Intern "fred")))
+\ No newline at end of file