diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-05-08 17:11:58 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-05-08 17:11:58 +0000 |
| commit | 5fc1edd4ce80742aadd48949f6b09d3b3b810ccf (patch) | |
| tree | ae5cd4545f971e8c7f7a469bfb936ba07c9eeef5 /src/lisp/test.lisp | |
| parent | 393b6fcf74aa8e27adce220d15d0b12be1d8ce1c (diff) | |
added casts
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 5 |
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 |