15c46339 JB |
1 | #!/usr/bin/env newlisp |
2 | |
3 | (define (f x y) (+ x y z)) |
4 | ;(lambda (x y) (+ x y z)) |
5 | (println (first f)) |
6 | (println (last f)) |
7 | (setq z 2) |
8 | (println (f 1 3)) |
9 | |
10 | (setf (nth 1 f) '(+ x y z 1)) |
11 | (println (f 1 3)) |
12 | |
13 | (println (let ((z 2)) (expand f 'z))) |
14 | |
15 | (exit) |