altos: Add lambda support to lisp

[fw/altos] / src / lisp / ao_lisp_const.lisp

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index aa356d450aeeaa87d5860ec5948a37dec69cf77c..5ee15899912d428c79ce52efb497d1190b8846fd 100644 (file)
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -1 +1,4 @@
 cadr (lambda (l) (car (cdr l)))
+list (lexpr (l) l)
+1+ (lambda (x) (+ x 1))
+1- (lambda (x) (- x 1))