>>522 じわじわ効いてくる感じ．

ところで質問です．CLHS の position 関数のところにこんな記述が．

Notes:
The :test-not argument is deprecated.
The function position-if-not is deprecated.

これは，not で使うなら述語に含めて下さいという意味ですか？
CLHS は関数の説明に Application note があったらいいなぁ．
:start に nil が来たらいけないくせに，見つからないときは
nil しか返せない．(or (position ...) (length str)) じゃあなぁ．．．

do ループはいまいち使いずらいし，labels をループに使うのは
気の利かない処理系で慘めになりますYO!