default-directory for process functions are unpredictable

[tkf]

(let ((default-directory "/"))
  (deferred:nextc (deferred:process "pwd") 'message)
  (let ((default-directory "~/"))
    (dotimes (_ 3)
      (sleep-for 0.1))))  ; prints $HOME ("/" is expected).

default-directory はサブプロセスの $PWD を決めるのに使われますが、 deferred の process 系関数だと、それを決める方法が無いようです。

[tkf]

意外と簡単に直せたので PR しときました。

[kiwanami]

非同期なので仕方ないかなと思っていましたが、はまりやすそうなポイントだと思いますので、良いと思います。
ありがとうございます！