🚀 go-pugleaf

加藤＠ＯＤＮです．ちょっと書き方が乱暴でしたね．

KURODA Hisao wrote:
> kate@pfu.co.jp (KATAYAMA Yoshio) writes:
> 
> > (setq a '(defun foo ()
> >          (let ((foobar '(a)))
> >            foobar)))
> > (eval a)
> > (rplacd (foo) 'b)
> >
> > をおこなうと、a の値は、
> >
> > (defun foo nil (let ((foobar (quote (a . b)))) foobar))
> >
> > になりますから、(eval a) では戻りません。
> 
> なるほど。そういう意味ですか。ありがとうございます。

そういう意味です．要するに「rplacd の副作用に注意してね」という
意味で書きました．補足ありがとうございます＞片山さん．

> しかしながらわたしの元記事で、
> 
> KURODA Hisao <kuroda@msi.co.jp> writes:
> 
> > > (defun foo ()
> >     (let ((foobar '(a)))
> >       foobar))
> > foo
> >
> > > (rplacd (foo) 'b)
> > b
> >
> > > (foo)
> > (a . b)
> > ------------------------------------------------------------------------
> >
> > もちろん、(defun foo ...) をもう一度評価してやれば(foo)の返す値は元に戻
> > ります。上に続けて、
> 
> とあり、(defun foo ...)をもう一度評価する、とは、
> 
> (defun foo ()
>  (let ((foobar '(a)))
>    foobar))
> 
> を評価することの意味で書きました。
> この他に解釈があるようには思えないのですが…

そうおっしゃっても．．．少なくとも私は実際の操作としては２通りはあると思
います．結果は当然変わります．

１．(setq a '(defun ...)) として再利用．
２．"(defun foo ...)" というテキストを read & eval．

１は Interlisp 系での普通のやり方．構造エディタを使うとこうなるのが普
　通（西海岸文化）．
２は Maclisp, Zetalisp, Emacslisp などでの普通のやり方．テキストエディ
　タを使うとこうなるのが普通（東海岸文化）．
CommonLisp では（多分）どちらもあり．

別に黒山さんの書いた事にイチャモンを付けているのではなく，１の使い方を
してる人に注意したかった（そうはならないよ，と）だけなんですが．

＃Lisp システムに於ける「評価」の意味は read & eval ではなく，eval である
＃というのはいいですね．
＃最初の記事の最後に書いたように，emacs ではその辺り，マニュアルレベルで
＃違ってるかもしれませんが．