summaryrefslogtreecommitdiff
path: root/cmamut.lisp
diff options
context:
space:
mode:
authorJuan Manuel Tomás <jtomas1815@gmail.com>2023-05-16 14:29:44 -0300
committerJuan Manuel Tomás <jtomas1815@gmail.com>2023-05-16 14:29:44 -0300
commit7c99df20cf7419e311204dedaf6b559918e704f3 (patch)
tree758cb36121b0a2142b65d7f1ebe1aa956f6ecbd1 /cmamut.lisp
parentb31f8f03a3148b0a158cb7fe838e9474ab097ab8 (diff)
downloadcmamut-7c99df20cf7419e311204dedaf6b559918e704f3.tar.gz
cmamut-7c99df20cf7419e311204dedaf6b559918e704f3.zip
Filter functions based on their names
Diffstat (limited to 'cmamut.lisp')
-rw-r--r--cmamut.lisp3
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))))