Help with command/lisp reactor

Hi,

I'm starting my adventure with reactors and first thing I would to have is reactor for making lisp/command usage statistics.

Here is my code

;pz:statistics:reactor - function to update statistics file
(foreach grp (vlr-reactors :vlr-command-reactor :vlr-lisp-reactor)
 (foreach obj (cdr grp)
   (if (= "statistics" (vlr-data obj))
     (vlr-remove obj)
   )
 )
)
(vlr-command-reactor "statistics"
'(
   (:vlr-lispwillstart . pz:statistics:reactor)
 )
)
(vlr-lisp-reactor "statistics"
'(
   (:vlr-lispwillstart . pz:statistics:reactor)
 )
)

I have one problem, if in lisp someone is using

(command ...)

then my function will add in statistics file one use of lisp and any (command) from this lisp.

Is there any way to avoid this situation?

I think Lee's reply (post #2) in this thread would help you.

Overall in that thread I started exploring reactors, so all the replies in there are gold for me.

Have a look at Productivity_analysis_tool.lsp may be useful.

Productivity_Analysis_Tool.lsp