diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-05-03 01:50:07 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-05-03 01:50:07 +0000 |
| commit | a9576eaea72abbc2ffb144c8e1d249c210622d7d (patch) | |
| tree | 67909fbf8fbf8ff8f1155aee9065c62d5c69de89 /src/lisp/test.lisp | |
| parent | e9a9c8aaada136da7a4ca1fbbdbc5e9a99c0a266 (diff) | |
added loop/break
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index e834d0a6..16c047bd 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp @@ -71,4 +71,14 @@ (set b y) (if (set (:foo x) z) (set (.bar y) z) - (set (foo x y) z)))
\ No newline at end of file + (set (foo x y) z))) + +(defn fdo (a b c) + (do ((a b a) + (b c b)) + (c) + a b c) + (do ((a b a) + (b c b)) + (c b) + a b c))
\ No newline at end of file |