Perhaps?
(defun c:test nil
(if *lisp-reactor*
(progn (vlr-remove *lisp-reactor*) (setq *lisp-reactor* nil))
(setq *lisp-reactor* (vlr-lisp-reactor nil '((:vlr-lispwillstart . lispcallback))))
)
(princ)
)
(defun lispcallback ( reactor params )
(princ "\n--> LISP is Running.")
(princ)
)