Common Lisp のなかで最も名前が長いシンボル

On Lisp の後注、P.400 にあるコードを試しに実行してみました。38文字て・・・。

以下の式は, 現在ののパッケージで可視になっているすべてのシンボルを名前の長い順に並べたリストを返す.

（以下のコードは本にあったコードに princ を追加したものです）