X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=5ee15899912d428c79ce52efb497d1190b8846fd;hb=77db0e8162cd01c2b42737b3d71b38cea942484f;hp=aa356d450aeeaa87d5860ec5948a37dec69cf77c;hpb=d2408e72d1e0d3459918601712b09860ab17e200;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index aa356d45..5ee15899 100644
--- 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))