「Case 3: '(1)→'()だけどうにかならないか」を諦めちゃうのであれば、普通に関数で書いた方がすっきりすると思います。

あと、せっかくなのでimproper-listに対応しました。こんな感じです:
Case 4: (nakanuki! 2 '(1 2 3 . 4)) => '(1 2 . 4)
Case 5: (nakanuki! 0 '(1 . 2)) => 2
Case 6: (nakanuki! 1 '#1=(1 2 3 . #1#)) => '#1=(1 3 . #1#) ;; うーん。これは今ひとつかも。

(defun nakanuki! (idx lst)
    "lisからidx番目を破壊的に取り除く"
    (unless (= 0 idx)
        (error "idxの値(%d)がヘンですー" idx))
    (cond
      ((atom (cdr lst))
        ;; ↓互換性のために入れたけど、この1行は嫌だなぁ…
        (setf (car lst) (cdr lst))
        (cdr lst))
      ((= idx 0)
        (setf (car lst) (cadr lst))
        (nakanuki! 1 lst))
      (t
        (setf (cdr (nthcdr (1- idx) lst))
                    (nthcdr (1+ idx) lst))
        lst)))

U+9243ならUnicode (にもJIS X 0213)にもありますよ。

仮に自由形式にしちゃったとするとPKIをどうしますかねぇ。

今の(少なくともサーバ証明書の)仕組みは「ホスト名がCN (Common Name)だ」を前提に動いています。
ワイルドカード証明書(“*.mozilla.org”みたいなの)だと「‘.’で区切られている & 最初の‘.’以降が部分一致」とかですね。

…まあ他のことも色々考えないと駄目だし。これだけを気にしても仕方ないか。

# わー。商用CAはIDNのことを既に考えていたんだ。さすがだ。

日本も
・各社業績が悪化している(http://sankei.jp.msn.com/economy/business/090612/biz0906122213017-n1.htm)
・ワーキングプアとかが増えてる&職場の経費節減なんかもあるし新聞を買う余裕がなくなっているかも?
なんかを考慮すると部数が増えてるってことはないんだろうと思います。

ただなぁ…日本の場合は実売部数が不明確だからなぁ…。

なんたって某所(http://en.wikipedia.org/wiki/List_of_newspapers_in_the_world_by_circulation)に(“citation needed”だけど)

Note that the numbers of the Japanese newspaper are overstated to raise advertising expense (They call it "Oshigami")

と書かれるくらいの始末で…。