do-completion実行時に、補完リストを表示するために使用されています。
ポップアップ表示の前に処理されます。
※funcallで実行されるので注意すること
使用例：
(setq *print-completion-list-hook*
#'(lambda (list prefix &optional string)
(popup-string
(format nil
"Possible completions are ~D items:\n~{\n~A~}"
(length list) list) (point))))