(MI_OUT :overwrite (format nil "~A.mi" (string-upcase (sd-inq-obj-basename (sd-inq-curr-wp)))) :select (sd-inq-curr-wp))