cd %1
echo (setq si::*system-directory* (namestring(truename (make-pathname :name nil :type nil :defaults (si::argv 0))))) (si::save-system "modified.exe") | @FLISP@.exe 
del @FLISP@.exe
ren modified.exe @FLISP@.exe
pause
