diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-05-08 22:51:15 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-05-08 22:51:15 +0000 |
| commit | 5a1b407900f2e8b5edc138386621310b66584eb5 (patch) | |
| tree | acacb1d3ae02faff59031b0945f2355f5b33cdd6 /src/lisp/test.lisp | |
| parent | 73cee2f442cb69ef87facafadd385cc6a67018e0 (diff) | |
added static fields/properties
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index 7da3e320..171cb1aa 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp @@ -1,7 +1,7 @@ (in-module "clojure") -#+:JVM(import "java.lang" '(String Class)) -#+:CLI(import "System, mscorlib" '(String Type)) +#+:JVM(import "java.lang" '(String Class Math)) +#+:CLI(import "System, mscorlib" '(String Type Math)) (defn f0 ()) @@ -128,8 +128,11 @@ (defn fmem () #+:JVM - (when (Class.forName "Object") - (String.valueOf 7)) + (if (Class.forName "Object") + (String.valueOf 7) + Math.PI) #+:CLI - (when (Type.GetType "Object") - (String.Intern "fred")))
\ No newline at end of file + (if (Type.GetType "Object") + (String.Intern "fred") + Math.PI) + (set Math.PI 3.14))
\ No newline at end of file |