SLIMEでパッケージのドキュメントを見る

defpackageにもdocstringが書けるのになんでSLIMEで見られないんだろう、見落しかな?

;;; slime-ext.lisp
(in-package :swank)
(defslimefun describe-package (package-name)
  (with-buffer-syntax ()
    (format nil "~a~%~%~a"
            (format nil "# (slime-apropos-package \"~a\")" package-name)
            (documentation (find-package (intern package-name)) t))))
;;; .emacs
(defun slime-describe-package (package-name)
  "Describe the package at point."
  (interactive (list (slime-read-package-name "Describe package: ")))
  (when (not package-name)
    (error "No symbol given"))
  (slime-eval-describe `(swank:describe-package ,package-name)))

そしてM-x slime-describe-package。これで見られる。usage-memoとの併用はあとでやる。