Emacs Lisp 2

-3を入力したら今日より3日前の日付けを返すような関数を作る際に
助けになるような関数ってありますか?
format-time-string だけでは大変で…

(apply (lambda (s min h d mon y dow dst zone)
(format-time-string "%Y-%m/%d"
(encode-time s min h (- d 3) mon y)))
(decode-time))

みたいなのとか、かな…