| 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) |