[xyzzy:01211] do-symbols

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

逸見さん、こんにちは。

逸見さんのホームページに print-symbol と do-symbols
のやりかたがありますよね。それを参考にさせていただ
いて、list-symbols という下のようなコマンドを作った
のですが、eval して M-x list-symbols で、うまくいく
のに、byte-compile すると、list-symbols のどこかが
悪いらしく「不正なディスパッチングマクロです」と言
われてうまくいきません。

どこが悪いのか教えて下さいm(..)m


(defun print-symbol (sym)
  (when (or (fboundp sym) (boundp sym))
    (insert "\n")
    (insert
     (format nil "~A ~A ~S"
	     (if (fboundp sym) "関数" "    ")
	     (if (boundp sym)  "変数" "    ")
	     sym))))

(defun list-symbols ()
  (interactive)
  (let (i)
    (with-output-to-temp-buffer ("*Help*")
      (do-symbols (i) (print-symbol i)))))

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