Function PPRINT-DISPATCH
pprint-dispatch object &optional table => function, found-p
object - オブジェクト
table - pprintディスパッチテーブルか、nil。 デフォルトは*print-pprint-dispatch*の値。
function - 関数指定子
found-p - generalized-boolean
tableの中から、objectにマッチする型指定子と関連づけられた 優先度の高い関数を検索します。 その関数は、tableの中のobjectにマッチする全ての型指定子から検索され、 それらの型指定子の中に関連づいた最も高い優先度の関数が選択されます。 もし最も高い優先度の関数がひとつではなく複数あったとき、 任意のものが選ばれます。 もし型指定子がobjectにマッチしなかったときは、 objectが出力されるときに使われるprint-objectの関数が返却されます。
第二返却値のfound-pは、 もし型指定子がtableにマッチされたときはtrueを、 それ以外はfalseを返却します。
もしtableがnilのとき、 pprintディスパッチテーブルの初期値から検索が行われます。
なし。
なし。
tableの状態
tableがpprintディスパッチテーブルでもnilでもないときは、 型type-errorのエラーが通知されるべきです。
なし。
(let ((*print-pretty* t))
  (write object :stream s))
==  (funcall (pprint-dispatch object) s object)