control-flow.lisp


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))))