diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 18:55:03 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 18:55:03 +0200 |
| commit | 2e2b608c4f04f9a5591f354029c257453b6c31cf (patch) | |
| tree | c70668a5980bced7c54a4c81c038bfe9fe8c5a74 /control-flow.lisp | |
| parent | ab6010f8463ec21ed50de38ffad29e8fb6ba4867 (diff) | |
Add ASSOC{-IF{-NOT}}, COMPLEMENT, CONSTANTLY, COPY-TREE, IDENTITY, RASSOC{-IF{-NOT}}, and {N}SUBLIS.
Diffstat (limited to 'control-flow.lisp')
| -rw-r--r-- | control-flow.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/control-flow.lisp b/control-flow.lisp new file mode 100644 index 0000000..0d380aa --- /dev/null +++ b/control-flow.lisp @@ -0,0 +1,10 @@ +(defun identity (x) + x) + +(defun constantly (c) + (lambda (x) + (declare (ignore x)) + c)) + +(defun complement (function) + (lambda (x) (not (funcall function x)))) |