X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.txt;h=c324ca67018d8f45a43999d9fbc3a075d7e74973;hb=12a1f6ad48f2b924f71239effeb90afca75a090f;hp=02320df0331973f98881e2e8c6faa45ef13eed47;hpb=b3b4731fcb89cb404433f37a7704a503567c43bd;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt
index 02320df0..c324ca67 100644
--- a/src/lisp/ao_lisp_builtin.txt
+++ b/src/lisp/ao_lisp_builtin.txt
@@ -1,40 +1,60 @@
-lambda	eval
-lambda	read
-nlambda	lambda
-nlambda	lexpr
-nlambda	nlambda
-nlambda	macro
-lambda	car
-lambda	cdr
-lambda	cons
-lambda	last
-lambda	length
-nlambda	quote
-lambda	set
-macro	setq
-nlambda	cond
-nlambda	progn
-nlambda	while
-lexpr	print
-lexpr	patom
-lexpr	plus		+
-lexpr	minus		-
-lexpr	times		*
-lexpr	divide		/
-lexpr	mod		%
-lexpr	equal		=
-lexpr	less		<
-lexpr	greater		>
-lexpr	less_equal	<=
-lexpr	greater_equal	>=
-lambda	pack
-lambda	unpack
-lambda	flush
-lambda	delay
-lexpr	led
-lambda	save
-lambda	restore
-lambda	call_cc		call/cc
-lambda	collect
-lambda	nullp		null?
-lambda	not
+f_lambda	eval
+f_lambda	read
+nlambda		lambda
+nlambda		lexpr
+nlambda		nlambda
+nlambda		macro
+f_lambda	car
+f_lambda	cdr
+f_lambda	cons
+f_lambda	last
+f_lambda	length
+nlambda		quote
+f_lambda	set
+macro		setq		set!
+nlambda		cond
+nlambda		progn
+nlambda		while
+f_lexpr		write
+f_lexpr		display
+f_lexpr		plus		+
+f_lexpr		minus		-
+f_lexpr		times		*
+f_lexpr		divide		/
+f_lexpr		modulo		modulo	%
+f_lexpr		remainder
+f_lexpr		quotient
+f_lexpr		equal		=	eq?	eqv?
+f_lexpr		less		<
+f_lexpr		greater		>
+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_output		flush-output
+f_lambda	delay
+f_lexpr		led
+f_lambda	save
+f_lambda	restore
+f_lambda	call_cc		call-with-current-continuation	call/cc
+f_lambda	collect
+f_lambda	nullp		null?
+f_lambda	not
+f_lambda	listp		list?
+f_lambda	pairp		pair?
+f_lambda	numberp		number?	integer?
+f_lambda	booleanp	boolean?
+f_lambda	set_car		set-car!
+f_lambda	set_cdr		set-cdr!
+f_lambda	symbolp		symbol?
+f_lambda	symbol_to_string	symbol->string
+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