Додата "једнаки?" сложена функција, поправљен баг у "или" макроу

cirilisp.c

@@ -97,8 +97,8 @@ const char *help =
 "\
 Команда: cirilisp [-q|-v|-h] [<име фајла>]*\n\
 Опције:\n\
-  -q	Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\n\
-евалуирања командних аргумената\n\
+  -q	Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\
+ евалуирања командних аргумената\n\
   -h	Одштампај овај кратки помоћник и затвори програм\n\
   -v	Одштампај верзију програма и затвори програм\n\
 ";

инит.ћ

@@ -13,6 +13,11 @@
 
 (опиши нил ())
 
+(опиши (једнаки? џ ж)
+	(ако (и (конс? џ) (конс? ж))
+		(и (једнаки? (сар џ) (сар ж)) (једнаки? (сдр џ) (сдр ж)))
+		(јед? џ ж)))
+
 (опиши (новиред) (прикажи #\новиред))
 
 (опиши (није предикат)
@@ -43,7 +48,7 @@
 	(ако (нил? предикати) #л
 		(ако (нил? (сдр предикати))
 			(сар предикати)
-			(листа 'ако (није (сар предикати))
+			(листа 'ако (листа 'није (сар предикати))
 				(примени или (сдр предикати))
 				(сар предикати)))))