From 2e2b608c4f04f9a5591f354029c257453b6c31cf Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 27 Jul 2008 18:55:03 +0200
Subject: Add ASSOC{-IF{-NOT}}, COMPLEMENT, CONSTANTLY, COPY-TREE, IDENTITY,
 RASSOC{-IF{-NOT}}, and {N}SUBLIS.

---
 control-flow.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 control-flow.lisp

(limited to 'control-flow.lisp')

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))))
-- 
cgit v1.2.3