;; | ----------------------------------------------------------------------------
;; | MI_GetTempDir
;; | ----------------------------------------------------------------------------
;; | Function : Returns the Windows temporary directory
;; | Arguments: (none)
;; | Action   : Returns T if they are within the absolute range, nil otherwise.
;; | Updated  : May 24, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetTempDir( / tmp )
(setq tmp (getenv "TEMP"))
(if (not tmp)
	(setq tmp (getenv "TMP"))
)

(if tmp
(progn
	(if (/= (substr tmp (strlen tmp) 1) "\\")
		(setq tmp (strcat tmp "\\"))
	)
))
tmp
)