On Thu, Nov 28, 2019 at 10:44:15AM +0100, Alexander Burger wrote:
> I would prepare the generator clauses as a Pilog variable, to build them at
> runtime, and then use the member/2 predicate in the filter clause to check for
> membership in the list of colors.
Could not resist :) This works:
(de f (Names)
(pilog
(quote
@Names Names
@Gen (mapcan '((C) (list 'nm '+TagVal C)) Colors)
(select (@Item)
((@Gen (v +Tag) itm))
(lst @Nm @Item tgs v nm)
(member @Nm @Names) ) )
(print-item @Item) ) )
(f '("RED" "BLUE"))
☺/ A!ex
--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
