On Wed, Dec 04, 2019 at 02:32:57PM -0800, C K Kashyap wrote:
> (patch choTask 'XXX '(filter '((X) X) (mapcar '((X) (uppc (pack X)))
> *Tags)))
> ...
I do not understand your intention. I thougt you wanted an AND of all tags, so
the @Gen generator was obsolete.
My last proposal was:
(de f (Names)
(pilog
(quote
@Names Names
@Key (car Names)
(select (@Item)
((nm +TagVal @Key (v +Tag) itm))
(^ @
(fully
'((Nm)
(find
'((This) (member Nm (: v nm)))
(; (-> @Item) tgs) ) )
(-> @Names) ) ) ) )
(print-item @Item) ) )
(f '("RED" "BLUE"))
What was wrong with it?
☺/ A!ex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
