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

diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt
index 02320df0..2b891dba 100644
--- a/src/lisp/ao_lisp_builtin.txt
+++ b/src/lisp/ao_lisp_builtin.txt
@@ -11,7 +11,7 @@ lambda	last
 lambda	length
 nlambda	quote
 lambda	set
-macro	setq
+macro	setq		set!
 nlambda	cond
 nlambda	progn
 nlambda	while
@@ -22,7 +22,7 @@ lexpr	minus		-
 lexpr	times		*
 lexpr	divide		/
 lexpr	mod		%
-lexpr	equal		=
+lexpr	equal		=	eq?	eqv?
 lexpr	less		<
 lexpr	greater		>
 lexpr	less_equal	<=
@@ -38,3 +38,5 @@ lambda	call_cc		call/cc
 lambda	collect
 lambda	nullp		null?
 lambda	not
+lambda	listp		list?
+lambda	pairp		pair?