[TD_LISP.git] / course / lambda_lists.lsp

#!/usr/bin/env newlisp

(define (f x y) (+ x y z))
;(lambda (x y) (+ x y z))
(println (first f))
(println (last f))
(setq z 2)
(println (f 1 3))

(setf (nth 1 f) '(+ x y z 1))
(println (f 1 3))

(println (let ((z 2)) (expand f 'z)))

(exit)
Commit	Line	Data
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)