X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=eval.txt;h=a224999d800faa29ada30f343017156af61b2b55;hb=06a7d21737872397a9dfa8ba7619ca50677ee9de;hp=beec40f4ab210bcb87f4c7afb00470f7b7420b96;hpb=e8259e5eba800cc1c2d35008e78f53e91f546a3f;p=m17n%2Fm17n-lib-cs.git

diff --git a/eval.txt b/eval.txt
index beec40f..a224999 100644
--- a/eval.txt
+++ b/eval.txt
@@ -1,16 +1,21 @@
 ;; -*- lisp -*-
 
-(progn
-  (cond
-   (0 (+ X 2 (* 3 4) (- 3 4)))
-   (1 (+= X 10)))
-  (if (> 20 X 10)
-      (progn
-	(<<= X 2)
-	(set Y "abc")
-	(+= Y "def"))
-    (while (> X 7)
-      (/= X 2))
-    (set Y "ABC")
-    (set Z (+ Y "def")))
-  (insert "kkk"))
+(defun temp (a b c)
+  (cond ((> a 0)
+	 (+= a 1)
+	 (+ a b c))))
+
+(cond
+ (0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
+ (1 (+= X 10)))
+(+= X (temp 1 2 3))
+(if (> 20 X 10)
+    ((<<= X 2)
+     (set Y "abc")
+     (+= Y "def"))
+  (while (> X 7)
+    (/= X 2) (+= X 1))
+  (cond ((> X 1)
+	 (set Y "ABC")
+	 (set Z (+ Y "def")))))
+(insert "kkk")