From 7c99df20cf7419e311204dedaf6b559918e704f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Tue, 16 May 2023 14:29:44 -0300 Subject: Filter functions based on their names --- cmamut.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'cmamut.lisp') 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)))) -- cgit v1.2.3