projects
/
m17n
/
m17n-lib-cs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
*** empty log message ***
[m17n/m17n-lib-cs.git]
/
eval.txt
1
;; -*- lisp -*-
2
3
(defun temp (a b c)
4
(cond ((> a 0)
5
(+= a 1)
6
(+ a b c))))
7
8
(cond
9
(0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
10
(1 (+= X 10)))
11
(+= X (temp 1 2 3))
12
(if (> 20 X 10)
13
((<<= X 2)
14
(set Y "abc")
15
(+= Y "def"))
16
(while (> X 7)
17
(/= X 2) (+= X 1))
18
(cond ((> X 1)
19
(set Y "ABC")
20
(set Z (+ Y "def")))))
21
(insert "kkk")