diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 19:10:21 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 19:10:21 +0200 |
| commit | 92cb7b11a4db45597d321b4b0b80507d4dbf252a (patch) | |
| tree | 943b40c6596c3d13369ffef61e964b0048aed8d5 | |
| parent | 5458d9ab8b91c0eacc012ad188fc0b63846adf3f (diff) | |
Export recently introduced functions.
| -rw-r--r-- | control-flow.lisp | 3 | ||||
| -rw-r--r-- | list-functions-2.lisp | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/control-flow.lisp b/control-flow.lisp index 0d380aa..9fae748 100644 --- a/control-flow.lisp +++ b/control-flow.lisp @@ -1,3 +1,6 @@ +(export '(identity constantly complement)) + + (defun identity (x) x) diff --git a/list-functions-2.lisp b/list-functions-2.lisp index 2e73a46..0bae5f3 100644 --- a/list-functions-2.lisp +++ b/list-functions-2.lisp @@ -1,3 +1,7 @@ +(export '(copy-tree assoc assoc-if assoc-if-not rassoc rassoc-if + rassoc-if-not sublis nsublis)) + + (defun copy-tree (tree) (typecase tree (cons (cons (copy-tree (car cons)) (copy-tree (cdr cons)))) |