Here's a cheap and cheerful logging function. It saves entries to a monthly CSV text file for easy manipulation within a spreadsheet.
Just add the line (Lisp-Log "your Command Name") to the beginning of each routine.
(defun LISP-LOG (CMD / Path Adminpath Adminfile)
(if (and (setq Path (getvar "TEMPPREFIX")) ; replace this path with a suitable network drive
(setq Adminpath (strcat Path "Lisp-Log-File_" (menucmd (strcat "m=$(edtime,$(getvar," "date" ")," "MONYYYY" ")")) ".csv"))
(if (findfile Adminpath) (setq Adminfile (open Adminpath "a"))(setq Adminfile (open Adminpath "w")))
)
(progn
(write-line (strcase (strcat (getvar "LOGINNAME") "," CMD ","
(menucmd (strcat "m=$(edtime,$(getvar," "date" ")," "DDDD D MONTH YYYY H:MMam/pm" ")")) ","
(vl-string-translate "," "*" (strcat (getvar "dwgprefix")(getvar "dwgname"))))) Adminfile)
(close Adminfile)
T
)
(alert "Logging Error")
)
)