diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-05-01 22:27:25 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-05-01 22:27:25 +0000 |
| commit | e9a9c8aaada136da7a4ca1fbbdbc5e9a99c0a266 (patch) | |
| tree | 624d0fb313fd0b233e4cc11458edaf9dc4e70655 /src/lisp/test.lisp | |
| parent | f4f1b702fe9dfd7c35c39def14db2195ce4ef306 (diff) | |
added set
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index f17e4ded..e834d0a6 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp @@ -64,4 +64,11 @@ (defn fand (x y z) (if (and x y) x - (and x y z)))
\ No newline at end of file + (and x y z))) + +(defn fset (x y z) + (set x a) + (set b y) + (if (set (:foo x) z) + (set (.bar y) z) + (set (foo x y) z)))
\ No newline at end of file |