projects
/
m17n
/
m17n-lib-cs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[m17n/m17n-lib-cs.git]
/
eval.txt
diff --git
a/eval.txt
b/eval.txt
index
d1517ed
..
a224999
100644
(file)
--- a/
eval.txt
+++ b/
eval.txt
@@
-1,8
+1,9
@@
;; -*- lisp -*-
(defun temp (a b c)
;; -*- lisp -*-
(defun temp (a b c)
- (+= a 1)
- (+ a b c))
+ (cond ((> a 0)
+ (+= a 1)
+ (+ a b c))))
(cond
(0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
(cond
(0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
@@
-14,6
+15,7
@@
(+= Y "def"))
(while (> X 7)
(/= X 2) (+= X 1))
(+= Y "def"))
(while (> X 7)
(/= X 2) (+= X 1))
- (set Y "ABC")
- (set Z (+ Y "def")))
+ (cond ((> X 1)
+ (set Y "ABC")
+ (set Z (+ Y "def")))))
(insert "kkk")
(insert "kkk")