[xyzzy:01902] incf(かな ?)

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

(defun lister-mark-dir ()
  (interactive)
  (popup-string "カレントディレクトリをマークしました" (point-min) 1)
  (setq *lister-marked-dir* (cons (default-directory) *lister-marked-dir*)))

(defun lister-walk-marked-dir ()
  (interactive)
  (let* ((n (length *lister-marked-dir*))
		 (z (- n 1)))
	(if (not (= n 0))
	  (progn
		(when (eq *last-command* 'lister-walk-marked-dir)
		  (incf z -1))
		(lister-change-dir (nth z *lister-marked-dir*)))
	  (popup-string "ディレクトリがマークされていません" (point-min) 1)))
  (lister-directory-mode))

で、リストの最後の要素がうまくいきません。どこが悪いんでしょ？
教えて下さい。

--------
須田誠也
EZU11330@xxxxxxxxxxx