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))))