I have upgrade my code
But sometimes (i think the first time) give me error and then works well
Someone can help me?
TNX
PHP Code:
(setq des 96)
(setf filename_mi_out (format nil "~A.mi" (string-upcase (sd-inq-obj-basename (sd-inq-curr-wp)))))
(loop while (probe-file filename_mi_out) do
(setq des (incf des))
(setf filename_mi_out (format nil "~A~A.mi" (string-upcase (sd-inq-obj-basename (sd-inq-curr-wp))) (code-char des)))
);;while
(MI_OUT
:overwrite filename_mi_out
:select (sd-inq-curr-wp)
)