I want to use psake to compile things in emacs

psake-compile.el

(defun set-psake-compile-command ()
  (interactive)
  (let ((psake-file-dir (locate-dominating-file (buffer-file-name) "default.ps1")))
    (if psake-file-dir
        (let (( psake-command (concat "Set-Location " psake-file-dir "; & c:\\Dropbox\\bin\\psake.ps1")))
          (progn
            (make-local-variable 'compile-command)
            (setq compile-command
                  (concat "powershell -NoProfile -ExecutionPolicy unrestricted -Command \"" psake-command "\"")))))))