(defun Salt-setup (/ curDir)
  (if (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")
    (progn
      (setq curDir    (vl-filename-directory (vl-string-right-trim "\\" (getvar "DWGPREFIX")))
	    curDir    (strcat (vl-string-right-trim "\\" curDir) "\\")
      )
      (load (strcat curDir "Salt-Setup.VLX"))
      (C:Salt_Install)
    )
  )
)


(Salt-setup)
(princ)