git.gag.com Git - fw/altos/blob - src/lisp/ao_lisp_const.lisp

   1 cadr (lambda (l) (car (cdr l)))
   2 caddr (lambda (l) (car (cdr (cdr l))))
   3 list (lexpr (l) l)
   4 1+ (lambda (x) (+ x 1))
   5 1- (lambda (x) (- x 1))
   6 last (lambda (x) (cond ((cdr x) (last (cdr x))) ((car x))))
   7 prog* (lexpr (l) (last l))