summaryrefslogtreecommitdiff
path: root/control-flow.lisp
blob: 9fae748e10c769fd3becf5a16f1c3e88ff4cb9c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
(export '(identity constantly complement))


(defun identity (x)
  x)

(defun constantly (c)
  (lambda (x)
    (declare (ignore x))
    c))

(defun complement (function)
  (lambda (x) (not (funcall function x))))