2004 Migration Assistance (Modify AutoCad saveall.lsp)

Since Migration assistance to Autocad 2004 does not provide me with this
type of help I am hoping that I can get it on the newsgroups..

I have created a whole series of cleanup and utility routines Auditing,
purging, removing old plot styles, unused layout tabs, layer filters etc..
I want to modify the saveall.lsp provided with express tools. For
Simplicity, I will focus on "purge" subroutine alone in this context.
Since I do not know visual lisp or whatever this saveall.lsp code is, I am
hoping autolisp will suffice for modifications?

I want to open multiple drawings and perform a purge on each one before
resaving to autocad 2004. I am starting with Autodesks "saveall.lsp"
After I figure out if it is possible to perform I can move to complete
integration of all subroutines if it is possible..

Here is the code that runs:
PROBLEM: I must not have the purge running at the correct location, it does
nothing?? I have tried so many other locations.. Is this possible?

Help?
Curtis
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::;CODE:::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::
;; save all open drawings
;;
(defun C:UA (/ dwg saveDwg)
;; save drawing
(defun saveDwg (dwg / titled writeable name)
(setq titled (= 1 (vlax-variant-value (vla-getvariable dwg
"DWGTITLED")))
writeable (= 1 (vlax-variant-value (vla-getvariable dwg
"WRITESTAT")))
name (if titled
(vlax-get dwg "fullname")
(vlax-variant-value (vla-getvariable dwg "DWGNAME")) )
)
(cond
;; REFEDIT active ??
((/= "" (vlax-variant-value (vla-getvariable dwg "REFEDITNAME")))
(acet-ui-message
(acet-str-format "%1\nCannot Save while REFEDIT active." name)
"AutoCAD - SAVEALL"
Acet:ICONSTOP )
)
;; simple save if titled and writeable
((and titled writeable)

;;;;; I have begun adding the commands here
(progn
(command "purge" "a" "" "n")
(vla-save dwg)
)
;;;;; I have ended adding the commands here
)
;; otherwise ask for name first
(T
(if (setq name (ACET-FILE-WRITEDIALOG "Save Drawing As" name "dwg"
1))
(vla-saveas dwg (vlax-make-variant name)) )
)
)
)

;; quietly
(acet-error-init '(("CMDECHO" 0)))

;; for each drawing
(vlax-for dwg (vla-get-documents (vlax-get-acad-object))
;; save if modified
(if (/= 0 (vlax-variant-value (vla-getvariable dwg "DBMOD")))
;;;;; I have begun adding the commands here
(progn
(command "purge" "a" "" "n")
(saveDwg dwg)
)
;;;;; I have ended adding the commands here

)
)

(acet-error-restore)
(princ)
)
(princ)