パッケージと同じ prefix を持つ関数を export するコードを生成する。

gistfile1.cl

;; パッケージと同じ prefix を持つ関数を export するコードを生成する。
(defun insert-export-functions ()
  (interactive "*")
  (let* ((prefixs (cons (package-name *buffer-package*)
                        (package-nicknames *buffer-package*)))
         (prefix-re (format nil "^\\(~{~A~^\\|~}\\)-" prefixs)))
    (insert "(export '())")
    (backward-char 2)
    (dolist (func (mapcar #'cadr (ed::lisp-build-summary-of-functions)))
      (when (string-match prefix-re func)
        (insert func #\LFD)))
    (ed::backward-up-list)
    (ed::backward-up-list)
    (ed::indent-sexp)))