course/lambda_lists.lsp

   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)