Add COMPLEMENT function definition, including tests.

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 47f4309..3d6cd77 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -362,6 +362,10 @@
 
 (defun identity (x) x)
 
+(defun complement (x)
+  (lambda (&rest args)
+    (not (apply x args))))
+
 (defun constantly (x)
   (lambda (&rest args)
     x))