diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-05-16 14:29:44 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-05-16 14:29:44 -0300 |
| commit | 7c99df20cf7419e311204dedaf6b559918e704f3 (patch) | |
| tree | 758cb36121b0a2142b65d7f1ebe1aa956f6ecbd1 | |
| parent | b31f8f03a3148b0a158cb7fe838e9474ab097ab8 (diff) | |
| download | cmamut-7c99df20cf7419e311204dedaf6b559918e704f3.tar.gz cmamut-7c99df20cf7419e311204dedaf6b559918e704f3.zip | |
Filter functions based on their names
| -rw-r--r-- | cmamut.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cmamut.lisp b/cmamut.lisp index 4306cbe..8e43557 100644 --- a/cmamut.lisp +++ b/cmamut.lisp @@ -247,7 +247,8 @@ (spec-composite spec))))) (functions (mapcar (lambda (x) (cook-function x type-associations)) (if function-filter - (remove-if-not function-filter (spec-functions spec)) + (remove-if-not (lambda (x) (funcall function-filter (gethash "name" x))) + (spec-functions spec)) (spec-functions spec))))) (remove-duplicates (concatenate 'list consts enums composite functions) :test #'equal)))) |