1 2 3 4 5 6 7 8 9 10
(defun identity (x) x) (defun constantly (c) (lambda (x) (declare (ignore x)) c)) (defun complement (function) (lambda (x) (not (funcall function x))))