Hi Tharwat,
Thanks for the remarks, I've modified the original code.
Although one question remains:
I've seen this being used by Lee:
(foreach rtr ; check if that reactor exist in the command reactors and remove it
(cdar (vlr-reactors :vlr-command-reactor)) (if (= "QuickTxt" (vlr-data rtr)) (vlr-remove rtr))
); foreach
But wouldn't (vl-some) make more sence? The reactor's data should be unique afterall? :
(vl-some ; check if that reactor exist in the command reactors and remove it
'(lambda (r) (if (= "QuickTxt" (vlr-data r)) (vlr-remove r)))
(cdar (vlr-reactors :vlr-command-reactor))
); vl-some