Help needed for bypassing a LISP routine when a script file is running...

Hello,

I am needing help with the following code that is supposed to check the cmdactive variable and if a script is running, the routine is to be bypassed.

And the code is:

;;s::startup section from Lee_Mac, 3rd version of startup modified by Lee_Mac 

(   (lambda ( / expr )
       (vl-load-com)
(setq x (getvar 'cmdactive))
       (setq expr '((if (zerop (logand 4 (getvar 'cmdactive))) (c:gochngplt)) (princ)))
       (if (= 'list (type s::startup))
           (setq  s::startup (append s::startup expr))
           (eval (vl-list* 'defun-q 's::startup 'nil expr))
       )
       (princ x)
   )
)

;;----------------------------------------------------------------------;;
;;                             End of File                              ;;
;;----------------------------------------------------------------------;;

I added a check to see what the cmdactive variable is and it is always a "0".

Any help would be greatly appreciated!

Thank you for your time and attention!