X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=5ca89bd4085ed2a68c8ea7dc4a06c5c789244d62;hb=8f57c0761eaf1f10493fd52118d309eb69491464;hp=5ee15899912d428c79ce52efb497d1190b8846fd;hpb=22076dcd5598ef30220bd9fde7a327765f447d43;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 5ee15899..5ca89bd4 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -1,4 +1,7 @@
 cadr (lambda (l) (car (cdr l)))
+caddr (lambda (l) (car (cdr (cdr l))))
 list (lexpr (l) l)
 1+ (lambda (x) (+ x 1))
 1- (lambda (x) (- x 1))
+last (lambda (x) (cond ((cdr x) (last (cdr x))) ((car x))))
+prog* (lexpr (l) (last l))