added and, or, not

mark letfns as assigned so they get boxed when closed over

1 files changed, 21 insertions, 5 deletions

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index 37b550e0..f17e4ded 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -43,9 +43,25 @@
 
 (defn fif (a b x y z)
       (if a
-          (if (if x y z)
-              y
-            z)
-        b))
+           (if (if x y z)
+               y
+             z)
+         b))
 
-(defn fr (a b & c) c)
\ No newline at end of file
+(defn fr (a b & c) c)
+
+(defn fnot (x y z)
+      (if (not x)
+          (not y)
+        (not z)))
+
+(defn forf (x y z)
+      (if (or x y)
+          x
+        (or x y z)))
+
+
+(defn fand (x y z)
+      (if (and x y)
+          x
+        (and x y z)))
\ No newline at end of file