1 files changed, 10 insertions, 0 deletions
diff --git a/control-flow.lisp b/control-flow.lisp
new file mode 100644
index 0000000..0d380aa
--- /dev/null
+++ b/control-flow.lisp
@@ -0,0 +1,10 @@
+(defun identity (x)
+  x)
+
+(defun constantly (c)
+  (lambda (x)
+    (declare (ignore x))
+    c))
+
+(defun complement (function)
+  (lambda (x) (not (funcall function x))))