moving to TeleMega v3.0 by default

[fw/altos] / src / lisp / ao_lisp_builtin.txt

diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt
index 4c48433767646c26e5c924023b5c772aa447d090..abed7afec97c924a63f3883702d35afc982d9c9a 100644 (file)
--- a/src/lisp/ao_lisp_builtin.txt
+++ b/src/lisp/ao_lisp_builtin.txt
@@ -10,10 +10,14 @@ f_lambda    cons
 f_lambda       last
 f_lambda       length
 nlambda                quote
+atom           quasiquote
+atom           unquote
+atom           unquote_splicing        unquote-splicing
 f_lambda       set
 macro          setq            set!
+f_lambda       def
 nlambda                cond
-nlambda                progn
+nlambda                begin
 nlambda                while
 f_lexpr                write
 f_lexpr                display
@@ -31,7 +35,7 @@ f_lexpr               less_equal      <=
 f_lexpr                greater_equal   >=
 f_lambda       list_to_string          list->string
 f_lambda       string_to_list          string->list
-f_lambda       flush
+f_lambda       flush_output            flush-output
 f_lambda       delay
 f_lexpr                led
 f_lambda       save
@@ -42,7 +46,8 @@ f_lambda      nullp           null?
 f_lambda       not
 f_lambda       listp           list?
 f_lambda       pairp           pair?
-f_lambda       numberp         number? integer?
+f_lambda       integerp        integer? exact? exact-integer?
+f_lambda       numberp         number? real?
 f_lambda       booleanp        boolean?
 f_lambda       set_car         set-car!
 f_lambda       set_cdr         set-cdr!
@@ -58,3 +63,7 @@ f_lambda      exit
 f_lambda       current_jiffy   current-jiffy
 f_lambda       current_second  current-second
 f_lambda       jiffies_per_second      jiffies-per-second
+f_lambda       finitep         finite?
+f_lambda       infinitep       infinite?
+f_lambda       inexactp        inexact?
+f_lambda       sqrt