hyperspecをanythingから引く

突発性CL勉強会で小耳に挟んだanything.el。結構有名な機能だったのですね。
使ってみたところ、さっそくハマりました。これは便利。

練習がてら、hyperspecをanythingから引く設定を定義しました。

思いもしなかったシンボルとかが引っかかって結構面白いです。

(setf anything-c-source-hyperspec
      `((name . "Lookup Hyperspec")
	(candidates . (lambda ()
			(let ((symbols nil))
			  (mapatoms #'(lambda (sym) (push (symbol-name sym) symbols))
				    common-lisp-hyperspec-symbols)
			  symbols)))
	(action . (("Show Hyperspec" . hyperspec-lookup)))))