diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-05-09 02:03:28 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-05-09 02:03:28 +0000 |
| commit | da14d89c1936e9de6eacb9c12dd9e6a0d68a0829 (patch) | |
| tree | 384f26f1ebc5a9efdee6665d9747fca970147504 /src/lisp/test.lisp | |
| parent | 5a1b407900f2e8b5edc138386621310b66584eb5 (diff) | |
Hello world!
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index 171cb1aa..b5a82a98 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp @@ -1,7 +1,7 @@ (in-module "clojure") -#+:JVM(import "java.lang" '(String Class Math)) -#+:CLI(import "System, mscorlib" '(String Type Math)) +#+:JVM(import "java.lang" '(String Class Math System)) +#+:CLI(import "System, mscorlib" '(String Type Math Console)) (defn f0 ()) @@ -135,4 +135,13 @@ (if (Type.GetType "Object") (String.Intern "fred") Math.PI) - (set Math.PI 3.14))
\ No newline at end of file + (set Math.PI 3.14)) + +(defn prn (x) + #+:JVM (.println System.out x) + #+:CLI (Console.WriteLine x)) + +(defn fmain (args) + (prn "Hello World!")) + +(defmain fmain)
\ No newline at end of file |