Oops, wait!
On Thu, Nov 28, 2019 at 10:56:56AM +0100, Alexander Burger wrote:
> (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) ) )
This has a mistype (Colors instead of Names).
Also, we need 'lst' plus 'val'.
Better is:
(de f (Names)
(pilog
(quote
@Names Names
@Gen (mapcan '((C) (list 'nm '+TagVal C)) Names)
(select (@Item)
((@Gen (v +Tag) itm))
(lst @Tag @Item tgs)
(val @Nm @Tag v nm)
(member @Nm @Names) ) )
(print-item @Item) ) )
But not what you want, right? It is still OR, not AND ...
☺/ A!ex
--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
