[xyzzy:09151] format-date-string の時間

[IMAI Takeo <usitukai@xxxxxxxxxxxxxx>]

たけをと申します。

 自分の環境で、format-date-string で出力される時間が1時間狂って
しまうのですが、原因がよくわかりません。

 ためしに、以下のような関数を作って *scratch*で評価してみたのですが、
---
(defun comp-time ()
  (insert (format-date-string "%H:%M")) ; format-date-string使用
  (insert "\n")
  (let (s m h)
    (multiple-value-setq (s m h) (get-decoded-time)) ; 不使用
    (insert (format nil "~D:~D" h m))))

(comp-time) ←評価
19:58
18:58
t
----
となりました。下のほうが正しい時間です。xyzzyの右下に出る時間と
も一致してます。

 xyzzyのバージョンは0.2.2.234、OSはWinXP SP1です。
 どなたか原因がわかる方いらっしゃいますか？

---
IMAI Takeo <usitukai@xxxxxxxxxxxxxx>