X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.txt;h=236cadb49c965c448372c2369dade72e7496d583;hb=00bf2ca86b60e6501880011897cea073865c5a03;hp=ba6455ab46a91911e1f46896ca0ae5d2153f615e;hpb=e1acf5eb12aceda7aa838df031c1da1129d0fa5d;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt
index ba6455ab..236cadb4 100644
--- a/src/lisp/ao_lisp_builtin.txt
+++ b/src/lisp/ao_lisp_builtin.txt
@@ -13,10 +13,10 @@ nlambda		quote
 f_lambda	set
 macro		setq		set!
 nlambda		cond
-nlambda		progn
+nlambda		begin
 nlambda		while
-f_lexpr		print
-f_lexpr		patom
+f_lexpr		write
+f_lexpr		display
 f_lexpr		plus		+
 f_lexpr		minus		-
 f_lexpr		times		*
@@ -31,7 +31,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 +42,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!
@@ -52,3 +53,13 @@ f_lambda	string_to_symbol	string->symbol
 f_lambda	stringp		string?
 f_lambda	procedurep	procedure?
 lexpr		apply
+f_lambda	read_char	read-char
+f_lambda	write_char	write-char
+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