Edebug and luna.el

[TSUCHIYA Masatoshi]

>> On Tue, 24 Sep 2002 11:28:20 +0900
>> 「上」== ueno ＠ unixuser.org (Daiki Ueno) said as follows:

土> -	   (unintern ',class cache))
土> +	   (unintern (symbol-name ',class) cache))

上> なるほど。前者の式にはまったく意味がないですね。

いえそれが，unintern の第1引数はシンボルでもいいので，場合によっては無
意味ではないようです．

    (let ((obarray (make-vector 3 nil)))
      (unintern (intern "foo" obarray) obarray)
      obarray)
    -> [nil nil nil]

    (let ((obarray (make-vector 3 nil)))
      (intern "foo" obarray)
      (unintern 'foo obarray)
      obarray)
    -> [nil nil foo]

;; 最初，前者の挙動を期待されているのかと思って変更を躊躇ってしまいま
;; した．

土> この問題を回避するには，以下のような変更を行えば良いようですが，
土> commit しても良いでしょうか．また，どの枝を変更するべきでしょうか．

上> 明らかなバグなので、flim-1_14 枝に変更を加えていただくのが良いと思
上> います。

flim-1_14 枝を修正しておきました．

;; これで shimbun のデバッグ用関数定義を追放できますね > 関係各位

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )