X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=3d6cd7799d69d3df47e80afe5b823bb85af5edb0;hb=cfd9e0ce078d53d0665aea0b2e445432721f99b7;hp=47f430936479231b817c188126df03ca71fdb2a6;hpb=3c567e1c9acaa34cde1ca0df46f34895301b89d8;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index 47f4309..3d6cd77 100644
--- 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))