X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=5ca89bd4085ed2a68c8ea7dc4a06c5c789244d62;hb=6e5c1308ce33a864095eae02e7db18b0e043ab6e;hp=5ee15899912d428c79ce52efb497d1190b8846fd;hpb=77db0e8162cd01c2b42737b3d71b38cea942484f;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))